Annotation of OpenXM_contrib/gnuplot/term/hp500c.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: hp500c.trm,v 1.17 1998/04/14 00:17:48 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - hp500c.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: * hpdj 500c
! 43: *
! 44: * AUTHORS
! 45: * John Engels -- \
! 46: * Russell Lang ----> HPLJII.trm
! 47: * Maurice Castro -- /
! 48: * UdoHessenauer ----> derived this version from the above one
! 49: *
! 50: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 51: *
! 52: */
! 53:
! 54: /* The following HP Deskjet500c driver uses generic bit mapped graphics
! 55: routines from bitmap.c to build up a bit map in memory. The driver
! 56: interchanges colomns and lines in order to access entire lines
! 57: easily and returns the lines to get bits in the right order :
! 58: (x,y) -> (y,XMAX-1-x). */
! 59: /* This interchange is done by calling b_makebitmap() with reversed
! 60: xmax and ymax, and then setting b_rastermode to TRUE. b_setpixel()
! 61: will then perform the interchange before each pixel is plotted */
! 62: /* by John Engels JENGELS@BNANDP51.BITNET, inspired by the hpljet driver
! 63: of Jyrki Yli-Nokari */
! 64:
! 65: /*
! 66: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 67: */
! 68:
! 69: #include "driver.h"
! 70:
! 71: #ifdef TERM_REGISTER
! 72: register_term(hp500c)
! 73: #endif
! 74:
! 75: #ifdef TERM_PROTO
! 76: TERM_PUBLIC void HP500Coptions __PROTO((void));
! 77: TERM_PUBLIC void HP500Cinit __PROTO((void));
! 78: TERM_PUBLIC void HP500Creset __PROTO((void));
! 79: TERM_PUBLIC void HP500Clinetype __PROTO((int linetype));
! 80: TERM_PUBLIC void HP500Cgraphics __PROTO((void));
! 81: TERM_PUBLIC void HP500Ctext __PROTO((void));
! 82: #define HP500Ctext_angle b_text_angle
! 83: #define HP500Cput_text b_put_text
! 84: #define HP500Cmove b_move
! 85: #define HP500Cvector b_vector
! 86: /* default values for term_tbl */
! 87: #define HP500C_75PPI_XMAX (1920/4)
! 88: #define HP500C_75PPI_YMAX (1920/4)
! 89: #define HP500C_75PPI_HCHAR (1920/4/6)
! 90: #define HP500C_75PPI_VCHAR (1920/4/10)
! 91: #define HP500C_75PPI_VTIC 5
! 92: #define HP500C_75PPI_HTIC 5
! 93:
! 94: #define GOT_HP500C_PROTO
! 95: #endif
! 96:
! 97: #ifndef TERM_PROTO_ONLY
! 98: #ifdef TERM_BODY
! 99:
! 100:
! 101: /* We define 4 different print qualities : 300ppi, 150ppi, 100ppi and
! 102: 75ppi. (Pixel size = 1, 2, 3, 4 dots) */
! 103:
! 104: #define HP500C_DPP (hpdj_dpp) /* dots per pixel */
! 105: #define HP500C_PPI (300/HP500C_DPP) /* pixel per inch */
! 106: /* make XMAX and YMAX a multiple of 8 */
! 107: #define HP500C_XMAX (8*(unsigned int)(xsize*1920/HP500C_DPP/8.0+0.9))
! 108: #define HP500C_YMAX (8*(unsigned int)(ysize*1920/HP500C_DPP/8.0+0.9))
! 109:
! 110: /* Courier font with 6 lines per inch */
! 111: #define HP500C_VCHAR (HP500C_PPI/6)
! 112: /* Courier font with 10 caracters per inch */
! 113: #define HP500C_HCHAR (HP500C_PPI/10)
! 114:
! 115:
! 116: /* Save current cursor position */
! 117: #define HP500C_PUSH_CURSOR fputs("\033&f0S",gpoutfile)
! 118: /* Restore cursor position */
! 119: #define HP500C_POP_CURSOR fputs("\033&f1S",gpoutfile)
! 120:
! 121: /* be sure to use courier font with 6lpi and 10cpi */
! 122: #define HP500C_COURIER fputs("\033(0N\033(s0p10.0h12.0v0s0b3T\033&l6D",gpoutfile)
! 123:
! 124:
! 125: static int HPcompress __PROTO((unsigned char *op, unsigned char *oe,
! 126: unsigned char *cp));
! 127: static unsigned char HPcomplement __PROTO((int c));
! 128: static int HPcompress_to_TIFF __PROTO((unsigned char *op, unsigned char *oe,
! 129: unsigned char *cp));
! 130: static int HPnocompress __PROTO((unsigned char *op, unsigned char *oe,
! 131: unsigned char *cp));
! 132:
! 133: static int hpdj_dpp = 4;
! 134: static int HP_COMP_MODE = 0;
! 135:
! 136: /* bm_pattern not appropriate for 300ppi graphics */
! 137: #ifndef GOT_300_PATTERN
! 138: #define GOT_300_PATTERN
! 139: static unsigned int b_300ppi_pattern[] =
! 140: {
! 141: 0xffff, 0x1111,
! 142: 0xffff, 0x3333, 0x0f0f, 0x3f3f, 0x0fff, 0x00ff, 0x33ff
! 143: };
! 144: #endif
! 145:
! 146:
! 147: TERM_PUBLIC void HP500Coptions()
! 148: {
! 149: char opt[6];
! 150:
! 151: #define HPDJCERROR "expecting dots per inch size 75, 100, 150 or 300 and/or compression method"
! 152: while (!END_OF_COMMAND) {
! 153: if (token[c_token].length > 4)
! 154: int_error(HPDJCERROR, c_token);
! 155:
! 156: /* almost_equals() won't accept numbers - use strcmp() instead */
! 157: capture(opt, c_token, c_token, 6);
! 158: if (!strcmp(opt, "75")) {
! 159: hpdj_dpp = 4;
! 160: HP_COMP_MODE = 0;
! 161:
! 162: } else if (!strcmp(opt, "100")) {
! 163: hpdj_dpp = 3;
! 164: HP_COMP_MODE = 0;
! 165: } else if (!strcmp(opt, "150")) {
! 166: hpdj_dpp = 2;
! 167: HP_COMP_MODE = 0;
! 168: } else if (!strcmp(opt, "300")) {
! 169: hpdj_dpp = 1;
! 170: HP_COMP_MODE = 0;
! 171: } else if (!strcmp(opt, "rle")) {
! 172: HP_COMP_MODE = 1;
! 173: } else if (!strcmp(opt, "tiff")) {
! 174: HP_COMP_MODE = 2;
! 175: }
! 176: c_token++;
! 177: }
! 178:
! 179: term->xmax = HP500C_XMAX;
! 180: term->ymax = HP500C_YMAX;
! 181: switch (hpdj_dpp) {
! 182: case 1:
! 183: strcpy(term_options, "300");
! 184: term->v_tic = 15;
! 185: term->h_tic = 15;
! 186: break;
! 187: case 2:
! 188: strcpy(term_options, "150");
! 189: term->v_tic = 8;
! 190: term->h_tic = 8;
! 191: break;
! 192: case 3:
! 193: strcpy(term_options, "100");
! 194: term->v_tic = 6;
! 195: term->h_tic = 6;
! 196: break;
! 197: case 4:
! 198: strcpy(term_options, "75");
! 199: term->v_tic = 5;
! 200: term->h_tic = 5;
! 201: break;
! 202: }
! 203: switch (HP_COMP_MODE) {
! 204: case 0:
! 205: strcat(term_options, " no comp");
! 206: break;
! 207: case 1:
! 208: strcat(term_options, " RLE");
! 209: break;
! 210: case 2:
! 211: strcat(term_options, " TIFF");
! 212: break;
! 213: case 3: /* not implemented yet */
! 214: strcat(term_options, " Delta Row");
! 215: break;
! 216: }
! 217: }
! 218:
! 219: TERM_PUBLIC void HP500Cinit()
! 220: {
! 221: /* HBB 980226: all changes to term-> fields *must* happen here, not
! 222: * in graphics() !*/
! 223: switch (hpdj_dpp) {
! 224: case 1:
! 225: b_charsize(FNT13X25);
! 226: term->v_char = FNT13X25_VCHAR;
! 227: term->h_char = FNT13X25_HCHAR;
! 228: break;
! 229: case 2:
! 230: b_charsize(FNT13X25);
! 231: term->v_char = FNT13X25_VCHAR;
! 232: term->h_char = FNT13X25_HCHAR;
! 233: break;
! 234: case 3:
! 235: b_charsize(FNT9X17);
! 236: term->v_char = FNT9X17_VCHAR;
! 237: term->h_char = FNT9X17_HCHAR;
! 238: break;
! 239: case 4:
! 240: b_charsize(FNT5X9);
! 241: term->v_char = FNT5X9_VCHAR;
! 242: term->h_char = FNT5X9_HCHAR;
! 243: break;
! 244: }
! 245: }
! 246:
! 247: TERM_PUBLIC void HP500Creset()
! 248: {
! 249: #ifdef VMS
! 250: fflush_binary();
! 251: #endif
! 252: }
! 253:
! 254:
! 255:
! 256: /* HP DeskJet 500c routines */
! 257:
! 258: TERM_PUBLIC void HP500Clinetype(linetype)
! 259: int linetype;
! 260: {
! 261: if (linetype < 0)
! 262: linetype = 7;
! 263: else if (linetype >= 8) {
! 264: linetype %= 8;
! 265: }
! 266: switch (linetype) {
! 267: case 0:
! 268: linetype = 6;
! 269: break;
! 270: case 1:
! 271: linetype = 5;
! 272: break;
! 273: case 2:
! 274: linetype = 3;
! 275: break;
! 276: case 3:
! 277: linetype = 2;
! 278: break;
! 279: case 4:
! 280: linetype = 1;
! 281: break;
! 282: case 5:
! 283: linetype = 4;
! 284: break;
! 285: case 6:
! 286: linetype = 7;
! 287: }
! 288: b_setvalue(linetype);
! 289:
! 290: }
! 291:
! 292: /*
! 293: void HP500Cpoint(x,y,value)
! 294: int x;
! 295: int y;
! 296: int value;
! 297: {
! 298: HP500Clinetype(value);
! 299: do_point(x,y,value);
! 300: }
! 301: */
! 302:
! 303: TERM_PUBLIC void HP500Cgraphics()
! 304: {
! 305: /* HBB 980226: moved block of code from here to init() */
! 306: /* rotate plot -90 degrees by reversing XMAX and YMAX and by
! 307: setting b_rastermode to TRUE */
! 308: b_makebitmap(HP500C_YMAX, HP500C_XMAX, 3);
! 309: b_rastermode = TRUE;
! 310: }
! 311:
! 312: /*
! 313: * Run-length encoding for the DeskJet. We have pairs of <count>
! 314: * <what>, where count goes from 0 (meaning one count) to 255
! 315: * this might double the size of the image.
! 316: */
! 317:
! 318: static int HPcompress(op, oe, cp)
! 319: unsigned char *op, *oe, *cp;
! 320: {
! 321: unsigned char *ce = cp;
! 322: while (op < oe) {
! 323: unsigned char prevchar;
! 324: unsigned char count;
! 325:
! 326: prevchar = *op; /* remember char */
! 327: count = 1; /* its read the first time */
! 328:
! 329: while (++op < oe && *op == prevchar && count < 255) {
! 330: /* set op to the next char */
! 331: count++; /* and count it */
! 332: }
! 333: *ce++ = --count; /* were ready, so correct the count */
! 334: *ce++ = prevchar; /* and store <what> */
! 335: }
! 336: *ce = 0; /* just to be safe */
! 337: return ce - cp; /* length of cbufs */
! 338: }
! 339:
! 340: static unsigned char HPcomplement(c)
! 341: int c;
! 342: {
! 343: return (unsigned char) (256 - c);
! 344: }
! 345:
! 346:
! 347: static int HPcompress_to_TIFF(op, oe, cp)
! 348: unsigned char *op; /* original pointer */
! 349: unsigned char *oe; /* end of orig string */
! 350: unsigned char *cp; /* pointer for compressed data */
! 351: {
! 352: unsigned char *countposition;
! 353: unsigned char *ce = cp;
! 354: while (op < oe) {
! 355: unsigned char prevchar;
! 356: unsigned char count;
! 357:
! 358: prevchar = *op; /* gelesenes Zeichen aufbewaren */
! 359: count = 1; /* bisher wurde es einmal gelesen */
! 360:
! 361: while (++op < oe && *op == prevchar && count < 128) {
! 362: count++;
! 363: }
! 364: *ce = HPcomplement(count - 1);
! 365: /* remember count for building blocks of literal bytes */
! 366: countposition = ce++;
! 367: *ce++ = prevchar;
! 368:
! 369: if (count < 2) {
! 370: while (op < oe && (prevchar != *op || *op != *(op + 1))) {
! 371: /* only use rle for at leat 3 equal bytes */
! 372: *ce++ = *op;
! 373: count++;
! 374: prevchar = *op++;
! 375: if (op > oe)
! 376: puts("FATAL op> oe!!\n");
! 377: }
! 378: if (op < oe && prevchar == *op) {
! 379: op--;
! 380: count--;
! 381: ce--;
! 382: }
! 383: *countposition = count - 1;
! 384: }
! 385: }
! 386: return ce - cp;
! 387:
! 388: }
! 389:
! 390: static int HPnocompress(op, oe, cp)
! 391: unsigned char *op;
! 392: unsigned char *oe;
! 393: unsigned char *cp;
! 394: {
! 395: unsigned char *ce = cp;
! 396: while (op < oe)
! 397: *ce++ = *op++;
! 398: return ce - cp;
! 399: }
! 400:
! 401: /* 0 compression raster bitmap dump. Compatible with HP DeskJet 500
! 402: hopefully compatible with other HP Deskjet printers */
! 403:
! 404: TERM_PUBLIC void HP500Ctext()
! 405: {
! 406: register int x, j, row, count = 0;
! 407: unsigned char *obuf, *oe, *cbuf, *ce;
! 408:
! 409: if ((obuf = (unsigned char *) malloc(100 * b_psize)) == 0)
! 410: puts("FATAL!-- couldn't get enough memory for obuf");
! 411: if ((cbuf = (unsigned char *) malloc(400 * b_psize)) == 0)
! 412: puts("FATAL!-- couldn't get enough memory for cbuf");
! 413:
! 414: oe = obuf;
! 415:
! 416: fprintf(gpoutfile, "\
! 417: \033*t%dR\
! 418: \033*r1A\
! 419: \033*b%1dM\
! 420: \033*r%dS\
! 421: \033*r-3U",
! 422: HP500C_PPI,
! 423: HP_COMP_MODE,
! 424: b_ysize);
! 425:
! 426: /* dump bitmap in raster mode */
! 427: for (x = b_xsize - 1; x >= 0; x--) {
! 428: row = (b_ysize / 8) - 1;
! 429: for (j = row; j >= 0; j--) {
! 430: *oe++ = (char) (*((*b_p)[j] + x));
! 431: }
! 432: switch (HP_COMP_MODE) {
! 433: case 2:
! 434: count = HPcompress_to_TIFF(obuf, oe, cbuf);
! 435: break;
! 436: case 1:
! 437: count = HPcompress(obuf, oe, cbuf);
! 438: break;
! 439: case 0:
! 440: count = HPnocompress(obuf, oe, cbuf);
! 441: break;
! 442: }
! 443: fprintf(gpoutfile, "\033*b%dV", count);
! 444: ce = cbuf;
! 445: while (count--)
! 446: fputc(*ce++, gpoutfile);
! 447: oe = obuf;
! 448:
! 449: for (j = row; j >= 0; j--) {
! 450: *oe++ = (char) (*((*b_p)[j + b_psize] + x));
! 451: }
! 452: switch (HP_COMP_MODE) {
! 453: case 2:
! 454: count = HPcompress_to_TIFF(obuf, oe, cbuf);
! 455: break;
! 456: case 1:
! 457: count = HPcompress(obuf, oe, cbuf);
! 458: break;
! 459: case 0:
! 460: count = HPnocompress(obuf, oe, cbuf);
! 461: break;
! 462:
! 463: }
! 464:
! 465: fprintf(gpoutfile, "\033*b%dV", count);
! 466: ce = cbuf;
! 467: while (count--)
! 468: fputc(*ce++, gpoutfile);
! 469: oe = obuf;
! 470:
! 471: for (j = row; j >= 0; j--) {
! 472: *oe++ = (char) (*((*b_p)[j + (2 * b_psize)] + x));
! 473: }
! 474: switch (HP_COMP_MODE) {
! 475: case 2:
! 476: count = HPcompress_to_TIFF(obuf, oe, cbuf);
! 477: break;
! 478: case 1:
! 479: count = HPcompress(obuf, oe, cbuf);
! 480: break;
! 481: case 0:
! 482: count = HPnocompress(obuf, oe, cbuf);
! 483: break;
! 484: }
! 485: fprintf(gpoutfile, "\033*b%dW", count);
! 486: ce = cbuf;
! 487: while (count--)
! 488: fputc(*ce++, gpoutfile);
! 489: oe = obuf;
! 490:
! 491: }
! 492: fputs("\033*rbC", gpoutfile);
! 493: free(cbuf);
! 494: free(obuf);
! 495: b_freebitmap();
! 496:
! 497: #ifndef VMS
! 498: /* most vms spoolers add a formfeed character */
! 499: putc('\f', gpoutfile);
! 500: #endif /* !VMS */
! 501: }
! 502:
! 503: #endif /* TERM_BODY */
! 504:
! 505: #ifdef TERM_TABLE
! 506:
! 507: TERM_TABLE_START(hp500c_driver)
! 508: "hp500c", "HP DeskJet 500c, [75 100 150 300] [rle tiff]",
! 509: HP500C_75PPI_XMAX, HP500C_75PPI_YMAX, HP500C_75PPI_VCHAR,
! 510: HP500C_75PPI_HCHAR, HP500C_75PPI_VTIC, HP500C_75PPI_HTIC, HP500Coptions,
! 511: HP500Cinit, HP500Creset, HP500Ctext, null_scale,
! 512: HP500Cgraphics, HP500Cmove, HP500Cvector, HP500Clinetype,
! 513: HP500Cput_text, HP500Ctext_angle, null_justify_text, do_point,
! 514: do_arrow, set_font_null, 0, TERM_BINARY
! 515: TERM_TABLE_END(hp500c_driver)
! 516:
! 517: #undef LAST_TERM
! 518: #define LAST_TERM hp500c_driver
! 519:
! 520: #endif /* TERM_TABLE */
! 521: #endif /* TERM_PROTO_ONLY */
! 522:
! 523: #ifdef TERM_HELP
! 524: START_HELP(hp500c)
! 525: "1 hp500c",
! 526: "?commands set terminal hp500c",
! 527: "?set terminal hp500c",
! 528: "?set term hp500c",
! 529: "?terminal hp500c",
! 530: "?term hp500c",
! 531: "?hp500c",
! 532: " The `hp500c` terminal driver supports the Hewlett Packard HP DeskJet 500c.",
! 533: " It has options for resolution and compression.",
! 534: "",
! 535: " Syntax:",
! 536: " set terminal hp500c {<res>} {<comp>}",
! 537: "",
! 538: " where `res` can be 75, 100, 150 or 300 dots per inch and `comp` can be \"rle\",",
! 539: " or \"tiff\". Any other inputs are replaced by the defaults, which are 75 dpi",
! 540: " and no compression. Rasterization at the higher resolutions may require a",
! 541: " large amount of memory."
! 542: END_HELP(hp500c)
! 543: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to hp500c.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term