libcaca/examples/view.c

/*
 *   view          image viewer for libcaca
 *   Copyright (c) 2003 Sam Hocevar <sam@zoy.org>
 *                 All Rights Reserved
 *
 *   $Id$
 *
 *   This program is free software; you can redistribute it and/or
 *   modify it under the terms of the GNU Lesser General Public
 *   License as published by the Free Software Foundation; either
 *   version 2 of the License, or (at your option) any later version.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *   Lesser General Public License for more details.
 *
 *   You should have received a copy of the GNU Lesser General Public
 *   License along with this program; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 *   02111-1307  USA
 */

#include "config.h"

#include <stdio.h>
#include <string.h>
#include <malloc.h>
#include <unistd.h>

#ifdef HAVE_ENDIAN_H
#   include <endian.h>
#endif

#include <Imlib2.h>

#include "caca.h"

Imlib_Image image = NULL;
char *pixels = NULL;
struct caca_bitmap *bitmap = NULL;
int x, y, w, h;
unsigned int rmask, gmask, bmask;

int dithering = CACA_DITHERING_ORDERED4;

static void load_image(const char *);

int main(int argc, char **argv)
{
    int quit = 0, update = 1, help = 0, reload = 0;
    int i, zoom = 0;

    char **list = NULL;
    int current = 0, items = 0, opts = 1;

#ifdef HAVE_ENDIAN_H
    if(__BYTE_ORDER == __BIG_ENDIAN)
#else
    rmask = 0x12345678;
    if(*(char *)&rmask == 0x12)
#endif
    {
        rmask = 0x00ff0000; gmask = 0x0000ff00; bmask = 0x000000ff;
    }
    else
    {
        rmask = 0x0000ff00; gmask = 0x00ff0000; bmask = 0xff000000;
    }

    /* Initialise libcaca */
    if(caca_init())
    {
        fprintf(stderr, "%s: unable to initialise libcaca\n", argv[0]);
        return 1;
    }

    /* Load items into playlist */
    for(i = 1; i < argc; i++)
    {
        /* Skip options except after `--' */
        if(opts && argv[i][0] == '-')
        {
            if(argv[i][1] == '-' && argv[i][2] == '\0')
                opts = 0;
            continue;
        }

        /* Add argv[i] to the list */
        if(items)
            list = realloc(list, (items + 1) * sizeof(char *));
        else
            list = malloc(sizeof(char *));
        list[items] = argv[i];
        items++;

        reload = 1;
    }

    /* Go ! */
    while(!quit)
    {
        int ww = caca_get_width();
        int wh = caca_get_height();

        int event;

        while((event = caca_get_event()))
        {
            switch(event)
            {
            case CACA_EVENT_KEY_PRESS | 'n':
            case CACA_EVENT_KEY_PRESS | 'N':
                if(items) current = (current + 1) % items;
                reload = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'p':
            case CACA_EVENT_KEY_PRESS | 'P':
                if(items) current = (items + current - 1) % items;
                reload = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'd':
                dithering = (dithering + 1) % 5;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'D':
                dithering = (dithering + 4) % 5;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | '+':
                zoom++;
                if(zoom > 48) zoom = 48; else update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | '-':
                zoom--;
                if(zoom < -48) zoom = -48; else update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'x':
            case CACA_EVENT_KEY_PRESS | 'X':
                zoom = 0;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'k':
            case CACA_EVENT_KEY_PRESS | 'K':
            case CACA_EVENT_KEY_PRESS | CACA_KEY_UP:
                if(zoom > 0) y -= 1 + h / (2 + zoom) / 8;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'j':
            case CACA_EVENT_KEY_PRESS | 'J':
            case CACA_EVENT_KEY_PRESS | CACA_KEY_DOWN:
                if(zoom > 0) y += 1 + h / (2 + zoom) / 8;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'h':
            case CACA_EVENT_KEY_PRESS | 'H':
            case CACA_EVENT_KEY_PRESS | CACA_KEY_LEFT:
                if(zoom > 0) x -= 1 + w / (2 + zoom) / 8;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'l':
            case CACA_EVENT_KEY_PRESS | 'L':
            case CACA_EVENT_KEY_PRESS | CACA_KEY_RIGHT:
                if(zoom > 0) x += 1 + w / (2 + zoom) / 8;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | '?':
                help = 1;
                update = 1;
                break;
            case CACA_EVENT_KEY_PRESS | 'q':
            case CACA_EVENT_KEY_PRESS | 'Q':
                quit = 1;
                break;
            }
        }

        if(items && reload)
        {
            char *buffer = malloc(ww + 1);

            /* Reset image-specific runtime variables */
            zoom = 0;

            snprintf(buffer, ww, " Loading `%s'... ", list[current]);
            buffer[ww] = '\0';
            caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
            caca_putstr((ww - strlen(buffer)) / 2, wh / 2, buffer);
            caca_refresh();

            load_image(list[current]);
            reload = 0;
            update = 1;

            free(buffer);
        }

        if(!update)
        {
            usleep(10000);
            continue;
        }

        caca_clear();
        caca_set_dithering(dithering);
        caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);

        if(!items)
            caca_printf(ww / 2 - 5, wh / 2, " No image. ");
        else if(!image)
        {
            char *buffer = malloc(ww + 1);
            snprintf(buffer, ww, " Error loading `%s'. ", list[current]);
            buffer[ww] = '\0';
            caca_putstr((ww - strlen(buffer)) / 2, wh / 2, buffer);
            free(buffer);
        }
        else if(zoom < 0)
        {
            int xo = (ww - 1) / 2;
            int yo = (wh - 1) / 2;
            int xn = (ww - 1) / (2 - zoom);
            int yn = (wh - 1) / (2 - zoom);
            caca_draw_bitmap(xo - xn, yo - yn, xo + xn, yo + yn,
                             bitmap, pixels);
        }
        else if(zoom > 0)
        {
            struct caca_bitmap *newbitmap;
            int xn = w / (2 + zoom);
            int yn = h / (2 + zoom);
            if(x < xn) x = xn;
            if(y < yn) y = yn;
            if(xn + x > w) x = w - xn;
            if(yn + y > h) y = h - yn;
            newbitmap = caca_create_bitmap(32, 2 * xn, 2 * yn, 4 * w,
                                           rmask, gmask, bmask);
            caca_draw_bitmap(0, 0, ww - 1, wh - 1, newbitmap,
                             pixels + 4 * (x - xn) + 4 * w * (y - yn));
            caca_free_bitmap(newbitmap);
        }
        else
        {
            caca_draw_bitmap(0, 0, ww - 1, wh - 1, bitmap, pixels);
        }

        caca_set_color(CACA_COLOR_WHITE, CACA_COLOR_BLUE);
        caca_draw_line(0, 0, ww - 1, 0, ' ');
        caca_draw_line(0, wh - 1, ww - 1, wh - 1, '-');
        caca_putstr(0, 0, "q:Quit  n/p:Next/Prev  +/-/x:Zoom  "
                          "h/j/k/l: Move  d:Dithering");
        caca_putstr(ww - strlen("?:Help"), 0, "?:Help");
        caca_printf(3, wh - 1, "cacaview %s", VERSION);
        caca_printf(ww / 2 - 5, wh - 1, "(%s dithering)",
                    caca_get_dithering_name(dithering));
        caca_printf(ww - 14, wh - 1,
                    "(zoom: %s%i)", zoom > 0 ? "+" : "", zoom);

        if(help)
        {
            caca_putstr(ww - 22, 2,  " +: zoom in          ");
            caca_putstr(ww - 22, 3,  " -: zoom out         ");
            caca_putstr(ww - 22, 4,  " x: reset zoom       ");
            caca_putstr(ww - 22, 5,  " ------------------- ");
            caca_putstr(ww - 22, 6,  " hjkl: move view     ");
            caca_putstr(ww - 22, 7,  " arrows: move view   ");
            caca_putstr(ww - 22, 8,  " ------------------- ");
            caca_putstr(ww - 22, 9,  " d: dithering method ");
            caca_putstr(ww - 22, 10, " ------------------- ");
            caca_putstr(ww - 22, 11, " ?: help             ");
            caca_putstr(ww - 22, 12, " q: quit             ");

            help = 0;
        }

        caca_refresh();
        update = 0;
    }

    if(bitmap)
        caca_free_bitmap(bitmap);
    if(image)
        imlib_free_image();

    /* Clean up */
    caca_end();

    return 0;
}

static void load_image(const char *name)
{
    /* Empty previous data */
    if(image)
        imlib_free_image();

    if(bitmap)
        caca_free_bitmap(bitmap);

    image = NULL;
    bitmap = NULL;

    /* Load the new image */
    image = imlib_load_image(name);

    if(!image)
    {
        return;
    }

    imlib_context_set_image(image);
    pixels = (char *)imlib_image_get_data_for_reading_only();
    w = imlib_image_get_width();
    h = imlib_image_get_height();
    x = w / 2;
    y = h / 2;

    /* Create the libcaca bitmap */
    bitmap = caca_create_bitmap(32, w, h, 4 * w, rmask, gmask, bmask);
    if(!bitmap)
    {
        imlib_free_image();
        image = NULL;
    }
}