/*
 * $Id: pbm.trm,v 1.19 1998/06/18 14:59:21 ddenholm Exp $
 *
 */

/* GNUPLOT - pbm.trm */

/*[
 * Copyright 1990 - 1993, 1998
 *
 * Permission to use, copy, and distribute this software and its
 * documentation for any purpose with or without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and
 * that both that copyright notice and this permission notice appear
 * in supporting documentation.
 *
 * Permission to modify the software is granted, but not the right to
 * distribute the complete modified source code.  Modifications are to
 * be distributed as patches to the released version.  Permission to
 * distribute binaries produced by compiling modified sources is granted,
 * provided you
 *   1. distribute the corresponding source modifications from the
 *    released version in the form of a patch file along with the binaries,
 *   2. add special version identification to distinguish your version
 *    in addition to the base release version number,
 *   3. provide your name and address as the primary contact for the
 *    support of your modified version, and
 *   4. retain our contact information in regard to use of the base
 *    software.
 * Permission to distribute the released version of the source code along
 * with corresponding source modifications in the form of a patch file is
 * granted with same provisions 2 through 4 for binary distributions.
 *
 * This software is provided "as is" without express or implied warranty
 * to the extent permitted by applicable law.
]*/

/*
 * This file is included by ../term.c.
 *
 * This terminal driver supports:
 *  pbm
 *
 * AUTHORS
 *  Russell Lang
 *
 * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
 * 
 */

/* The following pbmplus drivers use the generic bit mapped graphics
   routines from bitmap.c to build up a bit map in memory.  The driver
   interchanges colomns and lines in order to access entire lines
   easily and returns the lines to get bits in the right order :
   (x,y) -> (y,XMAX-1-x). */
/* This interchange is done by calling b_makebitmap() with reversed 
   xmax and ymax, and then setting b_rastermode to TRUE.  b_setpixel()
   will then perform the interchange before each pixel is plotted */
/* See Jef Poskanzer's excellent PBMplus package for more details of
   the Portable BitMap format and for programs to convert PBM files  
   to other bitmap formats. */

#include "driver.h"

#ifdef TERM_REGISTER
register_term(pbm_driver)
#endif

#ifdef TERM_PROTO
TERM_PUBLIC void PBMoptions __PROTO((void));
TERM_PUBLIC void PBMinit __PROTO((void));
TERM_PUBLIC void PBMreset __PROTO((void));
TERM_PUBLIC void PBMsetfont __PROTO((void));
TERM_PUBLIC void PBMgraphics __PROTO((void));
TERM_PUBLIC void PBMmonotext __PROTO((void));
TERM_PUBLIC void PBMgraytext __PROTO((void));
TERM_PUBLIC void PBMcolortext __PROTO((void));
TERM_PUBLIC void PBMtext __PROTO((void));
TERM_PUBLIC void PBMlinetype __PROTO((int linetype));
TERM_PUBLIC void PBMpoint __PROTO((unsigned int x, unsigned int y, int point));
#endif /* TERM_PROTO */

#ifdef TERM_BODY

/* make XMAX and YMAX a multiple of 8 */
#define PBM_XMAX (640)
#define PBM_YMAX (480)
#define PBM_VCHAR (FNT5X9_VCHAR)
#define PBM_HCHAR (FNT5X9_VCHAR)
#define PBM_VTIC FNT5X9_HBITS
#define PBM_HTIC FNT5X9_HBITS

static int pbm_font = 1;	/* small font */
static int pbm_mode = 0;	/* 0:monochrome 1:gray 2:color */

/* 7=black, 0=white */
static int pgm_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 };	/* grays  */
/* bit3=!intensify, bit2=!red, bit1=!green, bit0=!blue */
static int ppm_color[] ={ 15, 8, 3, 5, 6, 2, 4, 1, 11, 13, 14 };  /* colors */

TERM_PUBLIC void PBMoptions()
{
    pbm_font = 1;
    pbm_mode = 0;

    term_options[0] = NUL;

    while (!END_OF_COMMAND) {
	if (almost_equals(c_token, "s$mall"))
	    pbm_font = 1;
	else if (almost_equals(c_token, "me$dium"))
	    pbm_font = 2;
	else if (almost_equals(c_token, "l$arge"))
	    pbm_font = 3;
	else if (almost_equals(c_token, "mo$nochrome"))
	    pbm_mode = 0;
	else if (almost_equals(c_token, "g$ray"))
	    pbm_mode = 1;
	else if (almost_equals(c_token, "c$olor")
		 || almost_equals(c_token, "c$olour"))
	    pbm_mode = 2;
	else {
	    /* reset to default, since term is already set */ 
	    pbm_font = 1;
	    pbm_mode = 0;
	    int_error("expecting: {small, medium, large} and {monochrome, gray, color}", c_token);
	}
	c_token++;
    }

    /* setup options string */

    switch (pbm_font) {
    case 1:
	strcat(term_options, "small");
	break;
    case 2:
	strcat(term_options, "medium");
	break;
    case 3:
	strcat(term_options, "large");
	break;
    }

    switch (pbm_mode) {
    case 0:
	strcat(term_options, " monochrome");
	break;
    case 1:
	strcat(term_options, " gray");
	break;
    case 2:
	strcat(term_options, " color");
	break;
    }
}


