libcaca/cucul/export_ps.c

/*
 *  libcucul      Unicode canvas library
 *  Copyright (c) 2002-2006 Sam Hocevar <sam@zoy.org>
 *                All Rights Reserved
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the Do What The Fuck You Want To
 *  Public License, Version 2, as published by Sam Hocevar. See
 *  http://sam.zoy.org/wtfpl/COPYING for more details.
 */

/** \file export.c
 *  \version \$Id: export_irc.c 384 2006-03-13 18:07:35Z sam $
 *  \author Sam Hocevar <sam@zoy.org>
 *  \author Jean-Yves Lamoureux <jylam@lnxscene.org>
 *  \brief Export function
 *
 *  This file contains export functions for Postscript files
 */

#include "config.h"

#if !defined(__KERNEL__)
#   include <stdlib.h>
#   include <stdio.h>
#   include <string.h>
#endif

#include "cucul.h"
#include "cucul_internals.h"


char ps_header[] = {"%%! \n \
%%%% libcaca PDF export      \n \
%%%%LanguageLevel: 2 \n \
%%%%Pages: 1 \n \
%%%%DocumentData: Clean7Bit \n \
/csquare { \n \
        newpath \n \
        0 0 moveto \n \
        0 1 rlineto \n \
        1 0 rlineto \n \
        0 -1 rlineto \n \
        closepath \n \
        setrgbcolor \n \
        fill \n \
} def \n \
/S { \n \
  Show \n \
} bind def \n \
 \n \
 \n \
/Times-Roman findfont \n \
8 scalefont \n \
setfont\n \
6 10 scale \n"};




/** \brief Generate Postscript representation of current image.
 *
 *  This function generates and returns a Postscript representation of
 *  the current image.
 */
char* cucul_get_ps(cucul_t *qq, int *size)
{

    static float const paletteR[] =
    {
        0,   0,   0,   0,
        0.5, 0.5, 0.5, 0.5,
        0.5, 0.5, 0.5, 0.5,
        1.0, 1.0, 1.0, 1.0,
    };
    static float const paletteG[] =
    {
        0, 0, 0.5, 0.5,
        0, 0, 0.5, 0.5,
        0, 0, 1.0, 1.0,
        0, 0, 1.0, 1.0,
    };
    static float const paletteB[] =
    {
        0, 0.5, 0,   0.5,
        0, 0.5, 0,   0.5,
        0, 1.0, 0.5, 1.0,
        0, 1.0, 0,   1.0,
    };


    char *cur;
    unsigned int x, y;

    if(qq->ps_buffer)
        free(qq->ps_buffer);

    /* 400 is arbitrary and needs to be precised */
    qq->ps_buffer = malloc((strlen(ps_header) + (qq->height*qq->width)*400) * sizeof(char));
    cur = qq->ps_buffer;

    /* Header */
    cur += sprintf(cur, "%s", ps_header);


    /* Background, drawn using csquare macro defined in header */
    for(y=0;y<qq->height; y++) {
        uint8_t *lineattr = qq->attr + y * qq->width;

        for(x = 0; x < qq->width; x++) {
	    float bgR = paletteR[lineattr[x] >> 4];
	    float bgG = paletteG[lineattr[x] >> 4];
	    float bgB = paletteB[lineattr[x] >> 4];


	    cur += sprintf(cur, "1 0 translate \n %f %f %f csquare\n", bgR, bgG, bgB);
  	}

	/* Return to beginning of the line, and jump to the next one */
	cur += sprintf(cur, "%d 1 translate \n", -qq->width);


    }

    /* Text. FIXME, doesn't work yet */
    cur += sprintf(cur, "1 1 scale\n");
    cur += sprintf(cur, "newpath\n0 0 moveto\n");
    for(y=0;y<qq->height; y++) {
        uint8_t *lineattr = qq->attr + y * qq->width;
        uint32_t *linechar = qq->chars + y * qq->width;

        for(x = 0; x < qq->width; x++) {
	    uint32_t cR = linechar[x];
	    float fgR = paletteR[lineattr[x] & 0x0f];
	    float fgG = paletteG[lineattr[x] & 0x0f];
	    float fgB = paletteB[lineattr[x] & 0x0f];

	    cur += sprintf(cur, "%f %f %f setrgbcolor\n", fgR, fgG, fgB);
	    cur += sprintf(cur, "1 0 translate\n");
	    cur += sprintf(cur, "{%c} \n", cR);

	}
	cur += sprintf(cur, "%d 1 translate \n", -qq->width);
    }


    cur += sprintf(cur, "showpage");

    /* Crop to really used size */
    *size = (strlen(qq->ps_buffer) + 1) * sizeof(char);
    qq->ps_buffer = realloc(qq->ps_buffer, *size);

    return qq->ps_buffer;

}