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

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