Annotation of OpenXM_contrib/gnuplot/term/qms.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: qms.trm,v 1.14 1998/04/14 00:18:05 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - qms.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: * QMS laser printers
! 43: *
! 44: * AUTHORS
! 45: * Colin Kelley, Thomas Williams, Russell Lang
! 46: *
! 47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 48: *
! 49: */
! 50:
! 51: /*
! 52: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 53: */
! 54:
! 55: #include "driver.h"
! 56:
! 57: #ifdef TERM_REGISTER
! 58: register_term(qms)
! 59: #endif
! 60:
! 61: #ifdef TERM_PROTO
! 62: TERM_PUBLIC void QMS_init __PROTO((void));
! 63: TERM_PUBLIC void QMS_graphics __PROTO((void));
! 64: TERM_PUBLIC void QMS_text __PROTO((void));
! 65: TERM_PUBLIC void QMS_linetype __PROTO((int linetype));
! 66: TERM_PUBLIC void QMS_move __PROTO((unsigned int x, unsigned int y));
! 67: TERM_PUBLIC void QMS_vector __PROTO((unsigned int x2, unsigned int y2));
! 68: TERM_PUBLIC void QMS_put_text __PROTO((unsigned int x, unsigned int y, char str[]));
! 69: TERM_PUBLIC void QMS_reset __PROTO((void));
! 70:
! 71: #define QMS_XMAX 9000
! 72: #define QMS_YMAX 6000
! 73:
! 74: #define QMS_XLAST (QMS_XMAX - 1)
! 75: #define QMS_YLAST (QMS_YMAX - 1)
! 76:
! 77: #define QMS_VCHAR 120
! 78: #define QMS_HCHAR 70
! 79: #define QMS_VTIC 70
! 80: #define QMS_HTIC 70
! 81: #endif /* TERM_PROTO */
! 82:
! 83: #ifndef TERM_PROTO_ONLY
! 84: #ifdef TERM_BODY
! 85: static int qms_line = 0; /* to remember current line type */
! 86:
! 87: TERM_PUBLIC void QMS_init()
! 88: {
! 89: /* This was just ^IOL, but at Rutgers at least we need some more stuff */
! 90: fputs("^PY^-\n^IOL\n^ISYNTAX00000^F^IB11000^IJ00000^IT00000\n", gpoutfile);
! 91: /* ^ QUIC on ^set defaults ^ set botttom,top,left margins
! 92: * ^landscape ^free format
! 93: */
! 94:
! 95: /* set defaults are: implicit decimal point, units in inches,
! 96: * numbers left justified, units in 1/1000 inch, do not ignore spaces
! 97: * margins are in 1/1000 inch units
! 98: */
! 99: }
! 100:
! 101:
! 102: TERM_PUBLIC void QMS_graphics()
! 103: {
! 104: fputs("^IGV\n", gpoutfile);
! 105: /* ^enter graphics vector mode */
! 106: }
! 107:
! 108:
! 109:
! 110: TERM_PUBLIC void QMS_text()
! 111: {
! 112: /* added ^-, because ^, after an ^I command doesn't actually print a page */
! 113: /* Did anybody try this code out? [uhh...-cdk] */
! 114: fputs("^IGE\n^-^,", gpoutfile);
! 115: /* ^exit graphics vector mode
! 116: * ^pass terminator
! 117: * ^print page
! 118: */
! 119: }
! 120:
! 121:
! 122: TERM_PUBLIC void QMS_linetype(linetype)
! 123: int linetype;
! 124: {
! 125: static int width[2 + 9] = { 7, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7 };
! 126: static int type[2 + 9] = { 0, 1, 0, 2, 3, 0, 2, 3, 0, 2, 3 };
! 127: /*
! 128: * I don't know about Villanova, but on our printer, using ^V without
! 129: * previously setting up a pattern crashes the microcode.
! 130: * [nope, doesn't crash here. -cdk]
! 131: * [it generates a controller error here on dotted lines. - rjl]
! 132: */
! 133: /* Code to define patterns added by rjl
! 134: * According to the manual it should work - but it doesn't
! 135: */
! 136: qms_line = linetype;
! 137: if (linetype >= 9)
! 138: linetype %= 9;
! 139:
! 140: fprintf(gpoutfile, "^PW%02d\n", width[linetype + 2]);
! 141: /* ^width in dots */
! 142:
! 143: switch (type[linetype + 2]) {
! 144: case 1: /* short dash */
! 145: fputs("^PV102025^G\n^V1\n", gpoutfile);
! 146: /* ^PV = define pattern vector, 1 = pattern number,
! 147: * 02 = number of pen downs and ups, 025 = .025" length of ups/downs
! 148: */
! 149: break;
! 150: case 2: /* medium dash */
! 151: fputs("^PV202050^G\n^V2\n", gpoutfile);
! 152: break;
! 153: case 3: /* long dash */
! 154: fputs("^PV302100^G\n^V3\n", gpoutfile);
! 155: break;
! 156: default:
! 157: case 0:
! 158: fputs("^V0\n", gpoutfile);
! 159: break;
! 160: }
! 161: }
! 162:
! 163:
! 164: TERM_PUBLIC void QMS_move(x, y)
! 165: unsigned int x, y;
! 166: {
! 167: fprintf(gpoutfile, "^U%05d:%05d\n", 1000 + x, QMS_YLAST + 1000 - y);
! 168: /* ^pen up vector*/
! 169: }
! 170:
! 171:
! 172: TERM_PUBLIC void QMS_vector(x2, y2)
! 173: unsigned int x2, y2;
! 174: {
! 175: fprintf(gpoutfile, "^D%05d:%05d\n", 1000 + x2, QMS_YLAST + 1000 - y2);
! 176: /* ^pen down vector*/
! 177: }
! 178:
! 179:
! 180: TERM_PUBLIC void QMS_put_text(x, y, str)
! 181: unsigned int x, y;
! 182: char str[];
! 183: {
! 184: char ch;
! 185: QMS_move(x, y + QMS_VCHAR / 3);
! 186: fputs("^IGE\n", gpoutfile);
! 187: ch = *str++;
! 188: while (ch != NUL) {
! 189: if (ch == '^')
! 190: putc('^', gpoutfile);
! 191: putc(ch, gpoutfile);
! 192: ch = *str++;
! 193: }
! 194: fputs("\n^IGV\n", gpoutfile);
! 195: QMS_linetype(qms_line); /* restore line type */
! 196: }
! 197:
! 198:
! 199: TERM_PUBLIC void QMS_reset()
! 200: {
! 201: fputs("^PN^-\n", gpoutfile);
! 202: /* ^QUIC off */
! 203: }
! 204:
! 205: #endif /* TERM_BODY */
! 206:
! 207: #ifdef TERM_TABLE
! 208: TERM_TABLE_START(qms_driver)
! 209: "qms", "QMS/QUIC Laser printer (also Talaris 1200 and others)",
! 210: QMS_XMAX, QMS_YMAX, QMS_VCHAR, QMS_HCHAR,
! 211: QMS_VTIC, QMS_HTIC, options_null, QMS_init, QMS_reset,
! 212: QMS_text, null_scale, QMS_graphics, QMS_move, QMS_vector,
! 213: QMS_linetype, QMS_put_text, null_text_angle,
! 214: null_justify_text, line_and_point, do_arrow, set_font_null
! 215: TERM_TABLE_END(qms_driver)
! 216:
! 217: #undef LAST_TERM
! 218: #define LAST_TERM qms_driver
! 219:
! 220: #endif /* TERM_TABLE */
! 221: #endif /* TERM_PROTO_ONLY */
! 222:
! 223: #ifdef TERM_HELP
! 224: START_HELP(qms)
! 225: "1 qms",
! 226: "?commands set terminal qms",
! 227: "?set terminal qms",
! 228: "?set term qms",
! 229: "?terminal qms",
! 230: "?term qms",
! 231: "?qms",
! 232: " The `qms` terminal driver supports the QMS/QUIC Laser printer, the Talaris",
! 233: " 1200 and others. It has no options."
! 234: END_HELP(qms)
! 235: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to qms.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term