Annotation of OpenXM_contrib/gnuplot/term/dumb.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: dumb.trm,v 1.24 1998/04/14 00:17:37 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - dumb.trm */
7:
8: /*[
9: * Copyright 1991 - 1993, 1998 Thomas Williams, Colin Kelley
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: * DUMB terminals
43: *
44: * AUTHORS
45: * Francois Pinard, 91-04-03
46: * INTERNET: pinard@iro.umontreal.ca
47: *
48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
49: *
50: */
51: #include "driver.h"
52:
53: #ifdef TERM_REGISTER
54: register_term(dumb_driver)
55: #endif
56:
57: #ifdef TERM_PROTO
58: TERM_PUBLIC void DUMB_options __PROTO((void));
59: TERM_PUBLIC void DUMB_init __PROTO((void));
60: TERM_PUBLIC void DUMB_graphics __PROTO((void));
61: TERM_PUBLIC void DUMB_text __PROTO((void));
62: TERM_PUBLIC void DUMB_reset __PROTO((void));
63: TERM_PUBLIC void DUMB_linetype __PROTO((int linetype));
64: TERM_PUBLIC void DUMB_move __PROTO((unsigned int x, unsigned int y));
65: TERM_PUBLIC void DUMB_point __PROTO((unsigned int x, unsigned int y,
66: int point));
67: TERM_PUBLIC void DUMB_vector __PROTO((unsigned int x, unsigned int y));
68: TERM_PUBLIC void DUMB_put_text __PROTO((unsigned int x, unsigned int y,
69: char *str));
70: TERM_PUBLIC void DUMB_arrow __PROTO((unsigned int sx, unsigned int sy,
71: unsigned int ex, unsigned int ey,
72: int head));
73:
74: #define DUMB_XMAX 79
75: #define DUMB_YMAX 24
76:
77: #endif /* TERM_PROTO */
78:
79: #ifdef TERM_BODY
80:
81: #define DUMB_AXIS_CONST '\1'
82: #define DUMB_BORDER_CONST '\2'
83:
84: /* matrix of characters */
85: static char *dumb_matrix = NULL;
86: /* matrix of priority at each position */
87: static char *dumb_priority = NULL;
88: /* current character used to draw */
89: static char dumb_pen;
90: /* current X position */
91: static int dumb_x;
92: /* current Y position */
93: static int dumb_y;
94: static int dumb_xmax = DUMB_XMAX;
95: static int dumb_ymax = DUMB_YMAX;
96: static int dumb_feed = 1;
97:
98: #define DUMB_PIXEL(x,y) dumb_matrix[dumb_xmax*(y)+(x)]
99:
100: static void dumb_set_pixel __PROTO((int x, int y, int v, int p));
101:
102:
103: static void dumb_set_pixel(x, y, v, p)
104: int x, y, v, p;
105: {
106: if ((unsigned) x <= dumb_xmax && /* ie x>=0 && x<=dumb_xmax */
107: (unsigned) y <= dumb_ymax &&
108: p > dumb_priority[dumb_xmax * y + x]) {
109: dumb_matrix[dumb_xmax * y + x] = v;
110: dumb_priority[dumb_xmax * y + x] = p;
111: }
112: }
113:
114:
115: TERM_PUBLIC void DUMB_options()
116: {
117: int x, y;
118: struct value a;
119:
120: if (almost_equals(c_token, "f$eed"))
121: ++c_token, dumb_feed = 1;
122: else if (almost_equals(c_token, "nof$eed"))
123: ++c_token, dumb_feed = 0;
124:
125: if (!END_OF_COMMAND) {
126: x = (int) real(const_express(&a));
127: if (!END_OF_COMMAND) {
128: y = (int) real(const_express(&a));
129: dumb_xmax = term->xmax = x;
130: dumb_ymax = term->ymax = y;
131: }
132: }
133: sprintf(term_options, "%sfeed %d %d",
134: dumb_feed ? "" : "no", dumb_xmax, dumb_ymax);
135: }
136:
137:
138: TERM_PUBLIC void DUMB_init()
139: {
140: if (dumb_matrix)
141: free(dumb_matrix);
142:
143: dumb_matrix = gp_alloc((unsigned long) dumb_xmax * dumb_ymax * 2, "dumb terminal");
144:
145: dumb_priority = dumb_matrix + dumb_xmax * dumb_ymax;
146: }
147:
148:
149: TERM_PUBLIC void DUMB_graphics()
150: {
151: int i;
152: char *pm = dumb_matrix, *pp = dumb_priority;
153:
154: for (i = dumb_xmax * dumb_ymax; i > 0; i--) {
155: *pm++ = ' ';
156: *pp++ = 0;
157: }
158: }
159:
160:
161: TERM_PUBLIC void DUMB_text()
162: {
163: int x, y, l;
164:
165: putc('\f', gpoutfile);
166: for (y = dumb_ymax - 1; y >= 0; y--) {
167: for (l = dumb_xmax; l > 0 && DUMB_PIXEL(l - 1, y) == ' '; l--);
168: for (x = 0; x < l; x++)
169: putc(DUMB_PIXEL(x, y), gpoutfile);
170: if (dumb_feed || y > 0)
171: putc('\n', gpoutfile);
172: }
173: fflush(gpoutfile);
174: }
175:
176:
177: TERM_PUBLIC void DUMB_reset()
178: {
179: free(dumb_matrix);
180: dumb_matrix = NULL;
181: }
182:
183:
184: TERM_PUBLIC void DUMB_linetype(linetype)
185: int linetype;
186: {
187: static char pen_type[7] = { '*', '#', '$', '%', '@', '&', '=' };
188:
189: if (linetype == -2)
190: dumb_pen = DUMB_BORDER_CONST;
191: else if (linetype == -1)
192: dumb_pen = DUMB_AXIS_CONST;
193: else {
194: linetype = linetype % 7;
195: dumb_pen = pen_type[linetype];
196: }
197: }
198:
199:
200: TERM_PUBLIC void DUMB_move(x, y)
201: unsigned int x, y;
202: {
203: dumb_x = x;
204: dumb_y = y;
205: }
206:
207:
208: TERM_PUBLIC void DUMB_point(x, y, point)
209: unsigned int x, y;
210: int point;
211: {
212: dumb_set_pixel(x, y, point == -1 ? '.' : point % 26 + 'A', 4);
213: }
214:
215:
216: TERM_PUBLIC void DUMB_vector(_x, _y)
217: unsigned int _x, _y;
218: {
219: int x = _x; /* we need signed int, since
220: * unsigned-signed=unsigned and */
221: int y = _y; /* abs and cast to double wouldn't work */
222: char pen, pen1;
223: int priority;
224: int delta;
225:
226: if (ABS(y - dumb_y) > ABS(x - dumb_x)) {
227: switch (dumb_pen) {
228: case DUMB_AXIS_CONST:
229: pen = ':';
230: pen1 = '+';
231: priority = 1;
232: break;
233:
234: case DUMB_BORDER_CONST:
235: pen = '|';
236: pen1 = '+';
237: priority = 2;
238: break;
239:
240: default:
241: pen = dumb_pen;
242: pen1 = dumb_pen;
243: priority = 3;
244: break;
245: }
246: dumb_set_pixel(dumb_x, dumb_y, pen1, priority);
247: for (delta = 1; delta < ABS(y - dumb_y); delta++) {
248: dumb_set_pixel(dumb_x + (int) ((double) (x - dumb_x) *
249: delta / ABS(y - dumb_y) + 0.5),
250: dumb_y + delta * sign(y - dumb_y), pen, priority);
251: }
252: dumb_set_pixel(x, y, pen1, priority);
253: } else if (ABS(x - dumb_x) > ABS(y - dumb_y)) {
254: switch (dumb_pen) {
255: case DUMB_AXIS_CONST:
256: pen = '.';
257: pen1 = '+';
258: priority = 1;
259: break;
260:
261: case DUMB_BORDER_CONST:
262: pen = '-';
263: pen1 = '+';
264: priority = 2;
265: break;
266:
267: default:
268: pen = dumb_pen;
269: pen1 = dumb_pen;
270: priority = 3;
271: break;
272: }
273: dumb_set_pixel(dumb_x, dumb_y, pen1, priority);
274: for (delta = 1; delta < ABS(x - dumb_x); delta++)
275: dumb_set_pixel(dumb_x + delta * sign(x - dumb_x),
276: dumb_y +
277: (int) ((double) (y - dumb_y) * delta / ABS(x - dumb_x)
278: + 0.5),
279: pen, priority);
280: dumb_set_pixel(x, y, pen1, priority);
281: } else {
282: switch (dumb_pen) {
283: case DUMB_AXIS_CONST: /* zero length axis */
284: pen = '+';
285: priority = 1;
286: break;
287:
288: case DUMB_BORDER_CONST: /* zero length border */
289: pen = '+';
290: priority = 2;
291: break;
292:
293: default:
294: pen = dumb_pen;
295: priority = 3;
296: break;
297: }
298: for (delta = 0; delta <= ABS(x - dumb_x); delta++)
299: dumb_set_pixel(dumb_x + delta * sign(x - dumb_x),
300: dumb_y + delta * sign(y - dumb_y),
301: pen, priority);
302: }
303: dumb_x = x;
304: dumb_y = y;
305: }
306:
307:
308: TERM_PUBLIC void DUMB_put_text(x, y, str)
309: unsigned int x, y;
310: char *str;
311: {
312: int length;
313:
314: length = strlen(str);
315: if (x + length > dumb_xmax)
316: x = GPMAX(0, dumb_xmax - length);
317:
318: for (; x < dumb_xmax && *str; x++, str++)
319: dumb_set_pixel(x, y, *str, 5);
320: }
321:
322:
323: TERM_PUBLIC void DUMB_arrow(sx, sy, ex, ey, head)
324: unsigned int sx, sy, ex, ey;
325: int head; /* ignored */
326: {
327: char saved_pen;
328: char saved_x;
329: char saved_y;
330:
331: saved_pen = dumb_pen;
332: saved_x = dumb_x;
333: saved_y = dumb_y;
334:
335: dumb_pen = '>';
336: dumb_x = sx;
337: dumb_y = sy;
338: DUMB_vector(ex, ey);
339:
340: dumb_pen = saved_pen;
341: dumb_x = saved_x;
342: dumb_y = saved_y;
343: }
344:
345: #endif /* TERM_BODY */
346:
347: #ifdef TERM_TABLE
348: TERM_TABLE_START(dumb_driver)
349: "dumb", "printer or glass dumb terminal",
350: DUMB_XMAX, DUMB_YMAX, 1, 1,
351: 1, 1, DUMB_options, DUMB_init, DUMB_reset,
352: DUMB_text, null_scale, DUMB_graphics, DUMB_move, DUMB_vector,
353: DUMB_linetype, DUMB_put_text, null_text_angle,
354: null_justify_text, DUMB_point, DUMB_arrow, set_font_null,
355: 0, /* pointsize */
356: TERM_CAN_MULTIPLOT
357: TERM_TABLE_END(dumb_driver)
358:
359: #undef LAST_TERM
360: #define LAST_TERM dumb_driver
361:
362: #endif /* TERM_TABLE */
363:
364: #ifdef TERM_HELP
365: START_HELP(dumb)
366: "1 dumb",
367: "?commands set terminal dumb",
368: "?set terminal dumb",
369: "?set term dumb",
370: "?terminal dumb",
371: "?term dumb",
372: "?dumb",
373: " The `dumb` terminal driver has an optional size specification and trailing",
374: " linefeed control.",
375: "",
376: " Syntax:",
377: " set terminal dumb {[no]feed} {<xsize> <ysize>}",
378: "",
379: " where <xsize> and <ysize> set the size of the dumb terminals. Default is",
380: " 79 by 24. The last newline is printed only if `feed` is enabled.",
381: "",
382: " Examples:",
383: " set term dumb nofeed",
384: " set term dumb 79 49 # VGA screen---why would anyone do that?"
385: END_HELP(dumb)
386: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dumb.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term