Annotation of OpenXM_contrib/gnuplot/term/hppj.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: hppj.trm,v 1.13 1998/04/14 00:17:51 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - hppj.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: * hppj
! 43: *
! 44: * AUTHORS
! 45: * Dan Merget (danm@sr.hp.com)
! 46: *
! 47: * This file was based on the hpljii file by:
! 48: * John Engels
! 49: * Russell Lang
! 50: * Maurice Castro
! 51: *
! 52: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 53: *
! 54: */
! 55:
! 56: /* The following HP laserjet series II driver uses generic bit mapped graphics
! 57: * routines from bitmap.c to build up a bit map in memory.
! 58: */
! 59:
! 60: /*
! 61: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 62: */
! 63:
! 64: #include "driver.h"
! 65:
! 66: #ifdef TERM_REGISTER
! 67: register_term(hppj)
! 68: #endif
! 69:
! 70: #ifdef TERM_PROTO
! 71: TERM_PUBLIC void HPPJoptions __PROTO((void));
! 72: TERM_PUBLIC void HPPJinit __PROTO((void));
! 73: TERM_PUBLIC void HPPJreset __PROTO((void));
! 74: TERM_PUBLIC void HPPJgraphics __PROTO((void));
! 75: TERM_PUBLIC void HPPJtext __PROTO((void));
! 76: TERM_PUBLIC void HPPJlinetype __PROTO((int linetype));
! 77: #define HPPJmove b_move
! 78: #define HPPJvector b_vector
! 79: #define HPPJtext_angle b_text_angle
! 80: #define HPPJput_text b_put_text
! 81:
! 82: /* We define 3 different font sizes: 5x9, 9x17, and 13x25 */
! 83:
! 84: #define HPPJ_DPI 180 /* dots per inch */
! 85: #define HPPJ_PLANES 3 /* color planes */
! 86: #define HPPJ_COLORS (1 << HPPJ_PLANES)
! 87: /* make XMAX and YMAX a multiple of 8 */
! 88: #define HPPJ_XMAX (8*(unsigned int)(9.5 * HPPJ_DPI / 8.0 + 0.9))
! 89: #define HPPJ_YMAX (8 * HPPJ_DPI)
! 90:
! 91: /* default values for term_tbl */
! 92: #define HPPJ_9x17_VCHAR FNT9X17_VCHAR
! 93: #define HPPJ_9x17_HCHAR FNT9X17_HCHAR
! 94: #define HPPJ_9x17_VTIC (FNT9X17_VCHAR / 2)
! 95: #define HPPJ_9x17_HTIC (FNT9X17_HCHAR / 2)
! 96: #endif /* TERM_PROTO */
! 97:
! 98: #ifndef TERM_PROTO_ONLY
! 99: #ifdef TERM_BODY
! 100: static int hppj_font = FNT9X17;
! 101:
! 102: TERM_PUBLIC void HPPJoptions()
! 103: {
! 104: char opt[10];
! 105: #define HPPJERROR "expecting font size FNT5X9, FNT9X17, or FNT13X25"
! 106:
! 107: term_options[0] = NUL; /* default to empty string and 9x17 font */
! 108: hppj_font = FNT9X17; /* in case of error or empty options */
! 109:
! 110: if (!END_OF_COMMAND) {
! 111: if (token[c_token].length > 8) {
! 112: int_error(HPPJERROR, c_token);
! 113: }
! 114: capture(opt, c_token, c_token, /*4 */ 9); /* HBB 980226 */
! 115: if (!strcmp(opt, "FNT5X9")) {
! 116: hppj_font = FNT5X9;
! 117: strcpy(term_options, "FNT5X9");
! 118: } else if (!strcmp(opt, "FNT9X17")) {
! 119: hppj_font = FNT9X17;
! 120: strcpy(term_options, "FNT9X17");
! 121: } else if (!strcmp(opt, "FNT13X25")) {
! 122: hppj_font = FNT13X25;
! 123: strcpy(term_options, "FNT13X25");
! 124: } else {
! 125: int_error(HPPJERROR, c_token);
! 126: }
! 127: c_token++;
! 128: }
! 129: }
! 130:
! 131:
! 132: TERM_PUBLIC void HPPJinit()
! 133: {
! 134: /* HBB 980226: moved this here, from graphics(): only init() may
! 135: * change fields of *term ! */
! 136: switch (hppj_font) {
! 137: case FNT5X9:
! 138: term->v_char = FNT5X9_VCHAR;
! 139: term->h_char = FNT5X9_HCHAR;
! 140: term->v_tic = FNT5X9_VCHAR / 2;
! 141: term->h_tic = FNT5X9_HCHAR / 2;
! 142: break;
! 143: case FNT9X17:
! 144: term->v_char = FNT9X17_VCHAR;
! 145: term->h_char = FNT9X17_HCHAR;
! 146: term->v_tic = FNT9X17_VCHAR / 2;
! 147: term->h_tic = FNT9X17_HCHAR / 2;
! 148: break;
! 149: case FNT13X25:
! 150: term->v_char = FNT13X25_VCHAR;
! 151: term->h_char = FNT13X25_HCHAR;
! 152: term->v_tic = FNT13X25_VCHAR / 2;
! 153: term->h_tic = FNT13X25_HCHAR / 2;
! 154: break;
! 155: }
! 156: }
! 157:
! 158:
! 159: TERM_PUBLIC void HPPJreset()
! 160: {
! 161: #ifdef VMS
! 162: fflush_binary();
! 163: #endif /* VMS */
! 164: }
! 165:
! 166:
! 167: TERM_PUBLIC void HPPJgraphics()
! 168: {
! 169: /* HBB 980226: move a block of code from here to init() */
! 170: b_charsize(hppj_font);
! 171:
! 172: b_makebitmap(HPPJ_XMAX, HPPJ_YMAX, HPPJ_PLANES);
! 173: }
! 174:
! 175:
! 176: TERM_PUBLIC void HPPJtext()
! 177: {
! 178: int x, plane, y; /* loop indexes */
! 179: int minRow, maxRow; /* loop bounds */
! 180: int numBytes; /* Number of run-length coded bytes to output */
! 181: int numReps; /* Number of times the current byte is repeated */
! 182:
! 183: fprintf(gpoutfile, "\
! 184: \033E\033*t%dR\033*r%dS\
! 185: \033*b0X\033*b0Y\033*r%dU\
! 186: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 187: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 188: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 189: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 190: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 191: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 192: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 193: \033*v%dA\033*v%dB\033*v%dC\033*v%dI\
! 194: \033*b1M\033*r1A",
! 195: HPPJ_DPI, HPPJ_YMAX,
! 196: HPPJ_PLANES,
! 197: 90, 88, 85, 0,
! 198: 53, 8, 14, 1,
! 199: 3, 26, 22, 2,
! 200: 4, 4, 29, 3,
! 201: 53, 5, 25, 4,
! 202: 2, 22, 64, 5,
! 203: 89, 83, 13, 6,
! 204: 4, 4, 6, 7);
! 205:
! 206: /* dump bitmap in raster mode using run-length encoding */
! 207: for (x = HPPJ_XMAX - 1; x >= 0; --x) {
! 208: for (plane = 0; plane < HPPJ_PLANES; plane++) {
! 209: minRow = b_psize * plane;
! 210: maxRow = b_psize * plane + b_psize - 1;
! 211:
! 212: /* Print column header */
! 213: numBytes = 0;
! 214: for (y = maxRow; y >= minRow; --y) {
! 215: if (y == minRow || *((*b_p)[y] + x) != *((*b_p)[y - 1] + x)) {
! 216: numBytes += 2;
! 217: }
! 218: }
! 219: fprintf(gpoutfile, "\033*b%d", numBytes);
! 220: (void) fputc((char) (plane < HPPJ_PLANES - 1 ? 'V' : 'W'), gpoutfile);
! 221:
! 222: /* Print remainder of column */
! 223: numReps = 0;
! 224: for (y = maxRow; y >= minRow; --y) {
! 225: if (y == minRow || *((*b_p)[y] + x) != *((*b_p)[y - 1] + x)) {
! 226: (void) fputc((char) (numReps), gpoutfile);
! 227: (void) fputc((char) (*((*b_p)[y] + x)), gpoutfile);
! 228: numReps = 0;
! 229: } else {
! 230: numReps++;
! 231: }
! 232: }
! 233: }
! 234: }
! 235: fputs("\033*r1B\033E", gpoutfile);
! 236:
! 237: b_freebitmap();
! 238: }
! 239:
! 240:
! 241: TERM_PUBLIC void HPPJlinetype(linetype)
! 242: int linetype;
! 243: {
! 244: if (linetype >= 0) {
! 245: b_setlinetype(0);
! 246: b_setvalue((linetype % (HPPJ_COLORS - 1)) + 1);
! 247: } else {
! 248: b_setlinetype(linetype + 2);
! 249: b_setvalue(HPPJ_COLORS - 1);
! 250: }
! 251: }
! 252:
! 253: #endif /* TERM_BODY */
! 254:
! 255: #ifdef TERM_TABLE
! 256:
! 257: TERM_TABLE_START(hppj_driver)
! 258: "hppj", "HP PaintJet and HP3630 [FNT5X9 FNT9X17 FNT13X25]",
! 259: HPPJ_XMAX, HPPJ_YMAX,
! 260: HPPJ_9x17_VCHAR, HPPJ_9x17_HCHAR, HPPJ_9x17_VTIC, HPPJ_9x17_HTIC,
! 261: HPPJoptions, HPPJinit, HPPJreset, HPPJtext, null_scale, HPPJgraphics,
! 262: HPPJmove, HPPJvector, HPPJlinetype, HPPJput_text, HPPJtext_angle,
! 263: null_justify_text, do_point, do_arrow, set_font_null, 0, TERM_BINARY
! 264: TERM_TABLE_END(hppj_driver)
! 265:
! 266: #undef LAST_TERM
! 267: #define LAST_TERM hppj_driver
! 268:
! 269: #endif /* TERM_TABLE */
! 270: #endif /* TERM_PROTO_ONLY */
! 271:
! 272: #ifdef TERM_HELP
! 273: START_HELP(hppj)
! 274: "1 hppj",
! 275: "?commands set terminal hppj",
! 276: "?set terminal hppj",
! 277: "?set term hppj",
! 278: "?terminal hppj",
! 279: "?term hppj",
! 280: "?hppj",
! 281: " The `hppj` terminal driver supports the HP PaintJet and HP3630 printers. The",
! 282: " only option is the choice of font.",
! 283: "",
! 284: " Syntax:",
! 285: " set terminal hppj {FNT5X9 | FNT9X17 | FNT13X25}",
! 286: "",
! 287: " with the middle-sized font (FNT9X17) being the default."
! 288: END_HELP(hppj)
! 289: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to hppj.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term