Move reverse manipulation code into ValueDescSet action
[synfig.git] / gtkmm-osx / jpeg-6b / rdtarga.c
1 /*
2  * rdtarga.c
3  *
4  * Copyright (C) 1991-1996, Thomas G. Lane.
5  * This file is part of the Independent JPEG Group's software.
6  * For conditions of distribution and use, see the accompanying README file.
7  *
8  * This file contains routines to read input images in Targa format.
9  *
10  * These routines may need modification for non-Unix environments or
11  * specialized applications.  As they stand, they assume input from
12  * an ordinary stdio stream.  They further assume that reading begins
13  * at the start of the file; start_input may need work if the
14  * user interface has already read some data (e.g., to determine that
15  * the file is indeed Targa format).
16  *
17  * Based on code contributed by Lee Daniel Crocker.
18  */
19
20 #include "cdjpeg.h"             /* Common decls for cjpeg/djpeg applications */
21
22 #ifdef TARGA_SUPPORTED
23
24
25 /* Macros to deal with unsigned chars as efficiently as compiler allows */
26
27 #ifdef HAVE_UNSIGNED_CHAR
28 typedef unsigned char U_CHAR;
29 #define UCH(x)  ((int) (x))
30 #else /* !HAVE_UNSIGNED_CHAR */
31 #ifdef CHAR_IS_UNSIGNED
32 typedef char U_CHAR;
33 #define UCH(x)  ((int) (x))
34 #else
35 typedef char U_CHAR;
36 #define UCH(x)  ((int) (x) & 0xFF)
37 #endif
38 #endif /* HAVE_UNSIGNED_CHAR */
39
40
41 #define ReadOK(file,buffer,len) (JFREAD(file,buffer,len) == ((size_t) (len)))
42
43
44 /* Private version of data source object */
45
46 typedef struct _tga_source_struct * tga_source_ptr;
47
48 typedef struct _tga_source_struct {
49   struct cjpeg_source_struct pub; /* public fields */
50
51   j_compress_ptr cinfo;         /* back link saves passing separate parm */
52
53   JSAMPARRAY colormap;          /* Targa colormap (converted to my format) */
54
55   jvirt_sarray_ptr whole_image; /* Needed if funny input row order */
56   JDIMENSION current_row;       /* Current logical row number to read */
57
58   /* Pointer to routine to extract next Targa pixel from input file */
59   JMETHOD(void, read_pixel, (tga_source_ptr sinfo));
60
61   /* Result of read_pixel is delivered here: */
62   U_CHAR tga_pixel[4];
63
64   int pixel_size;               /* Bytes per Targa pixel (1 to 4) */
65
66   /* State info for reading RLE-coded pixels; both counts must be init to 0 */
67   int block_count;              /* # of pixels remaining in RLE block */
68   int dup_pixel_count;          /* # of times to duplicate previous pixel */
69
70   /* This saves the correct pixel-row-expansion method for preload_image */
71   JMETHOD(JDIMENSION, get_pixel_rows, (j_compress_ptr cinfo,
72                                        cjpeg_source_ptr sinfo));
73 } tga_source_struct;
74
75
76 /* For expanding 5-bit pixel values to 8-bit with best rounding */
77
78 static const UINT8 c5to8bits[32] = {
79     0,   8,  16,  25,  33,  41,  49,  58,
80    66,  74,  82,  90,  99, 107, 115, 123,
81   132, 140, 148, 156, 165, 173, 181, 189,
82   197, 206, 214, 222, 230, 239, 247, 255
83 };
84
85
86
87 LOCAL(int)
88 read_byte (tga_source_ptr sinfo)
89 /* Read next byte from Targa file */
90 {
91   register FILE *infile = sinfo->pub.input_file;
92   register int c;
93
94   if ((c = getc(infile)) == EOF)
95     ERREXIT(sinfo->cinfo, JERR_INPUT_EOF);
96   return c;
97 }
98
99
100 LOCAL(void)
101 read_colormap (tga_source_ptr sinfo, int cmaplen, int mapentrysize)
102 /* Read the colormap from a Targa file */
103 {
104   int i;
105
106   /* Presently only handles 24-bit BGR format */
107   if (mapentrysize != 24)
108     ERREXIT(sinfo->cinfo, JERR_TGA_BADCMAP);
109
110   for (i = 0; i < cmaplen; i++) {
111     sinfo->colormap[2][i] = (JSAMPLE) read_byte(sinfo);
112     sinfo->colormap[1][i] = (JSAMPLE) read_byte(sinfo);
113     sinfo->colormap[0][i] = (JSAMPLE) read_byte(sinfo);
114   }
115 }
116
117
118 /*
119  * read_pixel methods: get a single pixel from Targa file into tga_pixel[]
120  */
121
122 METHODDEF(void)
123 read_non_rle_pixel (tga_source_ptr sinfo)
124 /* Read one Targa pixel from the input file; no RLE expansion */
125 {
126   register FILE *infile = sinfo->pub.input_file;
127   register int i;
128
129   for (i = 0; i < sinfo->pixel_size; i++) {
130     sinfo->tga_pixel[i] = (U_CHAR) getc(infile);
131   }
132 }
133
134
135 METHODDEF(void)
136 read_rle_pixel (tga_source_ptr sinfo)
137 /* Read one Targa pixel from the input file, expanding RLE data as needed */
138 {
139   register FILE *infile = sinfo->pub.input_file;
140   register int i;
141
142   /* Duplicate previously read pixel? */
143   if (sinfo->dup_pixel_count > 0) {
144     sinfo->dup_pixel_count--;
145     return;
146   }
147
148   /* Time to read RLE block header? */
149   if (--sinfo->block_count < 0) { /* decrement pixels remaining in block */
150     i = read_byte(sinfo);
151     if (i & 0x80) {             /* Start of duplicate-pixel block? */
152       sinfo->dup_pixel_count = i & 0x7F; /* number of dups after this one */
153       sinfo->block_count = 0;   /* then read new block header */
154     } else {
155       sinfo->block_count = i & 0x7F; /* number of pixels after this one */
156     }
157   }
158
159   /* Read next pixel */
160   for (i = 0; i < sinfo->pixel_size; i++) {
161     sinfo->tga_pixel[i] = (U_CHAR) getc(infile);
162   }
163 }
164
165
166 /*
167  * Read one row of pixels.
168  *
169  * We provide several different versions depending on input file format.
170  */
171
172
173 METHODDEF(JDIMENSION)
174 get_8bit_gray_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
175 /* This version is for reading 8-bit grayscale pixels */
176 {
177   tga_source_ptr source = (tga_source_ptr) sinfo;
178   register JSAMPROW ptr;
179   register JDIMENSION col;
180   
181   ptr = source->pub.buffer[0];
182   for (col = cinfo->image_width; col > 0; col--) {
183     (*source->read_pixel) (source); /* Load next pixel into tga_pixel */
184     *ptr++ = (JSAMPLE) UCH(source->tga_pixel[0]);
185   }
186   return 1;
187 }
188
189 METHODDEF(JDIMENSION)
190 get_8bit_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
191 /* This version is for reading 8-bit colormap indexes */
192 {
193   tga_source_ptr source = (tga_source_ptr) sinfo;
194   register int t;
195   register JSAMPROW ptr;
196   register JDIMENSION col;
197   register JSAMPARRAY colormap = source->colormap;
198
199   ptr = source->pub.buffer[0];
200   for (col = cinfo->image_width; col > 0; col--) {
201     (*source->read_pixel) (source); /* Load next pixel into tga_pixel */
202     t = UCH(source->tga_pixel[0]);
203     *ptr++ = colormap[0][t];
204     *ptr++ = colormap[1][t];
205     *ptr++ = colormap[2][t];
206   }
207   return 1;
208 }
209
210 METHODDEF(JDIMENSION)
211 get_16bit_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
212 /* This version is for reading 16-bit pixels */
213 {
214   tga_source_ptr source = (tga_source_ptr) sinfo;
215   register int t;
216   register JSAMPROW ptr;
217   register JDIMENSION col;
218   
219   ptr = source->pub.buffer[0];
220   for (col = cinfo->image_width; col > 0; col--) {
221     (*source->read_pixel) (source); /* Load next pixel into tga_pixel */
222     t = UCH(source->tga_pixel[0]);
223     t += UCH(source->tga_pixel[1]) << 8;
224     /* We expand 5 bit data to 8 bit sample width.
225      * The format of the 16-bit (LSB first) input word is
226      *     xRRRRRGGGGGBBBBB
227      */
228     ptr[2] = (JSAMPLE) c5to8bits[t & 0x1F];
229     t >>= 5;
230     ptr[1] = (JSAMPLE) c5to8bits[t & 0x1F];
231     t >>= 5;
232     ptr[0] = (JSAMPLE) c5to8bits[t & 0x1F];
233     ptr += 3;
234   }
235   return 1;
236 }
237
238 METHODDEF(JDIMENSION)
239 get_24bit_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
240 /* This version is for reading 24-bit pixels */
241 {
242   tga_source_ptr source = (tga_source_ptr) sinfo;
243   register JSAMPROW ptr;
244   register JDIMENSION col;
245   
246   ptr = source->pub.buffer[0];
247   for (col = cinfo->image_width; col > 0; col--) {
248     (*source->read_pixel) (source); /* Load next pixel into tga_pixel */
249     *ptr++ = (JSAMPLE) UCH(source->tga_pixel[2]); /* change BGR to RGB order */
250     *ptr++ = (JSAMPLE) UCH(source->tga_pixel[1]);
251     *ptr++ = (JSAMPLE) UCH(source->tga_pixel[0]);
252   }
253   return 1;
254 }
255
256 /*
257  * Targa also defines a 32-bit pixel format with order B,G,R,A.
258  * We presently ignore the attribute byte, so the code for reading
259  * these pixels is identical to the 24-bit routine above.
260  * This works because the actual pixel length is only known to read_pixel.
261  */
262
263 #define get_32bit_row  get_24bit_row
264
265
266 /*
267  * This method is for re-reading the input data in standard top-down
268  * row order.  The entire image has already been read into whole_image
269  * with proper conversion of pixel format, but it's in a funny row order.
270  */
271
272 METHODDEF(JDIMENSION)
273 get_memory_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
274 {
275   tga_source_ptr source = (tga_source_ptr) sinfo;
276   JDIMENSION source_row;
277
278   /* Compute row of source that maps to current_row of normal order */
279   /* For now, assume image is bottom-up and not interlaced. */
280   /* NEEDS WORK to support interlaced images! */
281   source_row = cinfo->image_height - source->current_row - 1;
282
283   /* Fetch that row from virtual array */
284   source->pub.buffer = (*cinfo->mem->access_virt_sarray)
285     ((j_common_ptr) cinfo, source->whole_image,
286      source_row, (JDIMENSION) 1, FALSE);
287
288   source->current_row++;
289   return 1;
290 }
291
292
293 /*
294  * This method loads the image into whole_image during the first call on
295  * get_pixel_rows.  The get_pixel_rows pointer is then adjusted to call
296  * get_memory_row on subsequent calls.
297  */
298
299 METHODDEF(JDIMENSION)
300 preload_image (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
301 {
302   tga_source_ptr source = (tga_source_ptr) sinfo;
303   JDIMENSION row;
304   cd_progress_ptr progress = (cd_progress_ptr) cinfo->progress;
305
306   /* Read the data into a virtual array in input-file row order. */
307   for (row = 0; row < cinfo->image_height; row++) {
308     if (progress != NULL) {
309       progress->pub.pass_counter = (long) row;
310       progress->pub.pass_limit = (long) cinfo->image_height;
311       (*progress->pub.progress_monitor) ((j_common_ptr) cinfo);
312     }
313     source->pub.buffer = (*cinfo->mem->access_virt_sarray)
314       ((j_common_ptr) cinfo, source->whole_image, row, (JDIMENSION) 1, TRUE);
315     (*source->get_pixel_rows) (cinfo, sinfo);
316   }
317   if (progress != NULL)
318     progress->completed_extra_passes++;
319
320   /* Set up to read from the virtual array in unscrambled order */
321   source->pub.get_pixel_rows = get_memory_row;
322   source->current_row = 0;
323   /* And read the first row */
324   return get_memory_row(cinfo, sinfo);
325 }
326
327
328 /*
329  * Read the file header; return image size and component count.
330  */
331
332 METHODDEF(void)
333 start_input_tga (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
334 {
335   tga_source_ptr source = (tga_source_ptr) sinfo;
336   U_CHAR targaheader[18];
337   int idlen, cmaptype, subtype, flags, interlace_type, components;
338   unsigned int width, height, maplen;
339   boolean is_bottom_up;
340
341 #define GET_2B(offset)  ((unsigned int) UCH(targaheader[offset]) + \
342                          (((unsigned int) UCH(targaheader[offset+1])) << 8))
343
344   if (! ReadOK(source->pub.input_file, targaheader, 18))
345     ERREXIT(cinfo, JERR_INPUT_EOF);
346
347   /* Pretend "15-bit" pixels are 16-bit --- we ignore attribute bit anyway */
348   if (targaheader[16] == 15)
349     targaheader[16] = 16;
350
351   idlen = UCH(targaheader[0]);
352   cmaptype = UCH(targaheader[1]);
353   subtype = UCH(targaheader[2]);
354   maplen = GET_2B(5);
355   width = GET_2B(12);
356   height = GET_2B(14);
357   source->pixel_size = UCH(targaheader[16]) >> 3;
358   flags = UCH(targaheader[17]); /* Image Descriptor byte */
359
360   is_bottom_up = ((flags & 0x20) == 0); /* bit 5 set => top-down */
361   interlace_type = flags >> 6;  /* bits 6/7 are interlace code */
362
363   if (cmaptype > 1 ||           /* cmaptype must be 0 or 1 */
364       source->pixel_size < 1 || source->pixel_size > 4 ||
365       (UCH(targaheader[16]) & 7) != 0 || /* bits/pixel must be multiple of 8 */
366       interlace_type != 0)      /* currently don't allow interlaced image */
367     ERREXIT(cinfo, JERR_TGA_BADPARMS);
368   
369   if (subtype > 8) {
370     /* It's an RLE-coded file */
371     source->read_pixel = read_rle_pixel;
372     source->block_count = source->dup_pixel_count = 0;
373     subtype -= 8;
374   } else {
375     /* Non-RLE file */
376     source->read_pixel = read_non_rle_pixel;
377   }
378
379   /* Now should have subtype 1, 2, or 3 */
380   components = 3;               /* until proven different */
381   cinfo->in_color_space = JCS_RGB;
382
383   switch (subtype) {
384   case 1:                       /* Colormapped image */
385     if (source->pixel_size == 1 && cmaptype == 1)
386       source->get_pixel_rows = get_8bit_row;
387     else
388       ERREXIT(cinfo, JERR_TGA_BADPARMS);
389     TRACEMS2(cinfo, 1, JTRC_TGA_MAPPED, width, height);
390     break;
391   case 2:                       /* RGB image */
392     switch (source->pixel_size) {
393     case 2:
394       source->get_pixel_rows = get_16bit_row;
395       break;
396     case 3:
397       source->get_pixel_rows = get_24bit_row;
398       break;
399     case 4:
400       source->get_pixel_rows = get_32bit_row;
401       break;
402     default:
403       ERREXIT(cinfo, JERR_TGA_BADPARMS);
404       break;
405     }
406     TRACEMS2(cinfo, 1, JTRC_TGA, width, height);
407     break;
408   case 3:                       /* Grayscale image */
409     components = 1;
410     cinfo->in_color_space = JCS_GRAYSCALE;
411     if (source->pixel_size == 1)
412       source->get_pixel_rows = get_8bit_gray_row;
413     else
414       ERREXIT(cinfo, JERR_TGA_BADPARMS);
415     TRACEMS2(cinfo, 1, JTRC_TGA_GRAY, width, height);
416     break;
417   default:
418     ERREXIT(cinfo, JERR_TGA_BADPARMS);
419     break;
420   }
421
422   if (is_bottom_up) {
423     /* Create a virtual array to buffer the upside-down image. */
424     source->whole_image = (*cinfo->mem->request_virt_sarray)
425       ((j_common_ptr) cinfo, JPOOL_IMAGE, FALSE,
426        (JDIMENSION) width * components, (JDIMENSION) height, (JDIMENSION) 1);
427     if (cinfo->progress != NULL) {
428       cd_progress_ptr progress = (cd_progress_ptr) cinfo->progress;
429       progress->total_extra_passes++; /* count file input as separate pass */
430     }
431     /* source->pub.buffer will point to the virtual array. */
432     source->pub.buffer_height = 1; /* in case anyone looks at it */
433     source->pub.get_pixel_rows = preload_image;
434   } else {
435     /* Don't need a virtual array, but do need a one-row input buffer. */
436     source->whole_image = NULL;
437     source->pub.buffer = (*cinfo->mem->alloc_sarray)
438       ((j_common_ptr) cinfo, JPOOL_IMAGE,
439        (JDIMENSION) width * components, (JDIMENSION) 1);
440     source->pub.buffer_height = 1;
441     source->pub.get_pixel_rows = source->get_pixel_rows;
442   }
443   
444   while (idlen--)               /* Throw away ID field */
445     (void) read_byte(source);
446
447   if (maplen > 0) {
448     if (maplen > 256 || GET_2B(3) != 0)
449       ERREXIT(cinfo, JERR_TGA_BADCMAP);
450     /* Allocate space to store the colormap */
451     source->colormap = (*cinfo->mem->alloc_sarray)
452       ((j_common_ptr) cinfo, JPOOL_IMAGE, (JDIMENSION) maplen, (JDIMENSION) 3);
453     /* and read it from the file */
454     read_colormap(source, (int) maplen, UCH(targaheader[7]));
455   } else {
456     if (cmaptype)               /* but you promised a cmap! */
457       ERREXIT(cinfo, JERR_TGA_BADPARMS);
458     source->colormap = NULL;
459   }
460
461   cinfo->input_components = components;
462   cinfo->data_precision = 8;
463   cinfo->image_width = width;
464   cinfo->image_height = height;
465 }
466
467
468 /*
469  * Finish up at the end of the file.
470  */
471
472 METHODDEF(void)
473 finish_input_tga (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
474 {
475   /* no work */
476 }
477
478
479 /*
480  * The module selection routine for Targa format input.
481  */
482
483 GLOBAL(cjpeg_source_ptr)
484 jinit_read_targa (j_compress_ptr cinfo)
485 {
486   tga_source_ptr source;
487
488   /* Create module interface object */
489   source = (tga_source_ptr)
490       (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,
491                                   SIZEOF(tga_source_struct));
492   source->cinfo = cinfo;        /* make back link for subroutines */
493   /* Fill in method ptrs, except get_pixel_rows which start_input sets */
494   source->pub.start_input = start_input_tga;
495   source->pub.finish_input = finish_input_tga;
496
497   return (cjpeg_source_ptr) source;
498 }
499
500 #endif /* TARGA_SUPPORTED */