346 lines
7.0 KiB
C
346 lines
7.0 KiB
C
/*
|
|
** xpm-read.c for MinilibX in
|
|
**
|
|
** Made by Charlie Root
|
|
** Login <ol@epitech.net>
|
|
**
|
|
** Started on Tue Dec 11 15:25:27 2001 olivier crouzet
|
|
** Last update Sat Oct 1 14:56:13 2005 Olivier Crouzet
|
|
*/
|
|
|
|
|
|
#include "mlx_int.h"
|
|
|
|
extern struct s_col_name mlx_col_name[];
|
|
|
|
|
|
#define RETURN { if (colors) free(colors); if (tab) free(tab); \
|
|
tab = (void *)0; if (colors_direct) free(colors_direct); \
|
|
if (img) {XDestroyImage(img->image); \
|
|
XFreePixmap(xvar->display,img->pix);free(img);} \
|
|
return ((void *)0);}
|
|
|
|
|
|
|
|
|
|
char *mlx_int_get_line(char *ptr,int *pos,int size)
|
|
{
|
|
int pos2;
|
|
int pos3;
|
|
int pos4;
|
|
|
|
if ((pos2 = mlx_int_str_str(ptr+*pos,"\"",size-*pos))==-1)
|
|
return ((char *)0);
|
|
if ((pos3 = mlx_int_str_str(ptr+*pos+pos2+1,"\"",size-*pos-pos2-1))==-1)
|
|
return ((char *)0);
|
|
*(ptr+*pos+pos2) = 0;
|
|
*(ptr+*pos+pos2+1+pos3) = 0;
|
|
pos4 = *pos+pos2+1;
|
|
*pos += pos2+pos3+2;
|
|
return (ptr+pos4);
|
|
}
|
|
|
|
|
|
unsigned int strlcpy_is_not_posix(char *dest, char *src, unsigned int size)
|
|
{
|
|
unsigned count;
|
|
unsigned i;
|
|
|
|
count = 0;
|
|
while (src[count] != '\0')
|
|
++count;
|
|
i = 0;
|
|
while (src[i] != '\0' && i < (size - 1))
|
|
{
|
|
dest[i] = src[i];
|
|
++i;
|
|
}
|
|
dest[i] = '\0';
|
|
return (count);
|
|
}
|
|
|
|
char *mlx_int_static_line(char **xpm_data,int *pos,int size)
|
|
{
|
|
static char *copy = 0;
|
|
static int len = 0;
|
|
int len2;
|
|
char *str;
|
|
|
|
str = xpm_data[(*pos)++];
|
|
if ((len2 = strlen(str))>len)
|
|
{
|
|
if (copy)
|
|
free(copy);
|
|
if (!(copy = malloc(len2+1)))
|
|
return ((char *)0);
|
|
len = len2;
|
|
}
|
|
strlcpy_is_not_posix(copy, str, len2);
|
|
|
|
return (copy);
|
|
}
|
|
|
|
|
|
int mlx_int_get_col_name(char *str,int size)
|
|
{
|
|
int result;
|
|
|
|
result = 0;
|
|
while (size--)
|
|
result = (result<<8)+*(str++);
|
|
|
|
return (result);
|
|
}
|
|
|
|
int mlx_int_get_text_rgb(char *name, char *end)
|
|
{
|
|
int i;
|
|
char buff[64];
|
|
|
|
if (*name == '#')
|
|
return (strtol(name+1,0,16));
|
|
if (end)
|
|
{
|
|
snprintf(buff, 64, "%s %s", name, end);
|
|
name = buff;
|
|
}
|
|
i = 0;
|
|
while (mlx_col_name[i].name)
|
|
{
|
|
if (!strcasecmp(mlx_col_name[i].name, name))
|
|
return (mlx_col_name[i].color);
|
|
i ++;
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
|
|
int mlx_int_xpm_set_pixel(t_img *img, char *data, int opp, int col, int x)
|
|
{
|
|
int dec;
|
|
|
|
dec = opp;
|
|
while (dec--)
|
|
{
|
|
if (img->image->byte_order)
|
|
*(data+x*opp+dec) = col&0xFF;
|
|
else
|
|
*(data+x*opp+opp-dec-1) = col&0xFF;
|
|
col >>= 8;
|
|
}
|
|
}
|
|
|
|
|
|
void *mlx_int_parse_xpm(t_xvar *xvar,void *info,int info_size,char *(*f)())
|
|
{
|
|
int pos;
|
|
char *line;
|
|
char **tab;
|
|
char *data;
|
|
char *clip_data;
|
|
int nc;
|
|
int opp;
|
|
int cpp;
|
|
int col;
|
|
int rgb_col;
|
|
int col_name;
|
|
int method;
|
|
int x;
|
|
int i;
|
|
int j;
|
|
t_img *img;
|
|
t_xpm_col *colors;
|
|
int *colors_direct;
|
|
int width;
|
|
int height;
|
|
XImage *clip_img;
|
|
XGCValues xgcv;
|
|
Pixmap clip_pix;
|
|
|
|
colors = 0;
|
|
colors_direct = 0;
|
|
img = 0;
|
|
tab = 0;
|
|
pos = 0;
|
|
if (!(line = f(info,&pos,info_size)) ||
|
|
!(tab = mlx_int_str_to_wordtab(line)) || !(width = atoi(tab[0])) ||
|
|
!(height = atoi(tab[1])) || !(nc = atoi(tab[2])) ||
|
|
!(cpp = atoi(tab[3])) )
|
|
RETURN;
|
|
free(tab);
|
|
tab = 0;
|
|
|
|
method = 0;
|
|
if (cpp<=2)
|
|
{
|
|
method = 1;
|
|
if (!(colors_direct = malloc((cpp==2?65536:256)*sizeof(int))))
|
|
RETURN;
|
|
}
|
|
else
|
|
if (!(colors = malloc(nc*sizeof(*colors))))
|
|
RETURN;
|
|
|
|
clip_data = 0;
|
|
|
|
i = nc;
|
|
while (i--)
|
|
{
|
|
if (!(line = f(info,&pos,info_size)) ||
|
|
!(tab = mlx_int_str_to_wordtab(line+cpp)) )
|
|
RETURN;
|
|
j = 0;
|
|
while (tab[j] && strcmp(tab[j++],"c"));
|
|
|
|
if (!tab[j])
|
|
RETURN;
|
|
rgb_col = mlx_int_get_text_rgb(tab[j], tab[j+1]);
|
|
/*
|
|
if ((rgb_col = mlx_int_get_text_rgb(tab[j], tab[j+1]))==-1)
|
|
{
|
|
if (!(clip_data = malloc(4*width*height)) || ok, nice size ..
|
|
!(clip_img = XCreateImage(xvar->display, xvar->visual,
|
|
1, XYPixmap, 0, clip_data,
|
|
width, height, 8, (width+7)/8)) )
|
|
RETURN;
|
|
memset(clip_data, 0xFF, 4*width*height);
|
|
}
|
|
*/
|
|
if (method)
|
|
colors_direct[mlx_int_get_col_name(line,cpp)] = rgb_col;
|
|
// rgb_col>=0?mlx_get_color_value(xvar, rgb_col):rgb_col;
|
|
else
|
|
{
|
|
colors[i].name = mlx_int_get_col_name(line,cpp);
|
|
colors[i].col = rgb_col; //rgb_col>=0?mlx_get_color_value(xvar,rgb_col):rgb_col;
|
|
}
|
|
free(tab);
|
|
tab = (void *)0;
|
|
}
|
|
|
|
if (!(img = mlx_new_image(xvar,width,height)))
|
|
RETURN;
|
|
opp = img->bpp/8;
|
|
|
|
|
|
i = height;
|
|
data = img->data;
|
|
while (i--)
|
|
{
|
|
if (!(line = f(info,&pos,info_size)))
|
|
RETURN;
|
|
x = 0;
|
|
while (x<width)
|
|
{
|
|
col = 0;
|
|
col_name = mlx_int_get_col_name(line+cpp*x,cpp);
|
|
if (method)
|
|
col = colors_direct[col_name];
|
|
else
|
|
{
|
|
j = nc;
|
|
while (j--)
|
|
if (colors[j].name==col_name)
|
|
{
|
|
col = colors[j].col;
|
|
j = 0;
|
|
}
|
|
}
|
|
/*
|
|
if (col==-1)
|
|
XPutPixel(clip_img, x, height-1-i, 0);
|
|
else
|
|
mlx_int_xpm_set_pixel(img, data, opp, col, x);
|
|
x ++;
|
|
*/
|
|
if (col==-1)
|
|
col = 0xFF000000;
|
|
mlx_int_xpm_set_pixel(img, data, opp, col, x);
|
|
++x;
|
|
}
|
|
data += img->size_line;
|
|
}
|
|
/*
|
|
if (clip_data)
|
|
{
|
|
if (!(clip_pix = XCreatePixmap(xvar->display, xvar->root,
|
|
width, height, 1)) )
|
|
RETURN;
|
|
img->gc = XCreateGC(xvar->display, clip_pix, 0, &xgcv);
|
|
XPutImage(xvar->display, clip_pix, img->gc, clip_img,
|
|
0, 0, 0, 0, width, height);
|
|
XFreeGC(xvar->display, img->gc);
|
|
xgcv.clip_mask = clip_pix;
|
|
xgcv.function = GXcopy;
|
|
xgcv.plane_mask = AllPlanes;
|
|
img->gc = XCreateGC(xvar->display, xvar->root, GCClipMask|GCFunction|
|
|
GCPlaneMask, &xgcv);
|
|
XSync(xvar->display, False);
|
|
XDestroyImage(clip_img);
|
|
}
|
|
*/
|
|
if (colors)
|
|
free(colors);
|
|
if (colors_direct)
|
|
free(colors_direct);
|
|
return (img);
|
|
}
|
|
|
|
|
|
int mlx_int_file_get_rid_comment(char *ptr, int size)
|
|
{
|
|
int com_begin;
|
|
int com_end;
|
|
|
|
while ((com_begin = mlx_int_str_str_cote(ptr,"/*",size))!=-1)
|
|
{
|
|
com_end = mlx_int_str_str(ptr+com_begin+2,"*/",size-com_begin-2);
|
|
memset(ptr+com_begin,' ',com_end+4);
|
|
}
|
|
while ((com_begin = mlx_int_str_str_cote(ptr,"//",size))!=-1)
|
|
{
|
|
com_end = mlx_int_str_str(ptr+com_begin+2,"\n",size-com_begin-2);
|
|
memset(ptr+com_begin,' ',com_end+3);
|
|
}
|
|
}
|
|
|
|
|
|
void *mlx_xpm_file_to_image(t_xvar *xvar,char *file,int *width,int *height)
|
|
{
|
|
int fd;
|
|
int size;
|
|
char *ptr;
|
|
t_img *img;
|
|
|
|
fd = -1;
|
|
if ((fd = open(file,O_RDONLY))==-1 || (size = lseek(fd,0,SEEK_END))==-1 ||
|
|
(ptr = mmap(0,size,PROT_WRITE|PROT_READ,MAP_PRIVATE,fd,0))==
|
|
(void *)MAP_FAILED)
|
|
{
|
|
if (fd>=0)
|
|
close(fd);
|
|
return ((void *)0);
|
|
}
|
|
mlx_int_file_get_rid_comment(ptr, size);
|
|
if (img = mlx_int_parse_xpm(xvar,ptr,size,mlx_int_get_line))
|
|
{
|
|
*width = img->width;
|
|
*height = img->height;
|
|
}
|
|
munmap(ptr,size);
|
|
close(fd);
|
|
return (img);
|
|
}
|
|
|
|
void *mlx_xpm_to_image(t_xvar *xvar,char **xpm_data,int *width,int *height)
|
|
{
|
|
t_img *img;
|
|
|
|
if (img = mlx_int_parse_xpm(xvar,xpm_data,0,mlx_int_static_line))
|
|
{
|
|
*width = img->width;
|
|
*height = img->height;
|
|
}
|
|
return (img);
|
|
}
|