Annotation of OpenXM_contrib/gnuplot/term/excl.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: excl.trm,v 1.9 1998/04/14 00:17:41 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - excl.trm */
7:
8: /* Copyright (c) 1992, 1998 by P. Klosowski at NIST. All Rights Reserved
9: *
10: * Permission to use, copy, and distribute this software and its
11: * documentation for any purpose with or without fee is hereby granted,
12: * provided that the above copyright notice appear in all copies and
13: * that both that copyright notice and this permission notice appear
14: * in supporting documentation.
15: *
16: * Permission to modify the software is granted, but not the right to
17: * distribute the complete modified source code. Modifications are to
18: * be distributed as patches to the released version. Permission to
19: * distribute binaries produced by compiling modified sources is granted,
20: * provided you
21: * 1. distribute the corresponding source modifications from the
22: * released version in the form of a patch file along with the binaries,
23: * 2. add special version identification to distinguish your version
24: * in addition to the base release version number,
25: * 3. provide your name and address as the primary contact for the
26: * support of your modified version, and
27: * 4. retain our contact information in regard to use of the base
28: * software.
29: * Permission to distribute the released version of the source code along
30: * with corresponding source modifications in the form of a patch file is
31: * granted with same provisions 2 through 4 for binary distributions.
32: *
33: * This software is provided "as is" without express or implied warranty
34: * to the extent permitted by applicable law.
35: *
36: * This file is included by ../term.c.
37: *
38: *
39: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
40: *
41: */
42:
43: /***
44: NAME
45: quic
46: PURPOSE
47: QUIC driver for GNUPLOT
48: NOTES
49:
50: HISTORY
51: przemek - Aug 16, 1992: Created.
52: lars - Nov 30, 1998: Updated to new gnuplot copyright by
53: permission from Przemek
54: ***/
55: /*
56: c *****************************************
57: c *****************************************
58: c ****** *****
59: c ****** EXCL command definitions *****
60: c ****** *****
61: c *****************************************
62: c *****************************************
63: */
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(excl)
73: #endif
74:
75: #ifdef TERM_PROTO
76: TERM_PUBLIC void EXCL_init __PROTO((void));
77: TERM_PUBLIC void EXCL_graphics __PROTO((void));
78: TERM_PUBLIC void EXCL_text __PROTO((void));
79: TERM_PUBLIC void EXCL_linetype __PROTO((int linetype));
80: TERM_PUBLIC void EXCL_move __PROTO((unsigned int x, unsigned int y));
81: TERM_PUBLIC void EXCL_vector __PROTO((unsigned int x2, unsigned int y2));
82: TERM_PUBLIC void EXCL_put_text __PROTO((unsigned int x, unsigned int y, char str[]));
83: TERM_PUBLIC void EXCL_reset __PROTO((void));
84:
85: #define EXCL_XMAX 9000
86: #define EXCL_YMAX 6500
87:
88: #define EXCL_XLAST (EXCL_XMAX - 1)
89: #define EXCL_YLAST (EXCL_YMAX - 1)
90:
91: #define EXCL_VCHAR 120
92: #define EXCL_HCHAR 70
93: #define EXCL_VTIC 70
94: #define EXCL_HTIC 70
95: #endif /* TERM_PROTO */
96:
97:
98: #ifndef TERM_PROTO_ONLY
99: #ifdef TERM_BODY
100:
101: /* Define ansi command headers, NUL character */
102: #define ESC "\033"
103: #define GS "\035"
104: #define CSI "\033["
105: #define DCS "\033P"
106: #define ST "\033\\"
107:
108: /*
109: page numbers are given per "Talaris EXCL programmer's reference manual" M292 rev.2
110: NOTE: EXCL coordinate system places (0,0) at upper left corner of the page
111:
112: c EXCL commands for initialization
113:
114: c TALAMS: set ANSI (p. 162)
115: c TALMOD: set emulation *** EXCL (p. 164)
116: c TALPGO: set page orient *** landscape (p. 81)
117: c TALFCTL: set paper format *** 8.5x11 (p. 85)
118: c TALTBM: set top/bot margins ** in land mode to full pg (p. 73)
119: c TALLRM: set left/right margins (p. 75)
120: c PUM: set units ** units of measure set by TALPRM (p. 67)
121: c TALASF: Absorb cr/ff/lf/vt ** ON (p. 182)
122: c TALPOP: pop controller params (p. 168)
123: c TALPSH: push controller params (p. 167)
124: c TALPRM: set units of measure ** to 1/1000 inch (p. 64)
125: c TALGLT: set line type ** solid (p. 211)
126: c TALORG: set page absolute origin ** (0,0) UL corner (p. 78)
127: c TALPCW: set page clip window *** for landsc/full page (p. 84)
128: c TALGLP: line: **pen7x7mil*draw*smear*glyph112*font5279* (p. 208)
129: c TALGLPE: ending for TALGLP command, forcing DRAW mode
130: c TALGBB: bounding box; used only by qdrive (p. 207)
131: c TALFPO: Force page out ** clear bitmap (p. 95)
132: c TALGDW: graphical draw to hor,vert ** abs coords (p. 212)
133: c TALGMV: graphical move to hor,vert ** abs coords (p. 213)
134: */
135: #define TALAMS "\033[0*s"
136: #define TALMOD "\033[1;0r"
137: #define TALPGO "\033[1;0p"
138: #define TALFCTL "\033[0;3x"
139: #define TALTBM "\033[0;8500 v"
140: #define TALLRM "\033[0;11000v"
141: #define PUM "\033[11h"
142: #define TALASF "\033[1 z"
143: #define TALPOP "\033[*]"
144: #define TALPSH "\033[*["
145: #define TALPRM "\033[3y"
146: #define TALGLT "\033[%s*t"
147: #define TALORG "\033[0;0o"
148: #define TALCCNT "\033[1;0u"
149: #define TALPCW "\033[0;8500;11000;0*c"
150: #define TALGLP_init "\033[7;7;8;1;112;5279*w"
151: #define TALGLP "\033[%d;%d;8*w"
152: #define TALFPO "\033[0*F"
153: #define TALGDW "\033[0;%d;%d*d"
154: #define TALGMV "\033[0;%d;%d*m"
155:
156: /* TALPYL: polyline (p. 222)
157: ** 5;0} list of 16-bit signed integers, encoded, mostly relative
158: ** 5,1} list of ASCII absolute coords (if w/o +- signs)(e.g. 315:1222;)
159: */
160:
161: #define TALPYL "\033P5;1}"
162:
163: TERM_PUBLIC void EXCL_init()
164: {
165: fprintf(gpoutfile, "%s%s%s%s%s%s",
166: TALPSH, TALAMS, TALMOD, TALCCNT, TALFCTL, TALASF);
167: /* ^save state ^setEXCL ^PaperSize8.5x11 */
168: /* ^setANSI ^copyCount1 ^absorbCtlChar */
169: fprintf(gpoutfile, "%s%s%s%s%s%s",
170: PUM, TALPRM, TALPGO, TALPCW, TALORG, TALGLP_init);
171: fprintf(gpoutfile, TALGLT, "");
172: /* ^setUnits ^landscape ^OriginZero ^SolidLine */
173: /* ^Units1/1000" ^pageClip ^SetLine */
174: }
175:
176: TERM_PUBLIC void EXCL_graphics()
177: {
178: }
179:
180: TERM_PUBLIC void EXCL_text()
181: {
182: fputs(TALFPO, gpoutfile);
183: /* ^pageout */
184: }
185:
186:
187: TERM_PUBLIC void EXCL_linetype(linetype)
188: int linetype;
189: {
190: /* excl line widths in mils: 4 is mimimum, but too thin; then
191: 7,10,14,17,20,24,27...
192: exclpen=MOD(NPEN,8)*7
193: CSI exclpen; exclpen; TALGLPE
194: */
195: static char *type[2 + 9] =
196: {
197: "", "40;40", "", "42;42", "14;21",
198: /* .... ---- -- -- -- . . . */
199: "", "49;30", "14;21", "", "49;30", "14;21"
200: /* same pattern, but thicker.. and thicker */
201: };
202: static int width[2+9] = { 14, 7, 7, 7, 7, 10, 10, 10, 17, 17, 17 };
203:
204: if (linetype >= 9)
205: linetype %= 9;
206:
207: fprintf(gpoutfile, TALGLP, width[linetype + 2], width[linetype + 2]);
208: /* ^width in dots */
209: fprintf(gpoutfile, TALGLT, type[linetype + 2]);
210: /* ^line type */
211: }
212:
213:
214: TERM_PUBLIC void EXCL_move(x, y)
215: unsigned int x, y;
216: {
217: fprintf(gpoutfile, TALGMV, 1000 + x, EXCL_YLAST + 1000 - y);
218: /* ^pen up vector */
219: }
220:
221:
222: TERM_PUBLIC void EXCL_vector(x2, y2)
223: unsigned int x2, y2;
224: {
225: fprintf(gpoutfile, TALGDW, 1000 + x2, EXCL_YLAST + 1000 - y2);
226: /* ^pen down vector */
227: }
228:
229:
230: TERM_PUBLIC void EXCL_put_text(x, y, str)
231: unsigned int x, y;
232: char str[];
233: {
234: char ch;
235: EXCL_move(x, y - EXCL_VCHAR / 3);
236: ch = *str++;
237: while (ch != NUL) {
238: putc(ch, gpoutfile);
239: ch = *str++;
240: }
241: }
242:
243: TERM_PUBLIC void EXCL_reset()
244: {
245: fprintf(gpoutfile, "%s%s", TALFPO, TALPOP);
246: /* ^pageout ^pop */
247: }
248:
249:
250: #endif /* TERM_BODY */
251:
252: #ifdef TERM_TABLE
253:
254: TERM_TABLE_START(excl_driver)
255: "excl", "Talaris EXCL Laser printer (also Talaris 1590 and others)",
256: EXCL_XMAX, EXCL_YMAX, EXCL_VCHAR, EXCL_HCHAR,
257: EXCL_VTIC, EXCL_HTIC, options_null, EXCL_init, EXCL_reset,
258: EXCL_text, null_scale, EXCL_graphics, EXCL_move, EXCL_vector,
259: EXCL_linetype, EXCL_put_text, null_text_angle,
260: null_justify_text, line_and_point, do_arrow, set_font_null
261: TERM_TABLE_END(excl_driver)
262: #undef LAST_TERM
263: #define LAST_TERM excl_driver
264:
265: #endif /* TERM_TABLE */
266: #endif /* TERM_PROTO_ONLY */
267:
268: #ifdef TERM_HELP
269: START_HELP(excl)
270: "1 excl",
271: "?commands set terminal excl",
272: "?set terminal excl",
273: "?set term excl",
274: "?terminal excl",
275: "?term excl",
276: "?excl",
277: " The `excl` terminal driver supports Talaris printers such as the EXCL Laser",
278: " printer and the 1590. It has no options."
279: END_HELP(excl)
280: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to excl.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term