Skip to content

Latest commit

 

History

History
executable file
·
870 lines (738 loc) · 21.3 KB

IMG_xcf.c

File metadata and controls

executable file
·
870 lines (738 loc) · 21.3 KB
 
1
/*
Dec 31, 2011
Dec 31, 2011
2
SDL_image: An example image loading library for use with SDL
Jan 2, 2017
Jan 2, 2017
3
Copyright (C) 1997-2017 Sam Lantinga <slouken@libsdl.org>
4
Dec 31, 2011
Dec 31, 2011
5
6
7
This software is provided 'as-is', without any express or implied
warranty. In no event will the authors be held liable for any damages
arising from the use of this software.
8
Dec 31, 2011
Dec 31, 2011
9
10
11
Permission is granted to anyone to use this software for any purpose,
including commercial applications, and to alter it and redistribute it
freely, subject to the following restrictions:
12
Dec 31, 2011
Dec 31, 2011
13
14
15
16
17
18
19
1. The origin of this software must not be misrepresented; you must not
claim that you wrote the original software. If you use this software
in a product, an acknowledgment in the product documentation would be
appreciated but is not required.
2. Altered source versions must be plainly marked as such, and must not be
misrepresented as being the original software.
3. This notice may not be removed or altered from any source distribution.
20
21
22
23
*/
/* This is a XCF image file loading framework */
Feb 21, 2003
Feb 21, 2003
24
#include "SDL_endian.h"
25
26
27
28
#include "SDL_image.h"
#ifdef LOAD_XCF
Feb 21, 2003
Feb 21, 2003
29
#if DEBUG
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
static char prop_names [][30] = {
"end",
"colormap",
"active_layer",
"active_channel",
"selection",
"floating_selection",
"opacity",
"mode",
"visible",
"linked",
"preserve_transparency",
"apply_mask",
"edit_mask",
"show_mask",
"show_masked",
"offsets",
"color",
"compression",
"guides",
"resolution",
"tattoo",
"parasites",
"unit",
"paths",
"user_unit"
};
Feb 21, 2003
Feb 21, 2003
57
58
#endif
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
typedef enum
{
PROP_END = 0,
PROP_COLORMAP = 1,
PROP_ACTIVE_LAYER = 2,
PROP_ACTIVE_CHANNEL = 3,
PROP_SELECTION = 4,
PROP_FLOATING_SELECTION = 5,
PROP_OPACITY = 6,
PROP_MODE = 7,
PROP_VISIBLE = 8,
PROP_LINKED = 9,
PROP_PRESERVE_TRANSPARENCY = 10,
PROP_APPLY_MASK = 11,
PROP_EDIT_MASK = 12,
PROP_SHOW_MASK = 13,
PROP_SHOW_MASKED = 14,
PROP_OFFSETS = 15,
PROP_COLOR = 16,
PROP_COMPRESSION = 17,
PROP_GUIDES = 18,
PROP_RESOLUTION = 19,
PROP_TATTOO = 20,
PROP_PARASITES = 21,
PROP_UNIT = 22,
PROP_PATHS = 23,
PROP_USER_UNIT = 24
} xcf_prop_type;
typedef enum {
COMPR_NONE = 0,
COMPR_RLE = 1,
COMPR_ZLIB = 2,
COMPR_FRACTAL = 3
} xcf_compr_type;
typedef enum {
IMAGE_RGB = 0,
IMAGE_GREYSCALE = 1,
IMAGE_INDEXED = 2
} xcf_image_type;
typedef struct {
Uint32 id;
Uint32 length;
union {
struct {
Uint32 num;
char * cmap;
} colormap; // 1
struct {
Uint32 drawable_offset;
} floating_selection; // 5
Sint32 opacity;
Sint32 mode;
int visible;
int linked;
int preserve_transparency;
int apply_mask;
int show_mask;
struct {
Sint32 x;
Sint32 y;
} offset;
unsigned char color [3];
Uint8 compression;
struct {
Sint32 x;
Sint32 y;
} resolution;
struct {
char * name;
Uint32 flags;
Uint32 size;
char * data;
} parasite;
} data;
} xcf_prop;
typedef struct {
char sign [14];
Uint32 width;
Uint32 height;
Sint32 image_type;
xcf_prop * properties;
Uint32 * layer_file_offsets;
Uint32 * channel_file_offsets;
xcf_compr_type compr;
Uint32 cm_num;
unsigned char * cm_map;
} xcf_header;
typedef struct {
Uint32 width;
Uint32 height;
Sint32 layer_type;
char * name;
xcf_prop * properties;
Uint32 hierarchy_file_offset;
Uint32 layer_mask_offset;
Uint32 offset_x;
Uint32 offset_y;
May 3, 2002
May 3, 2002
166
int visible;
167
168
169
170
171
172
173
174
175
176
177
178
} xcf_layer;
typedef struct {
Uint32 width;
Uint32 height;
char * name;
xcf_prop * properties;
Uint32 hierarchy_file_offset;
Uint32 color;
Uint32 opacity;
May 3, 2002
May 3, 2002
179
180
int selection;
int visible;
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
} xcf_channel;
typedef struct {
Uint32 width;
Uint32 height;
Uint32 bpp;
Uint32 * level_file_offsets;
} xcf_hierarchy;
typedef struct {
Uint32 width;
Uint32 height;
Uint32 * tile_file_offsets;
} xcf_level;
typedef unsigned char * xcf_tile;
typedef unsigned char * (* load_tile_type) (SDL_RWops *, Uint32, int, int, int);
/* See if an image is contained in a data source */
Feb 4, 2006
Feb 4, 2006
204
205
int IMG_isXCF(SDL_RWops *src)
{
May 22, 2013
May 22, 2013
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
Sint64 start;
int is_XCF;
char magic[14];
if ( !src )
return 0;
start = SDL_RWtell(src);
is_XCF = 0;
if ( SDL_RWread(src, magic, sizeof(magic), 1) ) {
if (SDL_strncmp(magic, "gimp xcf ", 9) == 0) {
is_XCF = 1;
}
}
SDL_RWseek(src, start, RW_SEEK_SET);
return(is_XCF);
221
222
223
224
225
226
227
228
}
static char * read_string (SDL_RWops * src) {
Uint32 tmp;
char * data;
tmp = SDL_ReadBE32 (src);
if (tmp > 0) {
Apr 25, 2013
Apr 25, 2013
229
data = (char *) SDL_malloc (sizeof (char) * tmp);
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
SDL_RWread (src, data, tmp, 1);
}
else {
data = NULL;
}
return data;
}
static Uint32 Swap32 (Uint32 v) {
return
((v & 0x000000FF) << 16)
| ((v & 0x0000FF00))
| ((v & 0x00FF0000) >> 16)
| ((v & 0xFF000000));
}
Sep 26, 2009
Sep 26, 2009
248
static void xcf_read_property (SDL_RWops * src, xcf_prop * prop) {
Oct 6, 2017
Oct 6, 2017
249
Uint32 len;
250
251
252
prop->id = SDL_ReadBE32 (src);
prop->length = SDL_ReadBE32 (src);
Feb 21, 2003
Feb 21, 2003
253
#if DEBUG
254
printf ("%.8X: %s: %d\n", SDL_RWtell (src), prop->id < 25 ? prop_names [prop->id] : "unknown", prop->length);
May 3, 2002
May 3, 2002
255
#endif
256
257
258
259
switch (prop->id) {
case PROP_COLORMAP:
prop->data.colormap.num = SDL_ReadBE32 (src);
Apr 25, 2013
Apr 25, 2013
260
prop->data.colormap.cmap = (char *) SDL_malloc (sizeof (char) * prop->data.colormap.num * 3);
261
262
263
264
265
266
267
268
269
270
271
272
SDL_RWread (src, prop->data.colormap.cmap, prop->data.colormap.num*3, 1);
break;
case PROP_OFFSETS:
prop->data.offset.x = SDL_ReadBE32 (src);
prop->data.offset.y = SDL_ReadBE32 (src);
break;
case PROP_OPACITY:
prop->data.opacity = SDL_ReadBE32 (src);
break;
case PROP_COMPRESSION:
case PROP_COLOR:
Oct 6, 2017
Oct 6, 2017
273
274
275
276
277
278
if (prop->length > sizeof(prop->data)) {
len = sizeof(prop->data);
} else {
len = prop->length;
}
SDL_RWread(src, &prop->data, len, 1);
279
break;
May 3, 2002
May 3, 2002
280
281
282
case PROP_VISIBLE:
prop->data.visible = SDL_ReadBE32 (src);
break;
283
284
default:
// SDL_RWread (src, &prop->data, prop->length, 1);
Nov 8, 2009
Nov 8, 2009
285
SDL_RWseek (src, prop->length, RW_SEEK_CUR);
286
287
288
}
}
Sep 26, 2009
Sep 26, 2009
289
static void free_xcf_header (xcf_header * h) {
290
if (h->cm_num)
Apr 25, 2013
Apr 25, 2013
291
SDL_free (h->cm_map);
Jul 27, 2013
Jul 27, 2013
292
if (h->layer_file_offsets)
Aug 7, 2013
Aug 7, 2013
293
SDL_free (h->layer_file_offsets);
Apr 25, 2013
Apr 25, 2013
294
SDL_free (h);
295
296
}
Sep 26, 2009
Sep 26, 2009
297
static xcf_header * read_xcf_header (SDL_RWops * src) {
298
299
300
xcf_header * h;
xcf_prop prop;
Apr 25, 2013
Apr 25, 2013
301
h = (xcf_header *) SDL_malloc (sizeof (xcf_header));
Sep 12, 2017
Sep 12, 2017
302
303
304
if (!h) {
return NULL;
}
305
306
307
308
309
310
SDL_RWread (src, h->sign, 14, 1);
h->width = SDL_ReadBE32 (src);
h->height = SDL_ReadBE32 (src);
h->image_type = SDL_ReadBE32 (src);
h->properties = NULL;
Jul 27, 2013
Jul 27, 2013
311
h->layer_file_offsets = NULL;
312
313
314
315
316
317
318
319
h->compr = COMPR_NONE;
h->cm_num = 0;
h->cm_map = NULL;
// Just read, don't save
do {
xcf_read_property (src, &prop);
if (prop.id == PROP_COMPRESSION)
Feb 3, 2013
Feb 3, 2013
320
h->compr = (xcf_compr_type)prop.data.compression;
321
else if (prop.id == PROP_COLORMAP) {
Feb 21, 2003
Feb 21, 2003
322
// unused var: int i;
Sep 12, 2017
Sep 12, 2017
323
324
325
326
327
328
329
330
331
332
Uint32 cm_num;
unsigned char *cm_map;
cm_num = prop.data.colormap.num;
cm_map = (unsigned char *) SDL_realloc(h->cm_map, sizeof (unsigned char) * 3 * cm_num);
if (cm_map) {
h->cm_num = cm_num;
h->cm_map = cm_map;
SDL_memcpy (h->cm_map, prop.data.colormap.cmap, 3*sizeof (char)*h->cm_num);
}
Apr 25, 2013
Apr 25, 2013
333
SDL_free (prop.data.colormap.cmap);
Sep 12, 2017
Sep 12, 2017
334
335
336
337
338
if (!cm_map) {
free_xcf_header(h);
return NULL;
}
339
340
341
342
343
344
}
} while (prop.id != PROP_END);
return h;
}
Sep 26, 2009
Sep 26, 2009
345
static void free_xcf_layer (xcf_layer * l) {
Apr 25, 2013
Apr 25, 2013
346
347
SDL_free (l->name);
SDL_free (l);
348
349
}
Sep 26, 2009
Sep 26, 2009
350
static xcf_layer * read_xcf_layer (SDL_RWops * src) {
351
352
353
xcf_layer * l;
xcf_prop prop;
Apr 25, 2013
Apr 25, 2013
354
l = (xcf_layer *) SDL_malloc (sizeof (xcf_layer));
355
356
357
358
359
360
361
362
363
364
365
l->width = SDL_ReadBE32 (src);
l->height = SDL_ReadBE32 (src);
l->layer_type = SDL_ReadBE32 (src);
l->name = read_string (src);
do {
xcf_read_property (src, &prop);
if (prop.id == PROP_OFFSETS) {
l->offset_x = prop.data.offset.x;
l->offset_y = prop.data.offset.y;
May 3, 2002
May 3, 2002
366
367
} else if (prop.id == PROP_VISIBLE) {
l->visible = prop.data.visible ? 1 : 0;
368
369
370
371
372
373
374
375
376
}
} while (prop.id != PROP_END);
l->hierarchy_file_offset = SDL_ReadBE32 (src);
l->layer_mask_offset = SDL_ReadBE32 (src);
return l;
}
Sep 26, 2009
Sep 26, 2009
377
static void free_xcf_channel (xcf_channel * c) {
Apr 25, 2013
Apr 25, 2013
378
379
SDL_free (c->name);
SDL_free (c);
380
381
}
Sep 26, 2009
Sep 26, 2009
382
static xcf_channel * read_xcf_channel (SDL_RWops * src) {
383
384
385
xcf_channel * l;
xcf_prop prop;
Feb 3, 2013
Feb 3, 2013
386
l = (xcf_channel *) SDL_malloc (sizeof (xcf_channel));
387
388
389
390
391
392
393
394
395
396
397
398
399
400
l->width = SDL_ReadBE32 (src);
l->height = SDL_ReadBE32 (src);
l->name = read_string (src);
l->selection = 0;
do {
xcf_read_property (src, &prop);
switch (prop.id) {
case PROP_OPACITY:
l->opacity = prop.data.opacity << 24;
break;
case PROP_COLOR:
l->color = ((Uint32) prop.data.color[0] << 16)
May 22, 2013
May 22, 2013
401
402
| ((Uint32) prop.data.color[1] << 8)
| ((Uint32) prop.data.color[2]);
403
404
405
406
break;
case PROP_SELECTION:
l->selection = 1;
break;
May 3, 2002
May 3, 2002
407
408
409
case PROP_VISIBLE:
l->visible = prop.data.visible ? 1 : 0;
break;
410
default:
Feb 21, 2003
Feb 21, 2003
411
;
412
413
414
415
416
417
418
419
}
} while (prop.id != PROP_END);
l->hierarchy_file_offset = SDL_ReadBE32 (src);
return l;
}
Sep 26, 2009
Sep 26, 2009
420
static void free_xcf_hierarchy (xcf_hierarchy * h) {
Apr 25, 2013
Apr 25, 2013
421
422
SDL_free (h->level_file_offsets);
SDL_free (h);
423
424
}
Sep 26, 2009
Sep 26, 2009
425
static xcf_hierarchy * read_xcf_hierarchy (SDL_RWops * src) {
426
427
428
xcf_hierarchy * h;
int i;
Apr 25, 2013
Apr 25, 2013
429
h = (xcf_hierarchy *) SDL_malloc (sizeof (xcf_hierarchy));
430
431
432
433
434
435
436
h->width = SDL_ReadBE32 (src);
h->height = SDL_ReadBE32 (src);
h->bpp = SDL_ReadBE32 (src);
h->level_file_offsets = NULL;
i = 0;
do {
Jul 27, 2013
Jul 27, 2013
437
h->level_file_offsets = (Uint32 *) SDL_realloc (h->level_file_offsets, sizeof (Uint32) * (i+1));
438
439
440
441
442
443
h->level_file_offsets [i] = SDL_ReadBE32 (src);
} while (h->level_file_offsets [i++]);
return h;
}
Sep 26, 2009
Sep 26, 2009
444
static void free_xcf_level (xcf_level * l) {
Apr 25, 2013
Apr 25, 2013
445
446
SDL_free (l->tile_file_offsets);
SDL_free (l);
447
448
}
Sep 26, 2009
Sep 26, 2009
449
static xcf_level * read_xcf_level (SDL_RWops * src) {
450
451
452
xcf_level * l;
int i;
Feb 3, 2013
Feb 3, 2013
453
l = (xcf_level *) SDL_malloc (sizeof (xcf_level));
454
455
456
457
458
459
l->width = SDL_ReadBE32 (src);
l->height = SDL_ReadBE32 (src);
l->tile_file_offsets = NULL;
i = 0;
do {
Feb 3, 2013
Feb 3, 2013
460
l->tile_file_offsets = (Uint32 *) SDL_realloc (l->tile_file_offsets, sizeof (Uint32) * (i+1));
461
462
463
464
465
466
l->tile_file_offsets [i] = SDL_ReadBE32 (src);
} while (l->tile_file_offsets [i++]);
return l;
}
Sep 26, 2009
Sep 26, 2009
467
static void free_xcf_tile (unsigned char * t) {
Apr 25, 2013
Apr 25, 2013
468
SDL_free (t);
469
470
}
Sep 26, 2009
Sep 26, 2009
471
static unsigned char * load_xcf_tile_none (SDL_RWops * src, Uint32 len, int bpp, int x, int y) {
472
473
unsigned char * load;
Feb 3, 2013
Feb 3, 2013
474
load = (unsigned char *) SDL_malloc (len); // expect this is okay
475
476
477
478
479
SDL_RWread (src, load, len, 1);
return load;
}
Sep 26, 2009
Sep 26, 2009
480
static unsigned char * load_xcf_tile_rle (SDL_RWops * src, Uint32 len, int bpp, int x, int y) {
481
482
483
484
485
unsigned char * load, * t, * data, * d;
Uint32 reallen;
int i, size, count, j, length;
unsigned char val;
Feb 3, 2013
Feb 3, 2013
486
t = load = (unsigned char *) SDL_malloc (len);
487
488
reallen = SDL_RWread (src, t, 1, len);
Jan 27, 2018
Jan 27, 2018
489
data = (unsigned char *) SDL_calloc (1, x*y*bpp);
490
491
492
493
for (i = 0; i < bpp; i++) {
d = data + i;
size = x*y;
count = 0;
May 22, 2013
May 22, 2013
494
495
496
497
498
499
while (size > 0) {
val = *t++;
length = val;
if (length >= 128) {
May 22, 2013
May 22, 2013
500
501
502
503
504
505
length = 255 - (length - 1);
if (length == 128) {
length = (*t << 8) + t[1];
t += 2;
}
Jan 27, 2018
Jan 27, 2018
506
507
508
509
510
511
if (((size_t) (t - load) + length) >= len) {
break; /* bogus data */
} else if (length > size) {
break; /* bogus data */
}
May 22, 2013
May 22, 2013
512
513
514
515
516
517
518
count += length;
size -= length;
while (length-- > 0) {
*d = *t++;
d += bpp;
}
519
520
}
else {
May 22, 2013
May 22, 2013
521
522
523
524
525
length += 1;
if (length == 128) {
length = (*t << 8) + t[1];
t += 2;
}
526
Jan 27, 2018
Jan 27, 2018
527
528
529
530
531
532
if (((size_t) (t - load)) >= len) {
break; /* bogus data */
} else if (length > size) {
break; /* bogus data */
}
May 22, 2013
May 22, 2013
533
534
count += length;
size -= length;
535
May 22, 2013
May 22, 2013
536
val = *t++;
537
May 22, 2013
May 22, 2013
538
539
540
541
for (j = 0; j < length; j++) {
*d = val;
d += bpp;
}
542
543
}
}
Jan 27, 2018
Jan 27, 2018
544
545
546
547
548
if (size > 0) {
break; /* just drop out, untouched data initialized to zero. */
}
549
550
}
Feb 3, 2013
Feb 3, 2013
551
SDL_free (load);
552
553
554
555
556
return (data);
}
static Uint32 rgb2grey (Uint32 a) {
Uint8 l;
Apr 17, 2013
Apr 17, 2013
557
558
559
l = (Uint8)(0.2990 * ((a & 0x00FF0000) >> 16)
+ 0.5870 * ((a & 0x0000FF00) >> 8)
+ 0.1140 * ((a & 0x000000FF)));
560
561
562
563
return (l << 16) | (l << 8) | l;
}
Sep 26, 2009
Sep 26, 2009
564
static void create_channel_surface (SDL_Surface * surf, xcf_image_type itype, Uint32 color, Uint32 opacity) {
Feb 21, 2003
Feb 21, 2003
565
Uint32 c = 0;
566
567
568
569
570
571
572
573
574
575
576
577
578
switch (itype) {
case IMAGE_RGB:
case IMAGE_INDEXED:
c = opacity | color;
break;
case IMAGE_GREYSCALE:
c = opacity | rgb2grey (color);
break;
}
SDL_FillRect (surf, NULL, c);
}
Sep 12, 2017
Sep 12, 2017
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
static int
do_layer_surface(SDL_Surface * surface, SDL_RWops * src, xcf_header * head, xcf_layer * layer, load_tile_type load_tile)
{
xcf_hierarchy *hierarchy;
xcf_level *level;
unsigned char *tile;
Uint8 *p8;
Uint16 *p16;
Uint32 *p;
int i, j;
Uint32 x, y, tx, ty, ox, oy;
Uint32 *row;
SDL_RWseek(src, layer->hierarchy_file_offset, RW_SEEK_SET);
hierarchy = read_xcf_hierarchy(src);
level = NULL;
for (i = 0; hierarchy->level_file_offsets[i]; i++) {
SDL_RWseek(src, hierarchy->level_file_offsets[i], RW_SEEK_SET);
level = read_xcf_level(src);
ty = tx = 0;
for (j = 0; level->tile_file_offsets[j]; j++) {
SDL_RWseek(src, level->tile_file_offsets[j], RW_SEEK_SET);
ox = tx + 64 > level->width ? level->width % 64 : 64;
oy = ty + 64 > level->height ? level->height % 64 : 64;
if (level->tile_file_offsets[j + 1]) {
tile = load_tile(src, level->tile_file_offsets[j + 1] - level->tile_file_offsets[j], hierarchy->bpp, ox, oy);
} else {
tile = load_tile(src, ox * oy * 6, hierarchy->bpp, ox, oy);
}
p8 = tile;
p16 = (Uint16 *) p8;
p = (Uint32 *) p8;
for (y = ty; y < ty + oy; y++) {
row = (Uint32 *) ((Uint8 *) surface->pixels + y * surface->pitch + tx * 4);
switch (hierarchy->bpp) {
case 4:
for (x = tx; x < tx + ox; x++)
*row++ = Swap32(*p++);
break;
case 3:
for (x = tx; x < tx + ox; x++) {
*row = 0xFF000000;
*row |= ((Uint32)*p8++ << 16);
*row |= ((Uint32)*p8++ << 8);
*row |= ((Uint32)*p8++ << 0);
row++;
}
break;
case 2:
/* Indexed / Greyscale + Alpha */
switch (head->image_type) {
case IMAGE_INDEXED:
for (x = tx; x < tx + ox; x++) {
*row = ((Uint32)(head->cm_map[*p8 * 3]) << 16);
*row |= ((Uint32)(head->cm_map[*p8 * 3 + 1]) << 8);
*row |= ((Uint32)(head->cm_map[*p8++ * 3 + 2]) << 0);
*row |= ((Uint32)*p8++ << 24);
row++;
}
break;
case IMAGE_GREYSCALE:
for (x = tx; x < tx + ox; x++) {
*row = ((Uint32)*p8 << 16);
*row |= ((Uint32)*p8 << 8);
*row |= ((Uint32)*p8++ << 0);
*row |= ((Uint32)*p8++ << 24);
row++;
}
break;
default:
Nov 5, 2017
Nov 5, 2017
653
SDL_Log("Unknown Gimp image type (%d)\n", head->image_type);
Sep 12, 2017
Sep 12, 2017
654
655
656
657
658
659
660
661
662
663
664
665
666
if (hierarchy) {
if (hierarchy->level_file_offsets)
SDL_free(hierarchy->level_file_offsets);
free_xcf_hierarchy(hierarchy);
}
if (level)
free_xcf_level(level);
return 1;
}
break;
case 1:
/* Indexed / Greyscale */
Oct 22, 2017
Oct 22, 2017
667
switch (head->image_type) {
Sep 12, 2017
Sep 12, 2017
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
case IMAGE_INDEXED:
for (x = tx; x < tx + ox; x++) {
*row++ = 0xFF000000
| ((Uint32)(head->cm_map[*p8 * 3]) << 16)
| ((Uint32)(head->cm_map[*p8 * 3 + 1]) << 8)
| ((Uint32)(head->cm_map[*p8 * 3 + 2]) << 0);
p8++;
}
break;
case IMAGE_GREYSCALE:
for (x = tx; x < tx + ox; x++) {
*row++ = 0xFF000000
| (((Uint32)(*p8)) << 16)
| (((Uint32)(*p8)) << 8)
| (((Uint32)(*p8)) << 0);
++p8;
}
break;
default:
Nov 5, 2017
Nov 5, 2017
687
SDL_Log("Unknown Gimp image type (%d)\n", head->image_type);
Sep 12, 2017
Sep 12, 2017
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
if (tile)
free_xcf_tile(tile);
if (level)
free_xcf_level(level);
if (hierarchy)
free_xcf_hierarchy(hierarchy);
return 1;
}
break;
}
}
free_xcf_tile(tile);
tx += 64;
if (tx >= level->width) {
tx = 0;
ty += 64;
}
if (ty >= level->height) {
break;
}
May 22, 2013
May 22, 2013
709
}
Sep 12, 2017
Sep 12, 2017
710
free_xcf_level(level);
May 22, 2013
May 22, 2013
711
}
712
Sep 12, 2017
Sep 12, 2017
713
free_xcf_hierarchy(hierarchy);
714
Sep 12, 2017
Sep 12, 2017
715
return 0;
716
717
}
Feb 4, 2006
Feb 4, 2006
718
719
SDL_Surface *IMG_LoadXCF_RW(SDL_RWops *src)
{
Feb 3, 2013
Feb 3, 2013
720
Sint64 start;
Feb 4, 2006
Feb 4, 2006
721
const char *error = NULL;
722
723
724
725
SDL_Surface *surface, *lays;
xcf_header * head;
xcf_layer * layer;
xcf_channel ** channel;
Feb 4, 2006
Feb 4, 2006
726
int chnls, i, offsets;
Feb 3, 2013
Feb 3, 2013
727
Sint64 offset, fp;
728
729
730
unsigned char * (* load_tile) (SDL_RWops *, Uint32, int, int, int);
Sep 12, 2017
Sep 12, 2017
731
if (!src) {
Jan 4, 2004
Jan 4, 2004
732
733
734
/* The error message has been set in SDL_RWFromFile */
return NULL;
}
Feb 4, 2006
Feb 4, 2006
735
start = SDL_RWtell(src);
Jan 4, 2004
Jan 4, 2004
736
Feb 21, 2003
Feb 21, 2003
737
738
739
/* Initialize the data we will clean up when we're done */
surface = NULL;
Sep 12, 2017
Sep 12, 2017
740
741
742
743
head = read_xcf_header(src);
if (!head) {
return NULL;
}
744
745
746
747
748
749
750
751
752
switch (head->compr) {
case COMPR_NONE:
load_tile = load_xcf_tile_none;
break;
case COMPR_RLE:
load_tile = load_xcf_tile_rle;
break;
default:
Nov 5, 2017
Nov 5, 2017
753
SDL_Log("Unsupported Compression.\n");
754
755
756
757
758
free_xcf_header (head);
return NULL;
}
/* Create the surface of the appropriate type */
Jan 23, 2012
Jan 23, 2012
759
surface = SDL_CreateRGBSurface(SDL_SWSURFACE, head->width, head->height, 32,
May 22, 2013
May 22, 2013
760
0x00FF0000,0x0000FF00,0x000000FF,0xFF000000);
761
762
if ( surface == NULL ) {
Feb 4, 2006
Feb 4, 2006
763
error = "Out of memory";
764
765
766
767
768
goto done;
}
offsets = 0;
Feb 21, 2003
Feb 21, 2003
769
while ((offset = SDL_ReadBE32 (src))) {
Jul 27, 2013
Jul 27, 2013
770
head->layer_file_offsets = (Uint32 *) SDL_realloc (head->layer_file_offsets, sizeof (Uint32) * (offsets+1));
Feb 3, 2013
Feb 3, 2013
771
head->layer_file_offsets [offsets] = (Uint32)offset;
772
773
774
offsets++;
}
fp = SDL_RWtell (src);
May 22, 2013
May 22, 2013
775
Jan 23, 2012
Jan 23, 2012
776
lays = SDL_CreateRGBSurface(SDL_SWSURFACE, head->width, head->height, 32,
May 22, 2013
May 22, 2013
777
0x00FF0000,0x0000FF00,0x000000FF,0xFF000000);
778
779
if ( lays == NULL ) {
Feb 4, 2006
Feb 4, 2006
780
error = "Out of memory";
781
782
783
784
785
786
goto done;
}
// Blit layers backwards, because Gimp saves them highest first
for (i = offsets; i > 0; i--) {
SDL_Rect rs, rd;
Nov 8, 2009
Nov 8, 2009
787
SDL_RWseek (src, head->layer_file_offsets [i-1], RW_SEEK_SET);
788
789
790
791
792
793
794
795
796
797
798
799
layer = read_xcf_layer (src);
do_layer_surface (lays, src, head, layer, load_tile);
rs.x = 0;
rs.y = 0;
rs.w = layer->width;
rs.h = layer->height;
rd.x = layer->offset_x;
rd.y = layer->offset_y;
rd.w = layer->width;
rd.h = layer->height;
May 3, 2002
May 3, 2002
800
801
802
if (layer->visible)
SDL_BlitSurface (lays, &rs, surface, &rd);
free_xcf_layer (layer);
803
804
805
806
}
SDL_FreeSurface (lays);
Nov 8, 2009
Nov 8, 2009
807
SDL_RWseek (src, fp, RW_SEEK_SET);
808
809
810
811
// read channels
channel = NULL;
chnls = 0;
Feb 21, 2003
Feb 21, 2003
812
while ((offset = SDL_ReadBE32 (src))) {
Feb 3, 2013
Feb 3, 2013
813
channel = (xcf_channel **) SDL_realloc (channel, sizeof (xcf_channel *) * (chnls+1));
814
fp = SDL_RWtell (src);
Nov 8, 2009
Nov 8, 2009
815
SDL_RWseek (src, offset, RW_SEEK_SET);
816
channel [chnls++] = (read_xcf_channel (src));
May 22, 2013
May 22, 2013
817
SDL_RWseek (src, fp, RW_SEEK_SET);
818
819
820
821
822
}
if (chnls) {
SDL_Surface * chs;
Jan 23, 2012
Jan 23, 2012
823
chs = SDL_CreateRGBSurface(SDL_SWSURFACE, head->width, head->height, 32,
May 22, 2013
May 22, 2013
824
0x00FF0000,0x0000FF00,0x000000FF,0xFF000000);
825
826
if (chs == NULL) {
Feb 4, 2006
Feb 4, 2006
827
error = "Out of memory";
828
829
830
831
goto done;
}
for (i = 0; i < chnls; i++) {
// printf ("CNLBLT %i\n", i);
May 3, 2002
May 3, 2002
832
if (!channel [i]->selection && channel [i]->visible) {
May 22, 2013
May 22, 2013
833
834
create_channel_surface (chs, (xcf_image_type)head->image_type, channel [i]->color, channel [i]->opacity);
SDL_BlitSurface (chs, NULL, surface, NULL);
835
836
837
838
839
840
841
}
free_xcf_channel (channel [i]);
}
SDL_FreeSurface (chs);
}
Feb 4, 2006
Feb 4, 2006
842
done:
843
free_xcf_header (head);
Feb 4, 2006
Feb 4, 2006
844
if ( error ) {
Nov 8, 2009
Nov 8, 2009
845
SDL_RWseek(src, start, RW_SEEK_SET);
Feb 4, 2006
Feb 4, 2006
846
847
848
849
if ( surface ) {
SDL_FreeSurface(surface);
surface = NULL;
}
Jun 15, 2014
Jun 15, 2014
850
IMG_SetError("%s", error);
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
}
return(surface);
}
#else
/* See if an image is contained in a data source */
int IMG_isXCF(SDL_RWops *src)
{
return(0);
}
/* Load a XCF type image from an SDL datasource */
SDL_Surface *IMG_LoadXCF_RW(SDL_RWops *src)
{
return(NULL);
}
#endif /* LOAD_XCF */