TERM_PUBLIC void PBMinit()
{
    PBMsetfont();		/* HBB 980226: call it here! */
}


TERM_PUBLIC void PBMreset()
{
#ifdef VMS
    fflush_binary();
#endif /* VMS */
}


TERM_PUBLIC void PBMsetfont()
{
    switch (pbm_font) {
    case 1:
	b_charsize(FNT5X9);
	term->v_char = FNT5X9_VCHAR;
	term->h_char = FNT5X9_HCHAR;
	term->v_tic = FNT5X9_HBITS;
	term->h_tic = FNT5X9_HBITS;
	break;
    case 2:
	b_charsize(FNT9X17);
	term->v_char = FNT9X17_VCHAR;
	term->h_char = FNT9X17_HCHAR;
	term->v_tic = FNT9X17_HBITS;
	term->h_tic = FNT9X17_HBITS;
	break;
    case 3:
	b_charsize(FNT13X25);
	term->v_char = FNT13X25_VCHAR;
	term->h_char = FNT13X25_HCHAR;
	term->v_tic = FNT13X25_HBITS;
	term->h_tic = FNT13X25_HBITS;
	break;
    }
}


TERM_PUBLIC void PBMgraphics()
{
    int numplanes = 1;

    switch (pbm_mode) {
    case 1:
	numplanes = 3;
	break;
    case 2:
	numplanes = 4;
	break;
    }

    /* HBB 980226: this is not the right place to do this: setfont() influences
     * fields of the termtable entry, and therefore must be called by init()
     * already. */
    /* PBMsetfont(); */
    /* rotate plot -90 degrees by reversing XMAX and YMAX and by 
       setting b_rastermode to TRUE */
    b_makebitmap((unsigned int) (PBM_YMAX * ysize),
		 (unsigned int) (PBM_XMAX * xsize), numplanes);
    b_rastermode = TRUE;

    if (pbm_mode != 0)
	b_setlinetype(0);	/* solid lines */
}


static void PBMmonotext()
{
    register int x, j, row;

    fputs("P4\n", gpoutfile);
    fprintf(gpoutfile, "%u %u\n", b_ysize, b_xsize);

    /* dump bitmap in raster mode */
    for (x = b_xsize - 1; x >= 0; x--) {
	row = (b_ysize / 8) - 1;
	for (j = row; j >= 0; j--) {
	    (void) fputc((char) (*((*b_p)[j] + x)), gpoutfile);
	}
    }

    b_freebitmap();
}

static void PBMgraytext()
{
    register int x, j, row;
    register int i, value;
    int mask, plane1, plane2, plane3;

    fprintf(gpoutfile, "\
P5\n\
%u %u\n\
%u\n",
	    b_ysize, b_xsize,
	    255);

    /* dump bitmap in raster mode */
    for (x = b_xsize - 1; x >= 0; x--) {
	row = (b_ysize / 8) - 1;
	for (j = row; j >= 0; j--) {
	    mask = 0x80;
	    plane1 = (*((*b_p)[j] + x));
	    plane2 = (*((*b_p)[j + b_psize] + x));
	    plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
	    for (i = 0; i < 8; i++) {
		/* HBB: The values below are set to span the full range
		 * from 0 up to 255 in 7 steps: */
		value = 255;
		if (plane1 & mask)
		    value -= 36;
		if (plane2 & mask)
		    value -= 73;
		if (plane3 & mask)
		    value -= 146;
		(void) fputc((char) (value), gpoutfile);
		mask >>= 1;
	    }
	}
    }

    b_freebitmap();
}

