Annotation of OpenXM_contrib/gnuplot/term/pbm.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: pbm.trm,v 1.19 1998/06/18 14:59:21 ddenholm Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - pbm.trm */
! 7:
! 8: /*[
! 9: * Copyright 1990 - 1993, 1998
! 10: *
! 11: * Permission to use, copy, and distribute this software and its
! 12: * documentation for any purpose with or without fee is hereby granted,
! 13: * provided that the above copyright notice appear in all copies and
! 14: * that both that copyright notice and this permission notice appear
! 15: * in supporting documentation.
! 16: *
! 17: * Permission to modify the software is granted, but not the right to
! 18: * distribute the complete modified source code. Modifications are to
! 19: * be distributed as patches to the released version. Permission to
! 20: * distribute binaries produced by compiling modified sources is granted,
! 21: * provided you
! 22: * 1. distribute the corresponding source modifications from the
! 23: * released version in the form of a patch file along with the binaries,
! 24: * 2. add special version identification to distinguish your version
! 25: * in addition to the base release version number,
! 26: * 3. provide your name and address as the primary contact for the
! 27: * support of your modified version, and
! 28: * 4. retain our contact information in regard to use of the base
! 29: * software.
! 30: * Permission to distribute the released version of the source code along
! 31: * with corresponding source modifications in the form of a patch file is
! 32: * granted with same provisions 2 through 4 for binary distributions.
! 33: *
! 34: * This software is provided "as is" without express or implied warranty
! 35: * to the extent permitted by applicable law.
! 36: ]*/
! 37:
! 38: /*
! 39: * This file is included by ../term.c.
! 40: *
! 41: * This terminal driver supports:
! 42: * pbm
! 43: *
! 44: * AUTHORS
! 45: * Russell Lang
! 46: *
! 47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 48: *
! 49: */
! 50:
! 51: /* The following pbmplus drivers use the generic bit mapped graphics
! 52: routines from bitmap.c to build up a bit map in memory. The driver
! 53: interchanges colomns and lines in order to access entire lines
! 54: easily and returns the lines to get bits in the right order :
! 55: (x,y) -> (y,XMAX-1-x). */
! 56: /* This interchange is done by calling b_makebitmap() with reversed
! 57: xmax and ymax, and then setting b_rastermode to TRUE. b_setpixel()
! 58: will then perform the interchange before each pixel is plotted */
! 59: /* See Jef Poskanzer's excellent PBMplus package for more details of
! 60: the Portable BitMap format and for programs to convert PBM files
! 61: to other bitmap formats. */
! 62:
! 63: #include "driver.h"
! 64:
! 65: #ifdef TERM_REGISTER
! 66: register_term(pbm_driver)
! 67: #endif
! 68:
! 69: #ifdef TERM_PROTO
! 70: TERM_PUBLIC void PBMoptions __PROTO((void));
! 71: TERM_PUBLIC void PBMinit __PROTO((void));
! 72: TERM_PUBLIC void PBMreset __PROTO((void));
! 73: TERM_PUBLIC void PBMsetfont __PROTO((void));
! 74: TERM_PUBLIC void PBMgraphics __PROTO((void));
! 75: TERM_PUBLIC void PBMmonotext __PROTO((void));
! 76: TERM_PUBLIC void PBMgraytext __PROTO((void));
! 77: TERM_PUBLIC void PBMcolortext __PROTO((void));
! 78: TERM_PUBLIC void PBMtext __PROTO((void));
! 79: TERM_PUBLIC void PBMlinetype __PROTO((int linetype));
! 80: TERM_PUBLIC void PBMpoint __PROTO((unsigned int x, unsigned int y, int point));
! 81: #endif /* TERM_PROTO */
! 82:
! 83: #ifdef TERM_BODY
! 84:
! 85: /* make XMAX and YMAX a multiple of 8 */
! 86: #define PBM_XMAX (640)
! 87: #define PBM_YMAX (480)
! 88: #define PBM_VCHAR (FNT5X9_VCHAR)
! 89: #define PBM_HCHAR (FNT5X9_VCHAR)
! 90: #define PBM_VTIC FNT5X9_HBITS
! 91: #define PBM_HTIC FNT5X9_HBITS
! 92:
! 93: static int pbm_font = 1; /* small font */
! 94: static int pbm_mode = 0; /* 0:monochrome 1:gray 2:color */
! 95:
! 96: /* 7=black, 0=white */
! 97: static int pgm_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 }; /* grays */
! 98: /* bit3=!intensify, bit2=!red, bit1=!green, bit0=!blue */
! 99: static int ppm_color[] ={ 15, 8, 3, 5, 6, 2, 4, 1, 11, 13, 14 }; /* colors */
! 100:
! 101: TERM_PUBLIC void PBMoptions()
! 102: {
! 103: pbm_font = 1;
! 104: pbm_mode = 0;
! 105:
! 106: term_options[0] = NUL;
! 107:
! 108: while (!END_OF_COMMAND) {
! 109: if (almost_equals(c_token, "s$mall"))
! 110: pbm_font = 1;
! 111: else if (almost_equals(c_token, "me$dium"))
! 112: pbm_font = 2;
! 113: else if (almost_equals(c_token, "l$arge"))
! 114: pbm_font = 3;
! 115: else if (almost_equals(c_token, "mo$nochrome"))
! 116: pbm_mode = 0;
! 117: else if (almost_equals(c_token, "g$ray"))
! 118: pbm_mode = 1;
! 119: else if (almost_equals(c_token, "c$olor")
! 120: || almost_equals(c_token, "c$olour"))
! 121: pbm_mode = 2;
! 122: else {
! 123: /* reset to default, since term is already set */
! 124: pbm_font = 1;
! 125: pbm_mode = 0;
! 126: int_error("expecting: {small, medium, large} and {monochrome, gray, color}", c_token);
! 127: }
! 128: c_token++;
! 129: }
! 130:
! 131: /* setup options string */
! 132:
! 133: switch (pbm_font) {
! 134: case 1:
! 135: strcat(term_options, "small");
! 136: break;
! 137: case 2:
! 138: strcat(term_options, "medium");
! 139: break;
! 140: case 3:
! 141: strcat(term_options, "large");
! 142: break;
! 143: }
! 144:
! 145: switch (pbm_mode) {
! 146: case 0:
! 147: strcat(term_options, " monochrome");
! 148: break;
! 149: case 1:
! 150: strcat(term_options, " gray");
! 151: break;
! 152: case 2:
! 153: strcat(term_options, " color");
! 154: break;
! 155: }
! 156: }
! 157:
! 158:
! 159: TERM_PUBLIC void PBMinit()
! 160: {
! 161: PBMsetfont(); /* HBB 980226: call it here! */
! 162: }
! 163:
! 164:
! 165: TERM_PUBLIC void PBMreset()
! 166: {
! 167: #ifdef VMS
! 168: fflush_binary();
! 169: #endif /* VMS */
! 170: }
! 171:
! 172:
! 173: TERM_PUBLIC void PBMsetfont()
! 174: {
! 175: switch (pbm_font) {
! 176: case 1:
! 177: b_charsize(FNT5X9);
! 178: term->v_char = FNT5X9_VCHAR;
! 179: term->h_char = FNT5X9_HCHAR;
! 180: term->v_tic = FNT5X9_HBITS;
! 181: term->h_tic = FNT5X9_HBITS;
! 182: break;
! 183: case 2:
! 184: b_charsize(FNT9X17);
! 185: term->v_char = FNT9X17_VCHAR;
! 186: term->h_char = FNT9X17_HCHAR;
! 187: term->v_tic = FNT9X17_HBITS;
! 188: term->h_tic = FNT9X17_HBITS;
! 189: break;
! 190: case 3:
! 191: b_charsize(FNT13X25);
! 192: term->v_char = FNT13X25_VCHAR;
! 193: term->h_char = FNT13X25_HCHAR;
! 194: term->v_tic = FNT13X25_HBITS;
! 195: term->h_tic = FNT13X25_HBITS;
! 196: break;
! 197: }
! 198: }
! 199:
! 200:
! 201: TERM_PUBLIC void PBMgraphics()
! 202: {
! 203: int numplanes = 1;
! 204:
! 205: switch (pbm_mode) {
! 206: case 1:
! 207: numplanes = 3;
! 208: break;
! 209: case 2:
! 210: numplanes = 4;
! 211: break;
! 212: }
! 213:
! 214: /* HBB 980226: this is not the right place to do this: setfont() influences
! 215: * fields of the termtable entry, and therefore must be called by init()
! 216: * already. */
! 217: /* PBMsetfont(); */
! 218: /* rotate plot -90 degrees by reversing XMAX and YMAX and by
! 219: setting b_rastermode to TRUE */
! 220: b_makebitmap((unsigned int) (PBM_YMAX * ysize),
! 221: (unsigned int) (PBM_XMAX * xsize), numplanes);
! 222: b_rastermode = TRUE;
! 223:
! 224: if (pbm_mode != 0)
! 225: b_setlinetype(0); /* solid lines */
! 226: }
! 227:
! 228:
! 229: static void PBMmonotext()
! 230: {
! 231: register int x, j, row;
! 232:
! 233: fputs("P4\n", gpoutfile);
! 234: fprintf(gpoutfile, "%u %u\n", b_ysize, b_xsize);
! 235:
! 236: /* dump bitmap in raster mode */
! 237: for (x = b_xsize - 1; x >= 0; x--) {
! 238: row = (b_ysize / 8) - 1;
! 239: for (j = row; j >= 0; j--) {
! 240: (void) fputc((char) (*((*b_p)[j] + x)), gpoutfile);
! 241: }
! 242: }
! 243:
! 244: b_freebitmap();
! 245: }
! 246:
! 247: static void PBMgraytext()
! 248: {
! 249: register int x, j, row;
! 250: register int i, value;
! 251: int mask, plane1, plane2, plane3;
! 252:
! 253: fprintf(gpoutfile, "\
! 254: P5\n\
! 255: %u %u\n\
! 256: %u\n",
! 257: b_ysize, b_xsize,
! 258: 255);
! 259:
! 260: /* dump bitmap in raster mode */
! 261: for (x = b_xsize - 1; x >= 0; x--) {
! 262: row = (b_ysize / 8) - 1;
! 263: for (j = row; j >= 0; j--) {
! 264: mask = 0x80;
! 265: plane1 = (*((*b_p)[j] + x));
! 266: plane2 = (*((*b_p)[j + b_psize] + x));
! 267: plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
! 268: for (i = 0; i < 8; i++) {
! 269: /* HBB: The values below are set to span the full range
! 270: * from 0 up to 255 in 7 steps: */
! 271: value = 255;
! 272: if (plane1 & mask)
! 273: value -= 36;
! 274: if (plane2 & mask)
! 275: value -= 73;
! 276: if (plane3 & mask)
! 277: value -= 146;
! 278: (void) fputc((char) (value), gpoutfile);
! 279: mask >>= 1;
! 280: }
! 281: }
! 282: }
! 283:
! 284: b_freebitmap();
! 285: }
! 286:
! 287: static void PBMcolortext()
! 288: {
! 289: register int x, j, row;
! 290: register int i;
! 291: int mask, plane1, plane2, plane3, plane4;
! 292: int red, green, blue;
! 293:
! 294: fprintf(gpoutfile, "P6\n\
! 295: %u %u\n\
! 296: %u\n",
! 297: b_ysize, b_xsize,
! 298: 255);
! 299:
! 300: /* dump bitmap in raster mode */
! 301: for (x = b_xsize - 1; x >= 0; x--) {
! 302: row = (b_ysize / 8) - 1;
! 303: for (j = row; j >= 0; j--) {
! 304: mask = 0x80;
! 305: plane1 = (*((*b_p)[j] + x));
! 306: plane2 = (*((*b_p)[j + b_psize] + x));
! 307: plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
! 308: plane4 = (*((*b_p)[j + b_psize + b_psize + b_psize] + x));
! 309: for (i = 0; i < 8; i++) {
! 310: red = (plane3 & mask) ? 1 : 3;
! 311: green = (plane2 & mask) ? 1 : 3;
! 312: blue = (plane1 & mask) ? 1 : 3;
! 313: if (plane4 & mask) {
! 314: red--;
! 315: green--;
! 316: blue--;
! 317: }
! 318: /* HBB: '85' is exactly 255/3, so this spans the full
! 319: * range of colors in three steps: */
! 320: (void) fputc((char) (red * 85), gpoutfile);
! 321: (void) fputc((char) (green * 85), gpoutfile);
! 322: (void) fputc((char) (blue * 85), gpoutfile);
! 323: mask >>= 1;
! 324: }
! 325: }
! 326: }
! 327:
! 328: b_freebitmap();
! 329: }
! 330:
! 331: TERM_PUBLIC void PBMtext()
! 332: {
! 333: switch (pbm_mode) {
! 334: case 0:
! 335: PBMmonotext();
! 336: break;
! 337: case 1:
! 338: PBMgraytext();
! 339: break;
! 340: case 2:
! 341: PBMcolortext();
! 342: break;
! 343: }
! 344: }
! 345:
! 346:
! 347: TERM_PUBLIC void PBMlinetype(linetype)
! 348: int linetype;
! 349: {
! 350: switch (pbm_mode) {
! 351: case 0:
! 352: b_setlinetype(linetype);
! 353: break;
! 354: case 1:
! 355: if (linetype >= 7)
! 356: linetype %= 7;
! 357: b_setvalue(pgm_gray[linetype + 2]);
! 358: break;
! 359: case 2:
! 360: if (linetype >= 9)
! 361: linetype %= 9;
! 362: b_setvalue(ppm_color[linetype + 2]);
! 363: break;
! 364: }
! 365: }
! 366:
! 367: TERM_PUBLIC void PBMpoint(x, y, point)
! 368: unsigned int x, y;
! 369: int point;
! 370: {
! 371: if (pbm_mode == 0)
! 372: line_and_point(x, y, point);
! 373: else
! 374: do_point(x, y, point);
! 375: }
! 376:
! 377: #endif /* TERM_BODY */
! 378:
! 379: #ifdef TERM_TABLE
! 380:
! 381: #define PBMmove b_move
! 382: #define PBMvector b_vector
! 383: #define PBMtext_angle b_text_angle
! 384: #define PBMput_text b_put_text
! 385:
! 386: TERM_TABLE_START(pbm_driver)
! 387: "pbm", "Portable bitmap [small medium large] [monochrome gray color]",
! 388: PBM_XMAX, PBM_YMAX, PBM_VCHAR,
! 389: PBM_HCHAR, PBM_VTIC, PBM_HTIC, PBMoptions,
! 390: PBMinit, PBMreset, PBMtext, null_scale,
! 391: PBMgraphics, PBMmove, PBMvector, PBMlinetype,
! 392: PBMput_text, PBMtext_angle, null_justify_text, PBMpoint,
! 393: do_arrow, set_font_null,
! 394: 0, /* pointsize */
! 395: TERM_CAN_MULTIPLOT | TERM_BINARY
! 396: TERM_TABLE_END(pbm_driver)
! 397:
! 398: #undef LAST_TERM
! 399: #define LAST_TERM pbm_driver
! 400:
! 401: #endif /* TERM_TABLE */
! 402:
! 403:
! 404: #ifdef TERM_HELP
! 405: START_HELP(pbm)
! 406: "1 pbm",
! 407: "?commands set terminal pbm",
! 408: "?set terminal pbm",
! 409: "?set term pbm",
! 410: "?terminal pbm",
! 411: "?term pbm",
! 412: "?pbm",
! 413: " Several options may be set in the `pbm` terminal---the driver for PBMplus.",
! 414: "",
! 415: " Syntax:",
! 416: " set terminal pbm {<fontsize>} {<mode>}",
! 417: "",
! 418: " where <fontsize> is `small`, `medium`, or `large` and <mode> is `monochrome`,",
! 419: " `gray` or `color`. The default plot size is 640 pixels wide and 480 pixels",
! 420: " high; this may be changed by `set size`.",
! 421: "",
! 422: " The output of the `pbm` driver depends upon <mode>: `monochrome` produces a",
! 423: " portable bitmap (one bit per pixel), `gray` a portable graymap (three bits",
! 424: " per pixel) and `color` a portable pixmap (color, four bits per pixel).",
! 425: "",
! 426: " The output of this driver can be used with Jef Poskanzer's excellent PBMPLUS",
! 427: " package, which provides programs to convert the above PBMPLUS formats to GIF,",
! 428: " TIFF, MacPaint, Macintosh PICT, PCX, X11 bitmap and many others. PBMPLUS may",
! 429: " be obtained from ftp.x.org. The relevant files have names that begin with",
! 430: " \"netpbm-1mar1994.p1\"; they reside in /contrib/utilities. The package can",
! 431: " probably also be obtained from one of the many sites that mirrors ftp.x.org.",
! 432: "",
! 433: " Examples:",
! 434: " set terminal pbm small monochrome # defaults",
! 435: " set size 2,2; set terminal pbm color medium"
! 436: END_HELP(pbm)
! 437: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to pbm.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term