source: libcaca/trunk/examples/cacaview.c @ 314

Last change on this file since 314 was 314, checked in by Sam Hocevar, 19 years ago
  • src/io.c: + Fixed a bug that caused ButtonRelease? events to be forgotten under X11.
  • examples/cacaview.c: + Use <stdlib.h> instead of <malloc.h>.
  • Property svn:keywords set to Id
File size: 18.8 KB
Line 
1/*
2 *  cacaview      image viewer for libcaca
3 *  Copyright (c) 2003 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  $Id: cacaview.c 314 2004-01-05 18:08:50Z sam $
7 *
8 *  This program is free software; you can redistribute it and/or
9 *  modify it under the terms of the GNU Lesser General Public
10 *  License as published by the Free Software Foundation; either
11 *  version 2 of the License, or (at your option) any later version.
12 *
13 *  This program is distributed in the hope that it will be useful,
14 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
15 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 *  Lesser General Public License for more details.
17 *
18 *  You should have received a copy of the GNU Lesser General Public
19 *  License along with this program; if not, write to the Free Software
20 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 *  02111-1307  USA
22 */
23
24#include "config.h"
25
26#include <stdio.h>
27#include <string.h>
28#include <stdlib.h>
29#include <unistd.h>
30
31#if defined(HAVE_IMLIB2_H)
32#   include <Imlib2.h>
33#else
34#   include <stdio.h>
35#endif
36
37#include "caca.h"
38
39/* Local macros */
40#define STATUS_DITHERING 1
41#define STATUS_ANTIALIASING 2
42#define STATUS_BACKGROUND 3
43
44/* Local functions */
45static void load_image(char const *);
46static void unload_image(void);
47static void draw_checkers(unsigned int, unsigned int,
48                          unsigned int, unsigned int);
49#if !defined(HAVE_IMLIB2_H)
50static int freadint(FILE *);
51static int freadshort(FILE *);
52static int freadchar(FILE *);
53#endif
54
55/* Local variables */
56#if defined(HAVE_IMLIB2_H)
57Imlib_Image image = NULL;
58#endif
59char *pixels = NULL;
60struct caca_bitmap *bitmap = NULL;
61int x, y;
62unsigned int w, h, depth, bpp, rmask, gmask, bmask, amask;
63#if !defined(HAVE_IMLIB2_H)
64unsigned int red[256], green[256], blue[256], alpha[256];
65#endif
66
67int main(int argc, char **argv)
68{
69    int quit = 0, update = 1, help = 0, fullscreen = 0, status = 0;
70    int reload = 0, zoom = 0;
71
72    char **list = NULL;
73    int current = 0, items = 0, opts = 1;
74    int i;
75
76    /* Initialise libcaca */
77    if(caca_init())
78    {
79        fprintf(stderr, "%s: unable to initialise libcaca\n", argv[0]);
80        return 1;
81    }
82
83    /* Load items into playlist */
84    for(i = 1; i < argc; i++)
85    {
86        /* Skip options except after `--' */
87        if(opts && argv[i][0] == '-')
88        {
89            if(argv[i][1] == '-' && argv[i][2] == '\0')
90                opts = 0;
91            continue;
92        }
93
94        /* Add argv[i] to the list */
95        if(items)
96            list = realloc(list, (items + 1) * sizeof(char *));
97        else
98            list = malloc(sizeof(char *));
99        list[items] = argv[i];
100        items++;
101
102        reload = 1;
103    }
104
105    /* Go ! */
106    while(!quit)
107    {
108        int ww = caca_get_width();
109        int wh = caca_get_height();
110
111        int event, new_status = 0, new_help = 0;
112
113        while((event = caca_get_event()))
114        {
115            switch(event)
116            {
117            case CACA_EVENT_KEY_PRESS | 'n':
118            case CACA_EVENT_KEY_PRESS | 'N':
119                if(items) current = (current + 1) % items;
120                reload = 1;
121                break;
122            case CACA_EVENT_KEY_PRESS | 'p':
123            case CACA_EVENT_KEY_PRESS | 'P':
124                if(items) current = (items + current - 1) % items;
125                reload = 1;
126                break;
127            case CACA_EVENT_KEY_PRESS | 'f':
128            case CACA_EVENT_KEY_PRESS | 'F':
129                fullscreen = ~fullscreen;
130                update = 1;
131                break;
132            case CACA_EVENT_KEY_PRESS | 'b':
133                i = 1 + caca_get_feature(CACA_BACKGROUND);
134                if(i > CACA_BACKGROUND_MAX) i = CACA_BACKGROUND_MIN;
135                caca_set_feature(i);
136                new_status = STATUS_BACKGROUND;
137                update = 1;
138                break;
139            case CACA_EVENT_KEY_PRESS | 'B':
140                i = -1 + caca_get_feature(CACA_BACKGROUND);
141                if(i < CACA_BACKGROUND_MIN) i = CACA_BACKGROUND_MAX;
142                caca_set_feature(i);
143                new_status = STATUS_BACKGROUND;
144                update = 1;
145                break;
146            case CACA_EVENT_KEY_PRESS | 'a':
147                i = 1 + caca_get_feature(CACA_ANTIALIASING);
148                if(i > CACA_ANTIALIASING_MAX) i = CACA_ANTIALIASING_MIN;
149                caca_set_feature(i);
150                new_status = STATUS_ANTIALIASING;
151                update = 1;
152                break;
153            case CACA_EVENT_KEY_PRESS | 'A':
154                i = -1 + caca_get_feature(CACA_ANTIALIASING);
155                if(i < CACA_ANTIALIASING_MIN) i = CACA_ANTIALIASING_MAX;
156                caca_set_feature(i);
157                new_status = STATUS_ANTIALIASING;
158                update = 1;
159                break;
160            case CACA_EVENT_KEY_PRESS | 'd':
161                i = 1 + caca_get_feature(CACA_DITHERING);
162                if(i > CACA_DITHERING_MAX) i = CACA_DITHERING_MIN;
163                caca_set_feature(i);
164                new_status = STATUS_DITHERING;
165                update = 1;
166                break;
167            case CACA_EVENT_KEY_PRESS | 'D':
168                i = -1 + caca_get_feature(CACA_DITHERING);
169                if(i < CACA_DITHERING_MIN) i = CACA_DITHERING_MAX;
170                caca_set_feature(i);
171                new_status = STATUS_DITHERING;
172                update = 1;
173                break;
174            case CACA_EVENT_KEY_PRESS | '+':
175                zoom++;
176                if(zoom > 48) zoom = 48; else update = 1;
177                break;
178            case CACA_EVENT_KEY_PRESS | '-':
179                zoom--;
180                if(zoom < -48) zoom = -48; else update = 1;
181                break;
182            case CACA_EVENT_KEY_PRESS | 'x':
183            case CACA_EVENT_KEY_PRESS | 'X':
184                zoom = 0;
185                update = 1;
186                break;
187            case CACA_EVENT_KEY_PRESS | 'k':
188            case CACA_EVENT_KEY_PRESS | 'K':
189            case CACA_EVENT_KEY_PRESS | CACA_KEY_UP:
190                if(zoom > 0) y -= 1 + h / (2 + zoom) / 8;
191                update = 1;
192                break;
193            case CACA_EVENT_KEY_PRESS | 'j':
194            case CACA_EVENT_KEY_PRESS | 'J':
195            case CACA_EVENT_KEY_PRESS | CACA_KEY_DOWN:
196                if(zoom > 0) y += 1 + h / (2 + zoom) / 8;
197                update = 1;
198                break;
199            case CACA_EVENT_KEY_PRESS | 'h':
200            case CACA_EVENT_KEY_PRESS | 'H':
201            case CACA_EVENT_KEY_PRESS | CACA_KEY_LEFT:
202                if(zoom > 0) x -= 1 + w / (2 + zoom) / 8;
203                update = 1;
204                break;
205            case CACA_EVENT_KEY_PRESS | 'l':
206            case CACA_EVENT_KEY_PRESS | 'L':
207            case CACA_EVENT_KEY_PRESS | CACA_KEY_RIGHT:
208                if(zoom > 0) x += 1 + w / (2 + zoom) / 8;
209                update = 1;
210                break;
211            case CACA_EVENT_KEY_PRESS | '?':
212                new_help = !help;
213                update = 1;
214                break;
215            case CACA_EVENT_KEY_PRESS | 'q':
216            case CACA_EVENT_KEY_PRESS | 'Q':
217                quit = 1;
218                break;
219            }
220
221            if(status || new_status)
222                status = new_status;
223
224            if(help || new_help)
225                help = new_help;
226        }
227
228        if(items && reload)
229        {
230            char *buffer;
231            int len = strlen(" Loading `%s'... ") + strlen(list[current]);
232
233            if(len < ww + 1)
234                len = ww + 1;
235
236            buffer = malloc(len);
237
238            /* Reset image-specific runtime variables */
239            zoom = 0;
240
241            sprintf(buffer, " Loading `%s'... ", list[current]);
242            buffer[ww] = '\0';
243            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
244            caca_putstr((ww - strlen(buffer)) / 2, wh / 2, buffer);
245            caca_refresh();
246
247            unload_image();
248            load_image(list[current]);
249            reload = 0;
250            update = 1;
251
252            free(buffer);
253        }
254
255        if(!update)
256        {
257            usleep(10000);
258            continue;
259        }
260
261        caca_clear();
262
263        if(!items)
264        {
265            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
266            caca_printf(ww / 2 - 5, wh / 2, " No image. ");
267        }
268        else if(!pixels)
269        {
270#if defined(HAVE_IMLIB2_H)
271#   define ERROR_STRING " Error loading `%s'. "
272#else
273#   define ERROR_STRING " Error loading `%s'. Only BMP is supported. "
274#endif
275            char *buffer;
276            int len = strlen(ERROR_STRING) + strlen(list[current]);
277
278            if(len < ww + 1)
279                len = ww + 1;
280
281            buffer = malloc(len);
282
283            sprintf(buffer, ERROR_STRING, list[current]);
284            buffer[ww] = '\0';
285            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
286            caca_putstr((ww - strlen(buffer)) / 2, wh / 2, buffer);
287            free(buffer);
288        }
289        else if(zoom < 0)
290        {
291            int xo = (ww - 1) / 2;
292            int yo = (wh - 1) / 2;
293            int xn = (ww - 1) / (2 - zoom);
294            int yn = (wh - 1) / (2 - zoom);
295            draw_checkers(xo - xn, yo - yn, xo + xn, yo + yn);
296            caca_draw_bitmap(xo - xn, yo - yn, xo + xn, yo + yn,
297                             bitmap, pixels);
298        }
299        else if(zoom > 0)
300        {
301            struct caca_bitmap *newbitmap;
302            int xn = w / (2 + zoom);
303            int yn = h / (2 + zoom);
304            if(x < xn) x = xn;
305            if(y < yn) y = yn;
306            if(xn + x > (int)w) x = w - xn;
307            if(yn + y > (int)h) y = h - yn;
308            newbitmap = caca_create_bitmap(bpp, 2 * xn, 2 * yn, depth * w,
309                                           rmask, gmask, bmask, amask);
310#if !defined(HAVE_IMLIB2_H)
311            if(bpp == 8)
312                caca_set_bitmap_palette(newbitmap, red, green, blue, alpha);
313#endif
314            draw_checkers(0, fullscreen ? 0 : 1,
315                          ww - 1, fullscreen ? wh - 1 : wh - 3);
316            caca_draw_bitmap(0, fullscreen ? 0 : 1,
317                             ww - 1, fullscreen ? wh - 1 : wh - 3,
318                             newbitmap,
319                             pixels + depth * (x - xn) + depth * w * (y - yn));
320            caca_free_bitmap(newbitmap);
321        }
322        else
323        {
324            draw_checkers(0, fullscreen ? 0 : 1,
325                          ww - 1, fullscreen ? wh - 1 : wh - 3);
326            caca_draw_bitmap(0, fullscreen ? 0 : 1,
327                             ww - 1, fullscreen ? wh - 1 : wh - 3,
328                             bitmap, pixels);
329        }
330
331        if(!fullscreen)
332        {
333            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
334            caca_draw_line(0, 0, ww - 1, 0, ' ');
335            caca_draw_line(0, wh - 2, ww - 1, wh - 2, '-');
336            caca_putstr(0, 0, "q:Quit  np:Next/Prev  +-x:Zoom  "
337                              "hjkl:Move  d:Dithering  a:Antialias");
338            caca_putstr(ww - strlen("?:Help"), 0, "?:Help");
339            caca_printf(3, wh - 2, "cacaview %s", VERSION);
340            caca_printf(ww - 14, wh - 2,
341                        "(zoom: %s%i)", zoom > 0 ? "+" : "", zoom);
342
343            caca_set_color(CACA_COLOR_LIGHTGRAY, CACA_COLOR_BLACK);
344            caca_draw_line(0, wh - 1, ww - 1, wh - 1, ' ');
345            switch(status)
346            {
347                case STATUS_ANTIALIASING:
348                    caca_printf(0, wh - 1, "Antialiasing: %s",
349                  caca_get_feature_name(caca_get_feature(CACA_ANTIALIASING)));
350                    break;
351                case STATUS_DITHERING:
352                    caca_printf(0, wh - 1, "Dithering: %s",
353                  caca_get_feature_name(caca_get_feature(CACA_DITHERING)));
354                    break;
355                case STATUS_BACKGROUND:
356                    caca_printf(0, wh - 1, "Background: %s",
357                  caca_get_feature_name(caca_get_feature(CACA_BACKGROUND)));
358                    break;
359            }
360        }
361
362        if(help)
363        {
364            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
365            caca_putstr(ww - 25, 2,  " +: zoom in             ");
366            caca_putstr(ww - 25, 3,  " -: zoom out            ");
367            caca_putstr(ww - 25, 4,  " x: reset zoom          ");
368            caca_putstr(ww - 25, 5,  " ---------------------- ");
369            caca_putstr(ww - 25, 6,  " hjkl: move view        ");
370            caca_putstr(ww - 25, 7,  " arrows: move view      ");
371            caca_putstr(ww - 25, 8,  " ---------------------- ");
372            caca_putstr(ww - 25, 9,  " a: antialiasing method ");
373            caca_putstr(ww - 25, 10, " d: dithering method    ");
374            caca_putstr(ww - 25, 11, " b: background mode     ");
375            caca_putstr(ww - 25, 12, " ---------------------- ");
376            caca_putstr(ww - 25, 13, " ?: help                ");
377            caca_putstr(ww - 25, 14, " q: quit                ");
378        }
379
380        caca_refresh();
381        update = 0;
382    }
383
384    /* Clean up */
385    unload_image();
386    caca_end();
387
388    return 0;
389}
390
391static void unload_image(void)
392{
393#if defined(HAVE_IMLIB2_H)
394    if(image)
395        imlib_free_image();
396    image = NULL;
397    pixels = NULL;
398#else
399    if(pixels)
400        free(pixels);
401    pixels = NULL;
402#endif
403    if(bitmap)
404        caca_free_bitmap(bitmap);
405    bitmap = NULL;
406}
407
408static void load_image(char const *name)
409{
410#if defined(HAVE_IMLIB2_H)
411    /* Load the new image */
412    image = imlib_load_image(name);
413
414    if(!image)
415        return;
416
417    imlib_context_set_image(image);
418    pixels = (char *)imlib_image_get_data_for_reading_only();
419    w = imlib_image_get_width();
420    h = imlib_image_get_height();
421    rmask = 0x00ff0000;
422    gmask = 0x0000ff00;
423    bmask = 0x000000ff;
424    amask = 0xff000000;
425    bpp = 32;
426    depth = 4;
427
428    /* Create the libcaca bitmap */
429    bitmap = caca_create_bitmap(bpp, w, h, depth * w,
430                                rmask, gmask, bmask, amask);
431    if(!bitmap)
432    {
433        imlib_free_image();
434        image = NULL;
435    }
436
437#else
438    /* Try to load a BMP file */
439    FILE *fp;
440    unsigned int i, colors, offset, tmp, planes;
441
442    fp = fopen(name, "rb");
443    if(!fp)
444        return;
445
446    if(freadshort(fp) != 0x4d42)
447    {
448        fclose(fp);
449        return;
450    }
451
452    freadint(fp); /* size */
453    freadshort(fp); /* reserved 1 */
454    freadshort(fp); /* reserved 2 */
455
456    offset = freadint(fp);
457
458    tmp = freadint(fp); /* header size */
459    if(tmp == 40)
460    {
461        w = freadint(fp);
462        h = freadint(fp);
463        planes = freadshort(fp);
464        bpp = freadshort(fp);
465
466        tmp = freadint(fp); /* compression */
467        if(tmp != 0)
468        {
469            fclose(fp);
470            return;
471        }
472
473        freadint(fp); /* sizeimage */
474        freadint(fp); /* xpelspermeter */
475        freadint(fp); /* ypelspermeter */
476        freadint(fp); /* biclrused */
477        freadint(fp); /* biclrimportantn */
478
479        colors = (offset - 54) / 4;
480        for(i = 0; i < colors && i < 256; i++)
481        {
482            blue[i] = freadchar(fp) * 16;
483            green[i] = freadchar(fp) * 16;
484            red[i] = freadchar(fp) * 16;
485            alpha[i] = 0;
486            freadchar(fp);
487        }
488    }
489    else if(tmp == 12)
490    {
491        w = freadint(fp);
492        h = freadint(fp);
493        planes = freadshort(fp);
494        bpp = freadshort(fp);
495
496        colors = (offset - 26) / 3;
497        for(i = 0; i < colors && i < 256; i++)
498        {
499            blue[i] = freadchar(fp);
500            green[i] = freadchar(fp);
501            red[i] = freadchar(fp);
502            alpha[i] = 0;
503        }
504    }
505    else
506    {
507        fclose(fp);
508        return;
509    }
510
511    /* Fill the rest of the palette */
512    for(i = colors; i < 256; i++)
513        blue[i] = green[i] = red[i] = alpha[i] = 0;
514
515    depth = (bpp + 7) / 8;
516
517    /* Sanity check */
518    if(!w || w > 0x10000 || !h || h > 0x10000 || planes != 1 /*|| bpp != 24*/)
519    {
520        fclose(fp);
521        return;
522    }
523
524    /* Allocate the pixel buffer */
525    pixels = malloc(w * h * depth);
526    if(!pixels)
527    {
528        fclose(fp);
529        return;
530    }
531
532    memset(pixels, 0, w * h * depth);
533
534    /* Read the bitmap data */
535    for(i = h; i--; )
536    {
537        unsigned int j, k, bits = 0;
538
539        switch(bpp)
540        {
541            case 1:
542                for(j = 0; j < w; j++)
543                {
544                    k = j % 32;
545                    if(k == 0)
546                        bits = freadint(fp);
547                    pixels[w * i * depth + j] =
548                        (bits >> ((k & ~0xf) + 0xf - (k & 0xf))) & 0x1;
549                }
550                break;
551            case 4:
552                for(j = 0; j < w; j++)
553                {
554                    k = j % 8;
555                    if(k == 0)
556                        bits = freadint(fp);
557                    pixels[w * i * depth + j] =
558                        (bits >> (4 * ((k & ~0x1) + 0x1 - (k & 0x1)))) & 0xf;
559                }
560                break;
561            default:
562                /* Works for 8bpp, but also for 16, 24 etc. */
563                fread(pixels + w * i * depth, w * depth, 1, fp);
564                /* Pad reads to 4 bytes */
565                tmp = (w * depth) % 4;
566                tmp = (4 - tmp) % 4;
567                while(tmp--)
568                    freadchar(fp);
569                break;
570        }
571    }
572
573    switch(depth)
574    {
575    case 3:
576        rmask = 0xff0000;
577        gmask = 0x00ff00;
578        bmask = 0x0000ff;
579        amask = 0x000000;
580        break;
581    case 2: /* XXX: those are the 16 bits values */
582        rmask = 0x7c00;
583        gmask = 0x03e0;
584        bmask = 0x001f;
585        amask = 0x0000;
586        break;
587    case 1:
588    default:
589        bpp = 8;
590        rmask = gmask = bmask = amask = 0;
591        break;
592    }
593
594    fclose(fp);
595
596    /* Create the libcaca bitmap */
597    bitmap = caca_create_bitmap(bpp, w, h, depth * w,
598                                rmask, gmask, bmask, amask);
599    if(!bitmap)
600    {
601        free(pixels);
602        pixels = NULL;
603        return;
604    }
605
606    if(bpp == 8)
607        caca_set_bitmap_palette(bitmap, red, green, blue, alpha);
608#endif
609
610    x = w / 2;
611    y = h / 2;
612}
613
614static void draw_checkers(unsigned int x1, unsigned int y1,
615                          unsigned int x2, unsigned int y2)
616{
617    unsigned int xn, yn;
618
619    for(yn = y1; yn <= y2; yn++)
620        for(xn = x1; xn <= x2; xn++)
621    {
622        if((((xn - x1) / 5) ^ ((yn - y1) / 3)) & 1)
623            caca_set_color(CACA_COLOR_LIGHTGRAY, CACA_COLOR_DARKGRAY);
624        else
625            caca_set_color(CACA_COLOR_DARKGRAY, CACA_COLOR_LIGHTGRAY);
626        caca_putchar(xn, yn, ' ');
627    }
628}
629
630#if !defined(HAVE_IMLIB2_H)
631static int freadint(FILE *fp)
632{
633    unsigned char buffer[4];
634    fread(buffer, 4, 1, fp);
635    return ((int)buffer[3] << 24) | ((int)buffer[2] << 16)
636             | ((int)buffer[1] << 8) | ((int)buffer[0]);
637}
638
639static int freadshort(FILE *fp)
640{
641    unsigned char buffer[2];
642    fread(buffer, 2, 1, fp);
643    return ((int)buffer[1] << 8) | ((int)buffer[0]);
644}
645
646static int freadchar(FILE *fp)
647{
648    unsigned char buffer;
649    fread(&buffer, 1, 1, fp);
650    return (int)buffer;
651}
652#endif
653
Note: See TracBrowser for help on using the repository browser.