static void PBMcolortext()
{
    register int x, j, row;
    register int i;
    int mask, plane1, plane2, plane3, plane4;
    int red, green, blue;

    fprintf(gpoutfile, "P6\n\
%u %u\n\
%u\n",
	    b_ysize, b_xsize,
	    255);

    /* dump bitmap in raster mode */
    for (x = b_xsize - 1; x >= 0; x--) {
	row = (b_ysize / 8) - 1;
	for (j = row; j >= 0; j--) {
	    mask = 0x80;
	    plane1 = (*((*b_p)[j] + x));
	    plane2 = (*((*b_p)[j + b_psize] + x));
	    plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
	    plane4 = (*((*b_p)[j + b_psize + b_psize + b_psize] + x));
	    for (i = 0; i < 8; i++) {
		red = (plane3 & mask) ? 1 : 3;
		green = (plane2 & mask) ? 1 : 3;
		blue = (plane1 & mask) ? 1 : 3;
		if (plane4 & mask) {
		    red--;
		    green--;
		    blue--;
		}
		/* HBB: '85' is exactly 255/3, so this spans the full
		 * range of colors in three steps: */
		(void) fputc((char) (red * 85), gpoutfile);
		(void) fputc((char) (green * 85), gpoutfile);
		(void) fputc((char) (blue * 85), gpoutfile);
		mask >>= 1;
	    }
	}
    }

    b_freebitmap();
}

TERM_PUBLIC void PBMtext()
{
    switch (pbm_mode) {
    case 0:
	PBMmonotext();
	break;
    case 1:
	PBMgraytext();
	break;
    case 2:
	PBMcolortext();
	break;
    }
}


TERM_PUBLIC void PBMlinetype(linetype)
int linetype;
{
    switch (pbm_mode) {
    case 0:
	b_setlinetype(linetype);
	break;
    case 1:
	if (linetype >= 7)
	    linetype %= 7;
	b_setvalue(pgm_gray[linetype + 2]);
	break;
    case 2:
	if (linetype >= 9)
	    linetype %= 9;
	b_setvalue(ppm_color[linetype + 2]);
	break;
    }
}

TERM_PUBLIC void PBMpoint(x, y, point)
unsigned int x, y;
int point;
{
    if (pbm_mode == 0)
	line_and_point(x, y, point);
    else
	do_point(x, y, point);
}

#endif /* TERM_BODY */

#ifdef TERM_TABLE

#define PBMmove b_move
#define PBMvector b_vector
#define PBMtext_angle b_text_angle
#define PBMput_text b_put_text

TERM_TABLE_START(pbm_driver)
    "pbm", "Portable bitmap [small medium large] [monochrome gray color]",
    PBM_XMAX, PBM_YMAX, PBM_VCHAR,
    PBM_HCHAR, PBM_VTIC, PBM_HTIC, PBMoptions,
    PBMinit, PBMreset, PBMtext, null_scale,
    PBMgraphics, PBMmove, PBMvector, PBMlinetype,
    PBMput_text, PBMtext_angle, null_justify_text, PBMpoint,
    do_arrow, set_font_null,
    0,				/* pointsize */
    TERM_CAN_MULTIPLOT | TERM_BINARY
TERM_TABLE_END(pbm_driver)

#undef LAST_TERM
#define LAST_TERM pbm_driver

#endif /* TERM_TABLE */


#ifdef TERM_HELP
START_HELP(pbm)
"1 pbm",
"?commands set terminal pbm",
"?set terminal pbm",
"?set term pbm",
"?terminal pbm",
"?term pbm",
"?pbm",
" Several options may be set in the `pbm` terminal---the driver for PBMplus.",
"",
" Syntax:",
"       set terminal pbm {<fontsize>} {<mode>}",
"",
" where <fontsize> is `small`, `medium`, or `large` and <mode> is `monochrome`,",
" `gray` or `color`.  The default plot size is 640 pixels wide and 480 pixels",
" high; this may be changed by `set size`.",
"",
" The output of the `pbm` driver depends upon <mode>: `monochrome` produces a",
" portable bitmap (one bit per pixel), `gray` a portable graymap (three bits",
" per pixel) and `color` a portable pixmap (color, four bits per pixel).",
"",
" The output of this driver can be used with Jef Poskanzer's excellent PBMPLUS",
" package, which provides programs to convert the above PBMPLUS formats to GIF,",
" TIFF, MacPaint, Macintosh PICT, PCX, X11 bitmap and many others.  PBMPLUS may",
" be obtained from ftp.x.org.  The relevant files have names that begin with",
" \"netpbm-1mar1994.p1\"; they reside in /contrib/utilities.  The package can",
" probably also be obtained from one of the many sites that mirrors ftp.x.org.",
"",
" Examples:",
"       set terminal pbm small monochrome             # defaults",
"       set size 2,2; set terminal pbm color medium"
END_HELP(pbm)
#endif /* TERM_HELP */