1 /* xpm.c - load XPM image from file
3 * Raster graphics library
5 * Copyright (c) 1997 Alfredo K. Kojima
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Library General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Library General Public License for more details.
17 * You should have received a copy of the GNU Library General Public
18 * License along with this library; if not, write to the Free
19 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
36 RGetImageFromXPMData(RContext
*context
, char **data
)
38 Display
*dpy
= context
->dpy
;
39 Colormap cmap
= context
->cmap
;
42 unsigned char *color_table
[3];
43 unsigned char *r
, *g
, *b
, *a
;
48 i
= XpmCreateXpmImageFromData(data
, &xpm
, (XpmInfo
*)NULL
);
52 RErrorCode
= RERR_OPEN
;
55 RErrorCode
= RERR_BADIMAGEFILE
;
58 RErrorCode
= RERR_NOMEMORY
;
61 RErrorCode
= RERR_BADIMAGEFILE
;
66 if (xpm
.height
<1 || xpm
.width
< 1) {
67 RErrorCode
= RERR_BADIMAGEFILE
;
68 XpmFreeXpmImage(&xpm
);
72 if (xpm
.colorTable
==NULL
) {
73 RErrorCode
= RERR_BADIMAGEFILE
;
74 XpmFreeXpmImage(&xpm
);
77 image
= RCreateImage(xpm
.width
, xpm
.height
, True
);
79 XpmFreeXpmImage(&xpm
);
83 /* make color table */
85 color_table
[i
] = malloc(xpm
.ncolors
*sizeof(char));
86 if (!color_table
[i
]) {
87 for (i
=i
-1;i
>=0; i
--) {
92 RErrorCode
= RERR_NOMEMORY
;
93 XpmFreeXpmImage(&xpm
);
98 for (i
=0; i
<xpm
.ncolors
; i
++) {
101 if (strncmp(xpm
.colorTable
[i
].c_color
,"None",4)==0) {
104 color_table
[0][i
]=context
->red_offset
;
105 color_table
[1][i
]=context
->red_offset
;
106 color_table
[2][i
]=context
->red_offset
;
114 if (XParseColor(dpy
, cmap
, xpm
.colorTable
[i
].c_color
, &xcolor
)) {
115 color_table
[0][i
] = xcolor
.red
>>8;
116 color_table
[1][i
] = xcolor
.green
>>8;
117 color_table
[2][i
] = xcolor
.blue
>>8;
119 color_table
[0][i
]=0xbe;
120 color_table
[1][i
]=0xbe;
121 color_table
[2][i
]=0xbe;
124 memset(image
->data
[3], 255, xpm
.width
*xpm
.height
);
125 /* convert pixmap to RImage */
131 for (i
=0; i
<xpm
.width
*xpm
.height
; i
++) {
135 *(r
++)=color_table
[0][*p
];
136 *(g
++)=color_table
[1][*p
];
137 *(b
++)=color_table
[2][*p
];
141 free(color_table
[i
]);
143 XpmFreeXpmImage(&xpm
);
150 RLoadXPM(RContext
*context
, char *file
, int index
)
152 Display
*dpy
= context
->dpy
;
153 Colormap cmap
= context
->cmap
;
156 unsigned char *color_table
[3];
157 unsigned char *r
, *g
, *b
, *a
;
162 i
= XpmReadFileToXpmImage(file
, &xpm
, (XpmInfo
*)NULL
);
166 RErrorCode
= RERR_OPEN
;
169 RErrorCode
= RERR_BADIMAGEFILE
;
172 RErrorCode
= RERR_NOMEMORY
;
175 RErrorCode
= RERR_BADIMAGEFILE
;
180 if (xpm
.height
<1 || xpm
.width
< 1) {
181 RErrorCode
= RERR_BADIMAGEFILE
;
182 XpmFreeXpmImage(&xpm
);
186 if (xpm
.colorTable
==NULL
) {
187 RErrorCode
= RERR_BADIMAGEFILE
;
188 XpmFreeXpmImage(&xpm
);
191 image
= RCreateImage(xpm
.width
, xpm
.height
, True
);
193 XpmFreeXpmImage(&xpm
);
197 /* make color table */
198 for (i
=0; i
<3; i
++) {
199 color_table
[i
] = malloc(xpm
.ncolors
*sizeof(char));
200 if (!color_table
[i
]) {
201 for (i
=i
-1;i
>=0; i
--) {
203 free(color_table
[i
]);
205 RDestroyImage(image
);
206 RErrorCode
= RERR_NOMEMORY
;
207 XpmFreeXpmImage(&xpm
);
212 for (i
=0; i
<xpm
.ncolors
; i
++) {
215 if (strncmp(xpm
.colorTable
[i
].c_color
,"None",4)==0) {
218 color_table
[0][i
]=context
->red_offset
;
219 color_table
[1][i
]=context
->red_offset
;
220 color_table
[2][i
]=context
->red_offset
;
230 if (XParseColor(dpy
, cmap
, xpm
.colorTable
[i
].c_color
, &xcolor
)) {
231 color_table
[0][i
] = xcolor
.red
>>8;
232 color_table
[1][i
] = xcolor
.green
>>8;
233 color_table
[2][i
] = xcolor
.blue
>>8;
235 color_table
[0][i
]=0xbe;
236 color_table
[1][i
]=0xbe;
237 color_table
[2][i
]=0xbe;
240 memset(image
->data
[3], 255, xpm
.width
*xpm
.height
);
241 /* convert pixmap to RImage */
247 for (i
=0; i
<xpm
.width
*xpm
.height
; i
++) {
251 *(r
++)=color_table
[0][*p
];
252 *(g
++)=color_table
[1][*p
];
253 *(b
++)=color_table
[2][*p
];
257 free(color_table
[i
]);
259 XpmFreeXpmImage(&xpm
);