source: libcaca/trunk/src/common-image.c @ 1267

Last change on this file since 1267 was 1255, checked in by Sam Hocevar, 14 years ago
  • Fix broken Imlib2 support in cacaview.
  • Property svn:keywords set to Id
File size: 6.9 KB
Line 
1/*
2 *  Imaging tools for cacaview and img2irc
3 *  Copyright (c) 2003-2006 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  $Id: common-image.c 1255 2006-10-29 08:06:27Z sam $
7 *
8 *  This program is free software; you can redistribute it and/or
9 *  modify it under the terms of the Do What The Fuck You Want To
10 *  Public License, Version 2, as published by Sam Hocevar. See
11 *  http://sam.zoy.org/wtfpl/COPYING for more details.
12 */
13
14#include "config.h"
15#include "common.h"
16
17#if !defined(__KERNEL__)
18#   include <stdio.h>
19#   include <string.h>
20#   include <stdlib.h>
21#endif
22
23#if defined(USE_IMLIB2)
24#   include <Imlib2.h>
25#else
26#   if !defined(__KERNEL__)
27#      include <stdio.h>
28#   endif
29#endif
30
31#include "cucul.h"
32#include "common-image.h"
33
34#if !defined(USE_IMLIB2)
35static unsigned int u32fread(FILE *);
36static unsigned int u16fread(FILE *);
37static unsigned int u8fread(FILE *);
38#endif
39
40struct image * load_image(char const * name)
41{
42    struct image * im = malloc(sizeof(struct image));
43    unsigned int depth, bpp, rmask, gmask, bmask, amask;
44
45#if defined(USE_IMLIB2)
46    Imlib_Image image;
47
48    /* Load the new image */
49    image = imlib_load_image(name);
50
51    if(!image)
52    {
53        free(im);
54        return NULL;
55    }
56
57    imlib_context_set_image(image);
58    im->pixels = (char *)imlib_image_get_data_for_reading_only();
59    im->w = imlib_image_get_width();
60    im->h = imlib_image_get_height();
61    rmask = 0x00ff0000;
62    gmask = 0x0000ff00;
63    bmask = 0x000000ff;
64    amask = 0xff000000;
65    bpp = 32;
66    depth = 4;
67
68    /* Create the libcucul dither */
69    im->dither = cucul_create_dither(bpp, im->w, im->h, depth * im->w,
70                                     rmask, gmask, bmask, amask);
71    if(!im->dither)
72    {
73        imlib_free_image();
74        free(im);
75        return NULL;
76    }
77
78    im->priv = (void *)image;
79
80#else
81    /* Try to load a BMP file */
82    unsigned int red[256], green[256], blue[256], alpha[256];
83    unsigned int i, colors, offset, tmp, planes;
84    FILE *fp;
85
86    fp = fopen(name, "rb");
87    if(!fp)
88    {
89        free(im);
90        return NULL;
91    }
92
93    if(u16fread(fp) != 0x4d42)
94    {
95        fclose(fp);
96        free(im);
97        return NULL;
98    }
99
100    u32fread(fp); /* size */
101    u16fread(fp); /* reserved 1 */
102    u16fread(fp); /* reserved 2 */
103
104    offset = u32fread(fp);
105
106    tmp = u32fread(fp); /* header size */
107    if(tmp == 40)
108    {
109        im->w = u32fread(fp);
110        im->h = u32fread(fp);
111        planes = u16fread(fp);
112        bpp = u16fread(fp);
113
114        tmp = u32fread(fp); /* compression */
115        if(tmp != 0)
116        {
117            fclose(fp);
118            free(im);
119            return NULL;
120        }
121
122        u32fread(fp); /* sizeimage */
123        u32fread(fp); /* xpelspermeter */
124        u32fread(fp); /* ypelspermeter */
125        u32fread(fp); /* biclrused */
126        u32fread(fp); /* biclrimportantn */
127
128        colors = (offset - 54) / 4;
129        for(i = 0; i < colors && i < 256; i++)
130        {
131            blue[i] = u8fread(fp) * 16;
132            green[i] = u8fread(fp) * 16;
133            red[i] = u8fread(fp) * 16;
134            alpha[i] = 0;
135            u8fread(fp);
136        }
137    }
138    else if(tmp == 12)
139    {
140        im->w = u32fread(fp);
141        im->h = u32fread(fp);
142        planes = u16fread(fp);
143        bpp = u16fread(fp);
144
145        colors = (offset - 26) / 3;
146        for(i = 0; i < colors && i < 256; i++)
147        {
148            blue[i] = u8fread(fp);
149            green[i] = u8fread(fp);
150            red[i] = u8fread(fp);
151            alpha[i] = 0;
152        }
153    }
154    else
155    {
156        fclose(fp);
157        free(im);
158        return NULL;
159    }
160
161    /* Fill the rest of the palette */
162    for(i = colors; i < 256; i++)
163        blue[i] = green[i] = red[i] = alpha[i] = 0;
164
165    depth = (bpp + 7) / 8;
166
167    /* Sanity check */
168    if(!im->w || im->w > 0x10000 || !im->h || im->h > 0x10000 || planes != 1)
169    {
170        fclose(fp);
171        free(im);
172        return NULL;
173    }
174
175    /* Allocate the pixel buffer */
176    im->pixels = malloc(im->w * im->h * depth);
177    if(!im->pixels)
178    {
179        fclose(fp);
180        free(im);
181        return NULL;
182    }
183
184    memset(im->pixels, 0, im->w * im->h * depth);
185
186    /* Read the bitmap data */
187    for(i = im->h; i--; )
188    {
189        unsigned int j, k, bits = 0;
190
191        switch(bpp)
192        {
193            case 1:
194                for(j = 0; j < im->w; j++)
195                {
196                    k = j % 32;
197                    if(k == 0)
198                        bits = u32fread(fp);
199                    im->pixels[im->w * i * depth + j] =
200                        (bits >> ((k & ~0xf) + 0xf - (k & 0xf))) & 0x1;
201                }
202                break;
203            case 4:
204                for(j = 0; j < im->w; j++)
205                {
206                    k = j % 8;
207                    if(k == 0)
208                        bits = u32fread(fp);
209                    im->pixels[im->w * i * depth + j] =
210                        (bits >> (4 * ((k & ~0x1) + 0x1 - (k & 0x1)))) & 0xf;
211                }
212                break;
213            default:
214                /* Works for 8bpp, but also for 16, 24 etc. */
215                fread(im->pixels + im->w * i * depth, im->w * depth, 1, fp);
216                /* Pad reads to 4 bytes */
217                tmp = (im->w * depth) % 4;
218                tmp = (4 - tmp) % 4;
219                while(tmp--)
220                    u8fread(fp);
221                break;
222        }
223    }
224
225    switch(depth)
226    {
227    case 3:
228        rmask = 0xff0000;
229        gmask = 0x00ff00;
230        bmask = 0x0000ff;
231        amask = 0x000000;
232        break;
233    case 2: /* XXX: those are the 16 bits values */
234        rmask = 0x7c00;
235        gmask = 0x03e0;
236        bmask = 0x001f;
237        amask = 0x0000;
238        break;
239    case 1:
240    default:
241        bpp = 8;
242        rmask = gmask = bmask = amask = 0;
243        break;
244    }
245
246    fclose(fp);
247
248    /* Create the libcucul dither */
249    im->dither = cucul_create_dither(bpp, im->w, im->h, depth * im->w,
250                                     rmask, gmask, bmask, amask);
251    if(!im->dither)
252    {
253        free(im->pixels);
254        free(im);
255        return NULL;
256    }
257
258    if(bpp == 8)
259        cucul_set_dither_palette(im->dither, red, green, blue, alpha);
260#endif
261
262    return im;
263}
264
265void unload_image(struct image * im)
266{
267#if defined(USE_IMLIB2)
268    /* Imlib_Image image = (Imlib_Image)im->priv; */
269    imlib_free_image();
270#else
271    free(im->pixels);
272#endif
273    cucul_free_dither(im->dither);
274}
275
276#if !defined(USE_IMLIB2)
277static unsigned int u32fread(FILE *fp)
278{
279    unsigned char buffer[4];
280    fread(buffer, 4, 1, fp);
281    return ((unsigned int)buffer[3] << 24) | ((unsigned int)buffer[2] << 16)
282             | ((unsigned int)buffer[1] << 8) | ((unsigned int)buffer[0]);
283}
284
285static unsigned int u16fread(FILE *fp)
286{
287    unsigned char buffer[2];
288    fread(buffer, 2, 1, fp);
289    return ((unsigned int)buffer[1] << 8) | ((unsigned int)buffer[0]);
290}
291
292static unsigned int u8fread(FILE *fp)
293{
294    unsigned char buffer;
295    fread(&buffer, 1, 1, fp);
296    return (unsigned int)buffer;
297}
298#endif
299
Note: See TracBrowser for help on using the repository browser.