rev |
line source |
nuclear@0
|
1 /*
|
nuclear@0
|
2 colcycle - color cycling image viewer
|
nuclear@0
|
3 Copyright (C) 2016-2017 John Tsiombikas <nuclear@member.fsf.org>
|
nuclear@0
|
4
|
nuclear@0
|
5 This program is free software: you can redistribute it and/or modify
|
nuclear@0
|
6 it under the terms of the GNU General Public License as published by
|
nuclear@0
|
7 the Free Software Foundation, either version 3 of the License, or
|
nuclear@0
|
8 (at your option) any later version.
|
nuclear@0
|
9
|
nuclear@0
|
10 This program is distributed in the hope that it will be useful,
|
nuclear@0
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
nuclear@0
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
nuclear@0
|
13 GNU General Public License for more details.
|
nuclear@0
|
14
|
nuclear@0
|
15 You should have received a copy of the GNU General Public License
|
nuclear@0
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>.
|
nuclear@0
|
17 */
|
nuclear@0
|
18 #include <stdio.h>
|
nuclear@0
|
19 #include <stdlib.h>
|
nuclear@0
|
20 #include <assert.h>
|
nuclear@0
|
21 #include <inttypes.h>
|
nuclear@0
|
22 #include <string.h>
|
nuclear@0
|
23 #if defined(__WATCOMC__) || defined(_MSC_VER)
|
nuclear@0
|
24 #include <malloc.h>
|
nuclear@0
|
25 #else
|
nuclear@0
|
26 #include <alloca.h>
|
nuclear@0
|
27 #endif
|
nuclear@0
|
28 #include "imagelbm.h"
|
nuclear@0
|
29
|
nuclear@0
|
30 #ifdef __GNUC__
|
nuclear@0
|
31 #define PACKED __attribute__((packed))
|
nuclear@0
|
32 #endif
|
nuclear@0
|
33
|
nuclear@0
|
34 #ifdef __BYTE_ORDER__
|
nuclear@0
|
35 #if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
|
nuclear@0
|
36 #define LENDIAN
|
nuclear@0
|
37 #else
|
nuclear@0
|
38 #define BENDIAN
|
nuclear@0
|
39 #endif
|
nuclear@0
|
40 #endif
|
nuclear@0
|
41
|
nuclear@0
|
42 #define MKID(a, b, c, d) (((a) << 24) | ((b) << 16) | ((c) << 8) | (d))
|
nuclear@0
|
43
|
nuclear@0
|
44 #define IS_IFF_CONTAINER(id) ((id) == IFF_FORM || (id) == IFF_CAT || (id) == IFF_LIST)
|
nuclear@0
|
45
|
nuclear@0
|
46 enum {
|
nuclear@0
|
47 IFF_FORM = MKID('F', 'O', 'R', 'M'),
|
nuclear@0
|
48 IFF_CAT = MKID('C', 'A', 'T', ' '),
|
nuclear@0
|
49 IFF_LIST = MKID('L', 'I', 'S', 'T'),
|
nuclear@0
|
50 IFF_ILBM = MKID('I', 'L', 'B', 'M'),
|
nuclear@0
|
51 IFF_PBM = MKID('P', 'B', 'M', ' '),
|
nuclear@0
|
52 IFF_BMHD = MKID('B', 'M', 'H', 'D'),
|
nuclear@0
|
53 IFF_CMAP = MKID('C', 'M', 'A', 'P'),
|
nuclear@0
|
54 IFF_BODY = MKID('B', 'O', 'D', 'Y'),
|
nuclear@0
|
55 IFF_CRNG = MKID('C', 'R', 'N', 'G')
|
nuclear@0
|
56 };
|
nuclear@0
|
57
|
nuclear@0
|
58
|
nuclear@0
|
59 struct chdr {
|
nuclear@0
|
60 uint32_t id;
|
nuclear@0
|
61 uint32_t size;
|
nuclear@0
|
62 };
|
nuclear@0
|
63
|
nuclear@0
|
64 #ifdef __WATCOMC__
|
nuclear@0
|
65 #pragma push(pack, 1)
|
nuclear@0
|
66 #endif
|
nuclear@0
|
67 struct bitmap_header {
|
nuclear@0
|
68 uint16_t width, height;
|
nuclear@0
|
69 int16_t xoffs, yoffs;
|
nuclear@0
|
70 uint8_t nplanes;
|
nuclear@0
|
71 uint8_t masking;
|
nuclear@0
|
72 uint8_t compression;
|
nuclear@0
|
73 uint8_t padding;
|
nuclear@0
|
74 uint16_t colorkey;
|
nuclear@0
|
75 uint8_t aspect_num, aspect_denom;
|
nuclear@0
|
76 int16_t pgwidth, pgheight;
|
nuclear@0
|
77 } PACKED;
|
nuclear@0
|
78 #ifdef __WATCOMC__
|
nuclear@0
|
79 #pragma pop(pack)
|
nuclear@0
|
80 #endif
|
nuclear@0
|
81
|
nuclear@0
|
82 enum {
|
nuclear@0
|
83 MASK_NONE,
|
nuclear@0
|
84 MASK_PLANE,
|
nuclear@0
|
85 MASK_COLORKEY,
|
nuclear@0
|
86 MASK_LASSO
|
nuclear@0
|
87 };
|
nuclear@0
|
88
|
nuclear@0
|
89 struct crng {
|
nuclear@0
|
90 uint16_t padding;
|
nuclear@0
|
91 uint16_t rate;
|
nuclear@0
|
92 uint16_t flags;
|
nuclear@0
|
93 uint8_t low, high;
|
nuclear@0
|
94 };
|
nuclear@0
|
95
|
nuclear@0
|
96 enum {
|
nuclear@0
|
97 CRNG_ENABLE = 1,
|
nuclear@0
|
98 CRNG_REVERSE = 2
|
nuclear@0
|
99 };
|
nuclear@0
|
100
|
nuclear@0
|
101 static int read_header(FILE *fp, struct chdr *hdr);
|
nuclear@0
|
102 static int read_ilbm_pbm(FILE *fp, uint32_t type, uint32_t size, struct image *img);
|
nuclear@0
|
103 static int read_bmhd(FILE *fp, struct bitmap_header *bmhd);
|
nuclear@0
|
104 static int read_crng(FILE *fp, struct crng *crng);
|
nuclear@0
|
105 static int read_body_ilbm(FILE *fp, struct bitmap_header *bmhd, struct image *img);
|
nuclear@0
|
106 static int read_body_pbm(FILE *fp, struct bitmap_header *bmhd, struct image *img);
|
nuclear@0
|
107 static int read_compressed_scanline(FILE *fp, unsigned char *scanline, int width);
|
nuclear@0
|
108 static int read16(FILE *fp, uint16_t *res);
|
nuclear@0
|
109 static int read32(FILE *fp, uint32_t *res);
|
nuclear@0
|
110 static uint16_t swap16(uint16_t x);
|
nuclear@0
|
111 static uint32_t swap32(uint32_t x);
|
nuclear@0
|
112
|
nuclear@0
|
113 int file_is_lbm(FILE *fp)
|
nuclear@0
|
114 {
|
nuclear@0
|
115 uint32_t type;
|
nuclear@0
|
116 struct chdr hdr;
|
nuclear@0
|
117
|
nuclear@0
|
118 while(read_header(fp, &hdr) != -1) {
|
nuclear@0
|
119 if(IS_IFF_CONTAINER(hdr.id)) {
|
nuclear@0
|
120 if(read32(fp, &type) == -1) {
|
nuclear@0
|
121 break;
|
nuclear@0
|
122 }
|
nuclear@0
|
123
|
nuclear@0
|
124 if(type == IFF_ILBM || type == IFF_PBM ) {
|
nuclear@0
|
125 rewind(fp);
|
nuclear@0
|
126 return 1;
|
nuclear@0
|
127 }
|
nuclear@0
|
128 hdr.size -= sizeof type; /* so we will seek fwd correctly */
|
nuclear@0
|
129 }
|
nuclear@0
|
130 fseek(fp, hdr.size, SEEK_CUR);
|
nuclear@0
|
131 }
|
nuclear@0
|
132 fseek(fp, 0, SEEK_SET);
|
nuclear@0
|
133 return 0;
|
nuclear@0
|
134 }
|
nuclear@0
|
135
|
nuclear@0
|
136 void print_chunkid(uint32_t id)
|
nuclear@0
|
137 {
|
nuclear@0
|
138 char str[5] = {0};
|
nuclear@0
|
139 #ifdef LENDIAN
|
nuclear@0
|
140 id = swap32(id);
|
nuclear@0
|
141 #endif
|
nuclear@0
|
142 memcpy(str, &id, 4);
|
nuclear@0
|
143 puts(str);
|
nuclear@0
|
144 }
|
nuclear@0
|
145
|
nuclear@0
|
146 int load_image_lbm(struct image *img, FILE *fp)
|
nuclear@0
|
147 {
|
nuclear@0
|
148 uint32_t type;
|
nuclear@0
|
149 struct chdr hdr;
|
nuclear@0
|
150
|
nuclear@0
|
151 while(read_header(fp, &hdr) != -1) {
|
nuclear@0
|
152 if(IS_IFF_CONTAINER(hdr.id)) {
|
nuclear@0
|
153 if(read32(fp, &type) == -1) {
|
nuclear@0
|
154 break;
|
nuclear@0
|
155 }
|
nuclear@0
|
156 hdr.size -= sizeof type; /* to compensate for having advanced 4 more bytes */
|
nuclear@0
|
157
|
nuclear@0
|
158 if(type == IFF_ILBM) {
|
nuclear@0
|
159 if(read_ilbm_pbm(fp, type, hdr.size, img) == -1) {
|
nuclear@0
|
160 return -1;
|
nuclear@0
|
161 }
|
nuclear@0
|
162 return 0;
|
nuclear@0
|
163 }
|
nuclear@0
|
164 if(type == IFF_PBM) {
|
nuclear@0
|
165 if(read_ilbm_pbm(fp, type, hdr.size, img) == -1) {
|
nuclear@0
|
166 return -1;
|
nuclear@0
|
167 }
|
nuclear@0
|
168 return 0;
|
nuclear@0
|
169 }
|
nuclear@0
|
170 }
|
nuclear@0
|
171 fseek(fp, hdr.size, SEEK_CUR);
|
nuclear@0
|
172 }
|
nuclear@0
|
173 return 0;
|
nuclear@0
|
174 }
|
nuclear@0
|
175
|
nuclear@0
|
176 static int read_header(FILE *fp, struct chdr *hdr)
|
nuclear@0
|
177 {
|
nuclear@0
|
178 if(fread(hdr, 1, sizeof *hdr, fp) < sizeof *hdr) {
|
nuclear@0
|
179 return -1;
|
nuclear@0
|
180 }
|
nuclear@0
|
181 #ifdef LENDIAN
|
nuclear@0
|
182 hdr->id = swap32(hdr->id);
|
nuclear@0
|
183 hdr->size = swap32(hdr->size);
|
nuclear@0
|
184 #endif
|
nuclear@0
|
185 return 0;
|
nuclear@0
|
186 }
|
nuclear@0
|
187
|
nuclear@0
|
188 static int read_ilbm_pbm(FILE *fp, uint32_t type, uint32_t size, struct image *img)
|
nuclear@0
|
189 {
|
nuclear@0
|
190 int i, res = -1;
|
nuclear@0
|
191 struct chdr hdr;
|
nuclear@0
|
192 struct bitmap_header bmhd;
|
nuclear@0
|
193 struct crng crng;
|
nuclear@0
|
194 struct colrange *crnode;
|
nuclear@0
|
195 unsigned char pal[3 * 256];
|
nuclear@0
|
196 unsigned char *pptr;
|
nuclear@0
|
197 long start = ftell(fp);
|
nuclear@0
|
198
|
nuclear@0
|
199 memset(img, 0, sizeof *img);
|
nuclear@0
|
200
|
nuclear@0
|
201 while(read_header(fp, &hdr) != -1 && ftell(fp) - start < size) {
|
nuclear@0
|
202 switch(hdr.id) {
|
nuclear@0
|
203 case IFF_BMHD:
|
nuclear@0
|
204 assert(hdr.size == 20);
|
nuclear@0
|
205 if(read_bmhd(fp, &bmhd) == -1) {
|
nuclear@0
|
206 return -1;
|
nuclear@0
|
207 }
|
nuclear@0
|
208 img->width = bmhd.width;
|
nuclear@0
|
209 img->height = bmhd.height;
|
nuclear@0
|
210 img->bpp = bmhd.nplanes;
|
nuclear@0
|
211 if(bmhd.nplanes > 8) {
|
nuclear@0
|
212 fprintf(stderr, "%d planes found, only paletized LBM files supported\n", bmhd.nplanes);
|
nuclear@0
|
213 return -1;
|
nuclear@0
|
214 }
|
nuclear@0
|
215 if(!(img->pixels = malloc(img->width * img->height))) {
|
nuclear@0
|
216 fprintf(stderr, "failed to allocate %dx%d image\n", img->width, img->height);
|
nuclear@0
|
217 return -1;
|
nuclear@0
|
218 }
|
nuclear@0
|
219 break;
|
nuclear@0
|
220
|
nuclear@0
|
221 case IFF_CMAP:
|
nuclear@0
|
222 assert(hdr.size / 3 <= 256);
|
nuclear@0
|
223
|
nuclear@0
|
224 if(fread(pal, 1, hdr.size, fp) < hdr.size) {
|
nuclear@0
|
225 fprintf(stderr, "failed to read colormap\n");
|
nuclear@0
|
226 return -1;
|
nuclear@0
|
227 }
|
nuclear@0
|
228 pptr = pal;
|
nuclear@0
|
229 for(i=0; i<256; i++) {
|
nuclear@0
|
230 img->palette[i].r = *pptr++;
|
nuclear@0
|
231 img->palette[i].g = *pptr++;
|
nuclear@0
|
232 img->palette[i].b = *pptr++;
|
nuclear@0
|
233 }
|
nuclear@0
|
234 break;
|
nuclear@0
|
235
|
nuclear@0
|
236 case IFF_CRNG:
|
nuclear@0
|
237 assert(hdr.size == sizeof crng);
|
nuclear@0
|
238
|
nuclear@0
|
239 if(read_crng(fp, &crng) == -1) {
|
nuclear@0
|
240 fprintf(stderr, "failed to read color cycling range chunk\n");
|
nuclear@0
|
241 return -1;
|
nuclear@0
|
242 }
|
nuclear@0
|
243 if(crng.low != crng.high && crng.rate > 0) {
|
nuclear@0
|
244 if(!(crnode = malloc(sizeof *crnode))) {
|
nuclear@0
|
245 fprintf(stderr, "failed to allocate color range node\n");
|
nuclear@0
|
246 return -1;
|
nuclear@0
|
247 }
|
nuclear@0
|
248 crnode->low = crng.low;
|
nuclear@0
|
249 crnode->high = crng.high;
|
nuclear@0
|
250 crnode->cmode = (crng.flags & CRNG_REVERSE) ? CYCLE_REVERSE : CYCLE_NORMAL;
|
nuclear@0
|
251 crnode->rate = crng.rate;
|
nuclear@0
|
252 crnode->next = img->range;
|
nuclear@0
|
253 img->range = crnode;
|
nuclear@0
|
254 ++img->num_ranges;
|
nuclear@0
|
255 }
|
nuclear@0
|
256 break;
|
nuclear@0
|
257
|
nuclear@0
|
258 case IFF_BODY:
|
nuclear@0
|
259 if(!img->pixels) {
|
nuclear@0
|
260 fprintf(stderr, "malformed ILBM image: encountered BODY chunk before BMHD\n");
|
nuclear@0
|
261 return -1;
|
nuclear@0
|
262 }
|
nuclear@0
|
263 if(type == IFF_ILBM) {
|
nuclear@0
|
264 if(read_body_ilbm(fp, &bmhd, img) == -1) {
|
nuclear@0
|
265 fprintf(stderr, "failed to read interleaved pixel data\n");
|
nuclear@0
|
266 return -1;
|
nuclear@0
|
267 }
|
nuclear@0
|
268 } else {
|
nuclear@0
|
269 assert(type == IFF_PBM);
|
nuclear@0
|
270 if(read_body_pbm(fp, &bmhd, img) == -1) {
|
nuclear@0
|
271 fprintf(stderr, "failed to read linear pixel data\n");
|
nuclear@0
|
272 return -1;
|
nuclear@0
|
273 }
|
nuclear@0
|
274 }
|
nuclear@0
|
275 res = 0; /* sucessfully read image */
|
nuclear@0
|
276 break;
|
nuclear@0
|
277
|
nuclear@0
|
278 default:
|
nuclear@0
|
279 /* skip unknown chunks */
|
nuclear@0
|
280 fseek(fp, hdr.size, SEEK_CUR);
|
nuclear@0
|
281 if(ftell(fp) & 1) {
|
nuclear@0
|
282 /* chunks must start at even offsets */
|
nuclear@0
|
283 fseek(fp, 1, SEEK_CUR);
|
nuclear@0
|
284 }
|
nuclear@0
|
285 }
|
nuclear@0
|
286 }
|
nuclear@0
|
287
|
nuclear@0
|
288 return res;
|
nuclear@0
|
289 }
|
nuclear@0
|
290
|
nuclear@0
|
291
|
nuclear@0
|
292 static int read_bmhd(FILE *fp, struct bitmap_header *bmhd)
|
nuclear@0
|
293 {
|
nuclear@0
|
294 if(fread(bmhd, sizeof *bmhd, 1, fp) < 1) {
|
nuclear@0
|
295 return -1;
|
nuclear@0
|
296 }
|
nuclear@0
|
297 #ifdef LENDIAN
|
nuclear@0
|
298 bmhd->width = swap16(bmhd->width);
|
nuclear@0
|
299 bmhd->height = swap16(bmhd->height);
|
nuclear@0
|
300 bmhd->xoffs = swap16(bmhd->xoffs);
|
nuclear@0
|
301 bmhd->yoffs = swap16(bmhd->yoffs);
|
nuclear@0
|
302 bmhd->colorkey = swap16(bmhd->colorkey);
|
nuclear@0
|
303 bmhd->pgwidth = swap16(bmhd->pgwidth);
|
nuclear@0
|
304 bmhd->pgheight = swap16(bmhd->pgheight);
|
nuclear@0
|
305 #endif
|
nuclear@0
|
306 return 0;
|
nuclear@0
|
307 }
|
nuclear@0
|
308
|
nuclear@0
|
309 static int read_crng(FILE *fp, struct crng *crng)
|
nuclear@0
|
310 {
|
nuclear@0
|
311 if(fread(crng, sizeof *crng, 1, fp) < 1) {
|
nuclear@0
|
312 return -1;
|
nuclear@0
|
313 }
|
nuclear@0
|
314 #ifdef LENDIAN
|
nuclear@0
|
315 crng->rate = swap16(crng->rate);
|
nuclear@0
|
316 crng->flags = swap16(crng->flags);
|
nuclear@0
|
317 #endif
|
nuclear@0
|
318 return 0;
|
nuclear@0
|
319 }
|
nuclear@0
|
320
|
nuclear@0
|
321 /* scanline: [bp0 row][bp1 row]...[bpN-1 row][opt mask row]
|
nuclear@0
|
322 * each uncompressed row is width / 8 bytes
|
nuclear@0
|
323 */
|
nuclear@0
|
324 static int read_body_ilbm(FILE *fp, struct bitmap_header *bmhd, struct image *img)
|
nuclear@0
|
325 {
|
nuclear@0
|
326 int i, j, k, bitidx;
|
nuclear@0
|
327 int rowsz = img->width / 8;
|
nuclear@0
|
328 unsigned char *src, *dest = img->pixels;
|
nuclear@0
|
329 unsigned char *rowbuf = alloca(rowsz);
|
nuclear@0
|
330
|
nuclear@0
|
331 assert(bmhd->width == img->width);
|
nuclear@0
|
332 assert(bmhd->height == img->height);
|
nuclear@0
|
333 assert(img->pixels);
|
nuclear@0
|
334
|
nuclear@0
|
335 for(i=0; i<img->height; i++) {
|
nuclear@0
|
336
|
nuclear@0
|
337 memset(dest, 0, img->width); /* clear the whole scanline to OR bits into place */
|
nuclear@0
|
338
|
nuclear@0
|
339 for(j=0; j<bmhd->nplanes; j++) {
|
nuclear@0
|
340 // read a row corresponding to bitplane j
|
nuclear@0
|
341 if(bmhd->compression) {
|
nuclear@0
|
342 if(read_compressed_scanline(fp, rowbuf, rowsz) == -1) {
|
nuclear@0
|
343 return -1;
|
nuclear@0
|
344 }
|
nuclear@0
|
345 } else {
|
nuclear@0
|
346 if(fread(rowbuf, 1, rowsz, fp) < rowsz) {
|
nuclear@0
|
347 return -1;
|
nuclear@0
|
348 }
|
nuclear@0
|
349 }
|
nuclear@0
|
350
|
nuclear@0
|
351 // distribute all bits across the linear output scanline
|
nuclear@0
|
352 src = rowbuf;
|
nuclear@0
|
353 bitidx = 0;
|
nuclear@0
|
354
|
nuclear@0
|
355 for(k=0; k<img->width; k++) {
|
nuclear@0
|
356 dest[k] |= ((*src >> (7 - bitidx)) & 1) << j;
|
nuclear@0
|
357
|
nuclear@0
|
358 if(++bitidx >= 8) {
|
nuclear@0
|
359 bitidx = 0;
|
nuclear@0
|
360 ++src;
|
nuclear@0
|
361 }
|
nuclear@0
|
362 }
|
nuclear@0
|
363 }
|
nuclear@0
|
364
|
nuclear@0
|
365 if(bmhd->masking & MASK_PLANE) {
|
nuclear@0
|
366 /* skip the mask (1bpp) */
|
nuclear@0
|
367 fseek(fp, rowsz, SEEK_CUR);
|
nuclear@0
|
368 }
|
nuclear@0
|
369
|
nuclear@0
|
370 dest += img->width;
|
nuclear@0
|
371 }
|
nuclear@0
|
372 return 0;
|
nuclear@0
|
373 }
|
nuclear@0
|
374
|
nuclear@0
|
375 static int read_body_pbm(FILE *fp, struct bitmap_header *bmhd, struct image *img)
|
nuclear@0
|
376 {
|
nuclear@0
|
377 int i;
|
nuclear@0
|
378 int npixels = img->width * img->height;
|
nuclear@0
|
379 unsigned char *dptr = img->pixels;
|
nuclear@0
|
380
|
nuclear@0
|
381 assert(bmhd->width == img->width);
|
nuclear@0
|
382 assert(bmhd->height == img->height);
|
nuclear@0
|
383 assert(img->pixels);
|
nuclear@0
|
384
|
nuclear@0
|
385 if(bmhd->compression) {
|
nuclear@0
|
386 for(i=0; i<img->height; i++) {
|
nuclear@0
|
387 if(read_compressed_scanline(fp, dptr, img->width) == -1) {
|
nuclear@0
|
388 return -1;
|
nuclear@0
|
389 }
|
nuclear@0
|
390 dptr += img->width;
|
nuclear@0
|
391 }
|
nuclear@0
|
392
|
nuclear@0
|
393 } else {
|
nuclear@0
|
394 /* uncompressed */
|
nuclear@0
|
395 if(fread(img->pixels, 1, npixels, fp) < npixels) {
|
nuclear@0
|
396 return -1;
|
nuclear@0
|
397 }
|
nuclear@0
|
398 }
|
nuclear@0
|
399 return 0;
|
nuclear@0
|
400 }
|
nuclear@0
|
401
|
nuclear@0
|
402 static int read_compressed_scanline(FILE *fp, unsigned char *scanline, int width)
|
nuclear@0
|
403 {
|
nuclear@0
|
404 int i, count, x = 0;
|
nuclear@0
|
405 signed char ctl;
|
nuclear@0
|
406
|
nuclear@0
|
407 while(x < width) {
|
nuclear@0
|
408 if(fread(&ctl, 1, 1, fp) < 1) return -1;
|
nuclear@0
|
409
|
nuclear@0
|
410 if(ctl == -128) continue;
|
nuclear@0
|
411
|
nuclear@0
|
412 if(ctl >= 0) {
|
nuclear@0
|
413 count = ctl + 1;
|
nuclear@0
|
414 if(fread(scanline, 1, count, fp) < count) return -1;
|
nuclear@0
|
415 scanline += count;
|
nuclear@0
|
416
|
nuclear@0
|
417 } else {
|
nuclear@0
|
418 unsigned char pixel;
|
nuclear@0
|
419 count = 1 - ctl;
|
nuclear@0
|
420 if(fread(&pixel, 1, 1, fp) < 1) return -1;
|
nuclear@0
|
421
|
nuclear@0
|
422 for(i=0; i<count; i++) {
|
nuclear@0
|
423 *scanline++ = pixel;
|
nuclear@0
|
424 }
|
nuclear@0
|
425 }
|
nuclear@0
|
426
|
nuclear@0
|
427 x += count;
|
nuclear@0
|
428 }
|
nuclear@0
|
429
|
nuclear@0
|
430 return 0;
|
nuclear@0
|
431 }
|
nuclear@0
|
432
|
nuclear@0
|
433 static int read16(FILE *fp, uint16_t *res)
|
nuclear@0
|
434 {
|
nuclear@0
|
435 if(fread(res, sizeof *res, 1, fp) < 1) {
|
nuclear@0
|
436 return -1;
|
nuclear@0
|
437 }
|
nuclear@0
|
438 #ifdef LENDIAN
|
nuclear@0
|
439 *res = swap16(*res);
|
nuclear@0
|
440 #endif
|
nuclear@0
|
441 return 0;
|
nuclear@0
|
442 }
|
nuclear@0
|
443
|
nuclear@0
|
444 static int read32(FILE *fp, uint32_t *res)
|
nuclear@0
|
445 {
|
nuclear@0
|
446 if(fread(res, sizeof *res, 1, fp) < 1) {
|
nuclear@0
|
447 return -1;
|
nuclear@0
|
448 }
|
nuclear@0
|
449 #ifdef LENDIAN
|
nuclear@0
|
450 *res = swap32(*res);
|
nuclear@0
|
451 #endif
|
nuclear@0
|
452 return 0;
|
nuclear@0
|
453 }
|
nuclear@0
|
454
|
nuclear@0
|
455 static uint16_t swap16(uint16_t x)
|
nuclear@0
|
456 {
|
nuclear@0
|
457 return (x << 8) | (x >> 8);
|
nuclear@0
|
458 }
|
nuclear@0
|
459
|
nuclear@0
|
460 static uint32_t swap32(uint32_t x)
|
nuclear@0
|
461 {
|
nuclear@0
|
462 return (x << 24) | ((x & 0xff00) << 8) | ((x & 0xff0000) >> 8) | (x >> 24);
|
nuclear@0
|
463 }
|