Annotation of OpenXM_contrib/gnuplot/term/png.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: png.trm,v 1.13 1998/06/18 14:59:23 ddenholm Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - png.trm */
! 7:
! 8: /*[
! 9: * Copyright 1995, 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: * png
! 43: *
! 44: * AUTHORS
! 45: * Alexander Lehmann
! 46: * derived from pbm.trm by Russell Lang
! 47: *
! 48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 49: *
! 50: */
! 51:
! 52: /* To compile this terminal driver, you need libpng and zlib, both are
! 53: available at ftp://ftp.uu.net/graphics/png. Remember to add the
! 54: include dirs and libraries to TERMFLAGS and TERMLIBS. */
! 55:
! 56: /* The following png drivers use the generic bit mapped graphics
! 57: routines from bitmap.c to build up a bit map in memory. The driver
! 58: interchanges colomns and lines in order to access entire lines
! 59: easily and returns the lines to get bits in the right order :
! 60: (x,y) -> (y,XMAX-1-x). */
! 61: /* This interchange is done by calling b_makebitmap() with reversed
! 62: xmax and ymax, and then setting b_rastermode to TRUE. b_setpixel()
! 63: will then perform the interchange before each pixel is plotted */
! 64:
! 65: #include "driver.h"
! 66:
! 67: #ifdef TERM_REGISTER
! 68: register_term(png_driver)
! 69: #endif
! 70:
! 71: #ifdef TERM_PROTO
! 72: TERM_PUBLIC void PNGoptions __PROTO((void));
! 73: TERM_PUBLIC void PNGinit __PROTO((void));
! 74: TERM_PUBLIC void PNGreset __PROTO((void));
! 75: TERM_PUBLIC void PNGsetfont __PROTO((void));
! 76: TERM_PUBLIC void PNGgraphics __PROTO((void));
! 77: TERM_PUBLIC void PNGtext __PROTO((void));
! 78: TERM_PUBLIC void PNGlinetype __PROTO((int linetype));
! 79: TERM_PUBLIC void PNGpoint __PROTO((unsigned int x, unsigned int y, int point));
! 80: #endif /* TERM_PROTO */
! 81:
! 82: #ifdef TERM_BODY
! 83:
! 84: #include "png.h"
! 85:
! 86: /* I'm not sure exactly which is the first version we work with,
! 87: * but I know that some older ones don't define all the symbols
! 88: * we use
! 89: */
! 90:
! 91: /* png version test now in configure */
! 92:
! 93: /* From version.c */
! 94: extern char version[];
! 95: extern char patchlevel[];
! 96:
! 97: /* make XMAX and YMAX a multiple of 8 */
! 98: #define PNG_XMAX (640)
! 99: #define PNG_YMAX (480)
! 100: #define PNG_VCHAR (FNT5X9_VCHAR)
! 101: #define PNG_HCHAR (FNT5X9_VCHAR)
! 102: #define PNG_VTIC FNT5X9_HBITS
! 103: #define PNG_HTIC FNT5X9_HBITS
! 104:
! 105: static int png_font = 1; /* small font */
! 106: static int png_mode = 0; /* 0:monochrome 1:gray 2:color */
! 107:
! 108: /* 7=black, 0=white */
! 109: static int png_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 }; /* grays */
! 110: /* bit3=!intensify, bit2=!red, bit1=!green, bit0=!blue */
! 111: static int png_color_table[] ={ 15, 8, 3, 5, 6, 4, 2, 1, 11, 13, 14 }; /* colors */
! 112: static png_color png_palette[16];
! 113:
! 114: void PNGoptions()
! 115: {
! 116: png_font = 1;
! 117: png_mode = 0;
! 118:
! 119: term_options[0] = NUL;
! 120:
! 121: while (!END_OF_COMMAND) {
! 122: if (almost_equals(c_token, "s$mall"))
! 123: png_font = 1;
! 124: else if (almost_equals(c_token, "me$dium"))
! 125: png_font = 2;
! 126: else if (almost_equals(c_token, "l$arge"))
! 127: png_font = 3;
! 128: else if (almost_equals(c_token, "mo$nochrome"))
! 129: png_mode = 0;
! 130: else if (almost_equals(c_token, "g$ray"))
! 131: png_mode = 1;
! 132: else if (almost_equals(c_token, "c$olor")
! 133: || almost_equals(c_token, "c$olour"))
! 134: png_mode = 2;
! 135: else {
! 136: /* reset to default, since term is already set */
! 137: png_font = 1;
! 138: png_mode = 0;
! 139: int_error("expecting: {small, medium, large} and {monochrome, gray, color}", c_token);
! 140: }
! 141: c_token++;
! 142: }
! 143:
! 144: /* setup options string */
! 145:
! 146: switch (png_font) {
! 147: case 1:
! 148: strcat(term_options, "small");
! 149: break;
! 150: case 2:
! 151: strcat(term_options, "medium");
! 152: break;
! 153: case 3:
! 154: strcat(term_options, "large");
! 155: break;
! 156: }
! 157:
! 158: switch (png_mode) {
! 159: case 0:
! 160: strcat(term_options, " monochrome");
! 161: break;
! 162: case 1:
! 163: strcat(term_options, " gray");
! 164: break;
! 165: case 2:
! 166: strcat(term_options, " color");
! 167: break;
! 168: }
! 169: }
! 170:
! 171:
! 172: void PNGinit()
! 173: {
! 174: PNGsetfont(); /* HBB 980226: do this here! */
! 175: }
! 176:
! 177:
! 178: void PNGreset()
! 179: {
! 180: #ifdef VMS
! 181: fflush_binary();
! 182: #endif /* VMS */
! 183: }
! 184:
! 185:
! 186: void PNGsetfont()
! 187: {
! 188: switch (png_font) {
! 189: case 1:
! 190: b_charsize(FNT5X9);
! 191: term->v_char = FNT5X9_VCHAR;
! 192: term->h_char = FNT5X9_HCHAR;
! 193: term->v_tic = FNT5X9_HBITS;
! 194: term->h_tic = FNT5X9_HBITS;
! 195: break;
! 196: case 2:
! 197: b_charsize(FNT9X17);
! 198: term->v_char = FNT9X17_VCHAR;
! 199: term->h_char = FNT9X17_HCHAR;
! 200: term->v_tic = FNT9X17_HBITS;
! 201: term->h_tic = FNT9X17_HBITS;
! 202: break;
! 203: case 3:
! 204: b_charsize(FNT13X25);
! 205: term->v_char = FNT13X25_VCHAR;
! 206: term->h_char = FNT13X25_HCHAR;
! 207: term->v_tic = FNT13X25_HBITS;
! 208: term->h_tic = FNT13X25_HBITS;
! 209: break;
! 210: }
! 211: }
! 212:
! 213:
! 214: void PNGgraphics()
! 215: {
! 216: int numplanes;
! 217:
! 218: switch (png_mode) {
! 219: case 0:
! 220: numplanes = 1;
! 221: break;
! 222: case 1:
! 223: numplanes = 3;
! 224: break;
! 225: case 2:
! 226: numplanes = 4;
! 227: break;
! 228: }
! 229:
! 230: /* PNGsetfont(); *//* HBB 980226: do this in init() ! */
! 231:
! 232: /* rotate plot -90 degrees by reversing XMAX and YMAX and by
! 233: setting b_rastermode to TRUE */
! 234: b_makebitmap((unsigned int) (PNG_YMAX * ysize),
! 235: (unsigned int) (PNG_XMAX * xsize), numplanes);
! 236: b_rastermode = TRUE;
! 237:
! 238: if (png_mode != 0)
! 239: b_setlinetype(0); /* solid lines */
! 240: }
! 241:
! 242: void PNGtext()
! 243: {
! 244: register int x, j, row;
! 245: png_structp png_ptr;
! 246: png_infop info_ptr;
! 247: register int i, value;
! 248: png_bytep prow;
! 249: int mask, plane1, plane2, plane3, plane4;
! 250: int red, green, blue;
! 251: png_text pngtext, *pngtext_copy;
! 252: char text[100];
! 253:
! 254: png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
! 255: if (!png_ptr) {
! 256: b_freebitmap();
! 257: return;
! 258: }
! 259: info_ptr = png_create_info_struct(png_ptr);
! 260: if (!info_ptr) {
! 261: png_destroy_write_struct(&png_ptr, (png_infopp) NULL);
! 262: b_freebitmap();
! 263: return;
! 264: }
! 265: prow = malloc(b_ysize);
! 266: if (!prow) {
! 267: png_destroy_write_struct(&png_ptr, &info_ptr);
! 268: b_freebitmap();
! 269: return;
! 270: }
! 271: if (setjmp(png_ptr->jmpbuf)) {
! 272: png_destroy_write_struct(&png_ptr, &info_ptr);
! 273: free(prow);
! 274: b_freebitmap();
! 275: return;
! 276: }
! 277: png_info_init(info_ptr);
! 278: png_write_init(png_ptr);
! 279:
! 280: png_init_io(png_ptr, gpoutfile);
! 281:
! 282: info_ptr->width = b_ysize;
! 283: info_ptr->height = b_xsize;
! 284:
! 285: info_ptr->bit_depth = png_mode == 0 ? 1 : 4;
! 286: info_ptr->color_type = png_mode == 2 ? PNG_COLOR_TYPE_PALETTE :
! 287: PNG_COLOR_TYPE_GRAY;
! 288: if (png_mode == 2) {
! 289: info_ptr->valid |= PNG_INFO_PLTE;
! 290: info_ptr->palette = png_palette;
! 291: info_ptr->num_palette = 16;
! 292: }
! 293: if (png_mode != 0) {
! 294: info_ptr->valid |= PNG_INFO_sBIT;
! 295: if (png_mode == 1) {
! 296: info_ptr->sig_bit.gray = 3;
! 297: png_set_shift(png_ptr, &(info_ptr->sig_bit));
! 298: } else {
! 299: info_ptr->sig_bit.red = 2;
! 300: info_ptr->sig_bit.green = 2;
! 301: info_ptr->sig_bit.blue = 2;
! 302: }
! 303: }
! 304: info_ptr->interlace_type = 0;
! 305: if (png_mode == 0)
! 306: png_set_invert_mono(png_ptr);
! 307:
! 308: if (png_mode == 2)
! 309: for (i = 0; i < 16; i++) {
! 310: red = (i & 4) ? 1 : 3;
! 311: green = (i & 2) ? 1 : 3;
! 312: blue = (i & 1) ? 1 : 3;
! 313: if (i & 8) {
! 314: red--;
! 315: green--;
! 316: blue--;
! 317: }
! 318: png_palette[i].red = red * 85;
! 319: png_palette[i].green = green * 85;
! 320: png_palette[i].blue = blue * 85;
! 321: }
! 322: sprintf(text, "gnuplot %sversion %s patchlevel %s", OS, version, patchlevel);
! 323:
! 324: pngtext.compression = -1;
! 325: pngtext.key = "Software";
! 326: pngtext.text = text;
! 327: pngtext.text_length = strlen(text);
! 328:
! 329: pngtext_copy = malloc(sizeof(*pngtext_copy));
! 330: *pngtext_copy = pngtext;
! 331: info_ptr->num_text = 1;
! 332: info_ptr->text = pngtext_copy;
! 333:
! 334: png_write_info(png_ptr, info_ptr);
! 335:
! 336: info_ptr->num_text = 0;
! 337: if (info_ptr->text) free(info_ptr->text);
! 338: info_ptr->text = NULL;
! 339:
! 340: png_set_packing(png_ptr);
! 341:
! 342: /* dump bitmap in raster mode */
! 343: for (x = b_xsize - 1; x >= 0; x--) {
! 344: row = (b_ysize / 8) - 1;
! 345: for (j = row; j >= 0; j--) {
! 346: mask = 0x80;
! 347: plane1 = (*((*b_p)[j] + x));
! 348: if (png_mode != 0) {
! 349: plane2 = (*((*b_p)[j + b_psize] + x));
! 350: plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
! 351: } else {
! 352: plane2 = 0;
! 353: plane3 = 0;
! 354: }
! 355: if (png_mode == 2)
! 356: plane4 = (*((*b_p)[j + b_psize + b_psize + b_psize] + x));
! 357: else
! 358: plane4 = 0;
! 359:
! 360: for (i = 0; i < 8; i++) {
! 361: value = 0;
! 362: if (plane1 & mask)
! 363: value += 1;
! 364: if (plane2 & mask)
! 365: value += 2;
! 366: if (plane3 & mask)
! 367: value += 4;
! 368: if (plane4 & mask)
! 369: value += 8;
! 370: if (png_mode == 1)
! 371: value = 7 - value;
! 372:
! 373: prow[(row - j) * 8 + i] = (png_byte) value;
! 374: mask >>= 1;
! 375: }
! 376: }
! 377: png_write_rows(png_ptr, &prow, 1);
! 378: }
! 379:
! 380: png_write_end(png_ptr, info_ptr);
! 381: png_destroy_write_struct(&png_ptr, &info_ptr);
! 382: free(prow);
! 383: b_freebitmap();
! 384: }
! 385:
! 386: void PNGlinetype(linetype)
! 387: int linetype;
! 388: {
! 389: switch (png_mode) {
! 390: case 0:
! 391: b_setlinetype(linetype);
! 392: break;
! 393: case 1:
! 394: if (linetype >= 7)
! 395: linetype %= 7;
! 396: b_setvalue(png_gray[linetype + 2]);
! 397: break;
! 398: case 2:
! 399: if (linetype >= 9)
! 400: linetype %= 9;
! 401: b_setvalue(png_color_table[linetype + 2]);
! 402: break;
! 403: }
! 404: }
! 405:
! 406: void PNGpoint(x, y, point)
! 407: unsigned int x, y;
! 408: int point;
! 409: {
! 410: if (png_mode == 0)
! 411: line_and_point(x, y, point);
! 412: else
! 413: do_point(x, y, point);
! 414: }
! 415:
! 416: #endif /* TERM_BODY */
! 417:
! 418: #ifdef TERM_TABLE
! 419:
! 420: TERM_TABLE_START(png_driver)
! 421: "png",
! 422: "Portable Network Graphics [small medium large] [monochrome gray color]",
! 423: PNG_XMAX, PNG_YMAX, PNG_VCHAR,
! 424: PNG_HCHAR, PNG_VTIC, PNG_HTIC, PNGoptions,
! 425: PNGinit, PNGreset, PNGtext, null_scale,
! 426: PNGgraphics, b_move, b_vector, PNGlinetype,
! 427: b_put_text, b_text_angle, null_justify_text, PNGpoint,
! 428: do_arrow, set_font_null,
! 429: 0, /* pointsize */
! 430: TERM_CAN_MULTIPLOT | TERM_BINARY
! 431: TERM_TABLE_END(png_driver)
! 432:
! 433: #undef LAST_TERM
! 434: #define LAST_TERM png_driver
! 435:
! 436: #endif /* TERM_TABLE */
! 437:
! 438: #ifdef TERM_HELP
! 439: START_HELP(png)
! 440: "1 png",
! 441: "?commands set terminal png",
! 442: "?set terminal png",
! 443: "?set term png",
! 444: "?terminal png",
! 445: "?term png",
! 446: "?png",
! 447: " The `png` terminal driver supports Portable Network Graphics. To compile it,",
! 448: " you will need the third-party libraries \"libpng\" and \"zlib\"; both are",
! 449: " available at ftp://ftp.uu.net/graphics/png. `png` has two options.",
! 450: "",
! 451: " Syntax:",
! 452: " set terminal png {small | medium | large}",
! 453: " {monochrome | gray | color}",
! 454: "",
! 455: " The defaults are small (fontsize) and monochrome."
! 456: END_HELP(png)
! 457: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to png.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term