Annotation of OpenXM_contrib/gnuplot/term/unixpc.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: unixpc.trm,v 1.14 1998/04/14 00:18:12 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - unixpc.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: * Unix PC's (ATT 3b1)
43: *
44: * AUTHORS
45: * John Campbell
46: *
47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
48: *
49: */
50:
51: /*
52: >From: John Campbell (...!arizona!naucse!jdc)
53:
54: I originally ported gnuplot to the ATT 3b1 (ATT7300) on 12/4/88, and then
55: added the minimal code needed to bring it up to 2.0 level on 1/28/90. The
56: 3b1, as I view it, is a 720x300 bitmapped, monochrome display (often people
57: don't use the top 12 scan lines and thus the effective size is 720x288). I
58: tried to maximize the size of the graph area, by using these top 12 lines
59: (normally reserved) and set up a signal handler to restore them upon exit,
60: abort, etc.
61:
62: Line styles were "fudged" (they do not know the aspect ratio). The same
63: line style may look different depending upon the slope of the curve. Due to
64: this only 4 line styles were implemented. While more line types are possible,
65: the current styles were chosen as distinguishable.
66:
67: The 3b1 has 4 "special" rows at the bottom that I could not use in graphics
68: mode. It has been suggested that we use these lines for command prompting.
69: Others have requested that we have a graphics window and a command window.
70: My experience with gnuplot only includes relatively dumb graphics devices--
71: hence gnuplot "looks and feels" normal to me the way I implemented it.
72: I welcome either of these changes from someone else, however.
73: */
74:
75: /*
76: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
77: */
78:
79: #include "driver.h"
80:
81: #ifdef TERM_REGISTER
82: register_term(unixpc)
83: #endif
84:
85: #ifdef TERM_PROTO
86: TERM_PUBLIC void uPC_init __PROTO((void));
87: TERM_PUBLIC void uPC_graphics __PROTO((void));
88: TERM_PUBLIC void uPC_text __PROTO((void));
89: TERM_PUBLIC void uPC_linetype __PROTO((int linetype));
90: TERM_PUBLIC void uPC_move __PROTO((unsigned int x, unsigned int y));
91: TERM_PUBLIC void uPC_vector __PROTO((unsigned int x, unsigned int y));
92: TERM_PUBLIC void uPC_put_text __PROTO((unsigned int x, unsigned int y, char str[]));
93: TERM_PUBLIC int uPC_text_angle __PROTO((int ang));
94: TERM_PUBLIC void uPC_reset __PROTO((void));
95: #define uPC_XMAX 720
96: #define uPC_YMAX 300
97: #define uPC_VCHAR FNT5X9_VCHAR
98: #define uPC_HCHAR FNT5X9_HCHAR
99: #define uPC_VTIC uPC_VCHAR/2 /* Was 8 */
100: #define uPC_HTIC uPC_HCHAR /* Was 12 */
101: #endif /* TERM_PROTO */
102:
103: #ifndef TERM_PROTO_ONLY
104: #ifdef TERM_BODY
105: void uPC_fixwind __PROTO((int signo));
106: void uPC_putc __PROTO((unsigned int x, unsigned int y, int c, int angle));
107: void uPC_plot_word __PROTO((unsigned short *a, unsigned short b));
108: #include <sys/window.h> /* Started with tam.h--too much trouble. */
109: #include <sys/signal.h>
110: #include <errno.h>
111:
112: #define uPC_HIGH_BIT (0x8000)
113:
114: typedef unsigned short Scr_type;
115: typedef unsigned char Scr_kluge;
116:
117:
118: #define uPC_XSIZE 45 /* Short ints. */
119: #define uPC_YSIZE uPC_YMAX
120:
121: Scr_type uPC_display[uPC_YSIZE][uPC_XSIZE];
122: int uPC_width = 2 * uPC_XSIZE;
123: int uPC_sx = 0, uPC_sy = 0;
124: int uPC_cur_linetype = 0;
125: int uPC_angle = 0;
126: unsigned short uPC_raster_count = 0;
127: static Scr_type lookup[] =
128: {
129: 0x0001, 0x0002, 0x0004, 0x0008,
130: 0x0010, 0x0020, 0x0040, 0x0080,
131: 0x0100, 0x0200, 0x0400, 0x0800,
132: 0x1000, 0x2000, 0x4000, 0x8000,
133: };
134:
135: #define uPC_XLAST (uPC_XMAX - 1)
136: #define uPC_YLAST (uPC_YMAX - 1)
137:
138:
139: static struct urdata uPC_ur = { (unsigned short *) uPC_display,
140: 2 * uPC_XSIZE, 0, 0, 0, 0, 0, 0,
141: uPC_XMAX, uPC_YMAX, SRCSRC, DSTOR, 0
142: };
143:
144: #define IfErrOut(e1,e2,s1,s2) if (e1 e2) {\
145: fprintf(stderr, "%s:: %s %s\n", sys_errlist[errno], s1, s2);\
146: uPC_fixwind(0);\
147: exit(-1);}
148:
149: TERM_PUBLIC void uPC_init()
150: {
151: /* This routine will ioctl to change 0 size */
152: int i;
153: struct uwdata uw;
154: int uPC_fixwind();
155: short gw;
156:
157: /* Check that we are on the bitmapped window. */
158: if (iswind() != 0) {
159: fputs("Sorry--must run from the bitmapped terminal\n", stderr);
160: exit(-1);
161: }
162: for (i = 1; i <= 16; i++) {
163: if (i != SIGINT && i != SIGFPE) /* Two are caught in plot.c */
164: signal(i, uPC_fixwind);
165: }
166:
167: /* Increase the screen size */
168: uw.uw_x = 0;
169: uw.uw_y = 0; /* Leave room for top status line. */
170: uw.uw_width = uPC_XMAX; /* 720 */
171: uw.uw_height = uPC_YMAX; /* 288 normal--we clobber 12 (top row) */
172: uw.uw_uflags = 1; /* Creates with no border */
173:
174: IfErrOut(ioctl(1, WIOCSETD, &uw), <0, "ioctl failed on", "WIOCSETD");
175: }
176:
177:
178: TERM_PUBLIC void uPC_graphics()
179: {
180: /* This routine will clear the uPC_display buffer and window. */
181: register Scr_type *j;
182: register int i;
183:
184: j = (Scr_type *) uPC_display;
185: i = uPC_YSIZE * uPC_XSIZE + 1;
186:
187: while (--i)
188: *j++ = 0;
189: /* Position the cursor to the bottom of the screen so when we come back to
190: * text mode we are just below the graph.
191: */
192: fputs("\033[25;1H", stdout);
193:
194: uPC_ur.ur_dstop = DSTSRC; /* replace (clear screen). */
195: IfErrOut(ioctl(1, WIOCRASTOP, &uPC_ur), <0,
196: "ioctl failed", "WIOCRASTOP");
197: uPC_ur.ur_dstop = DSTOR; /* Or in (show text) */
198: }
199:
200:
201: TERM_PUBLIC void uPC_text()
202: {
203: /* This routine will flush the display. */
204:
205: IfErrOut(ioctl(1, WIOCRASTOP, &uPC_ur), <0,
206: "ioctl failed", "WIOCRASTOP");
207: }
208:
209:
210: TERM_PUBLIC void uPC_linetype(linetype)
211: int linetype;
212: {
213: /* This routine records the current linetype. */
214: if (uPC_cur_linetype != linetype) {
215: uPC_raster_count = 0;
216: uPC_cur_linetype = linetype;
217: }
218: }
219:
220:
221: TERM_PUBLIC void uPC_move(x, y)
222: unsigned int x, y;
223: {
224: /* This routine just records x and y in uPC_sx, uPC_sy */
225: uPC_sx = x;
226: uPC_sy = y;
227: }
228:
229:
230: /* Was just (*(a)|=(b)) */
231: #define uPC_PLOT(a,b) (uPC_cur_linetype != 0 ? uPC_plot_word (a,b) :\
232: (*(a)|=(b)))
233:
234: void uPC_plot_word(a, b)
235: Scr_type *a, b;
236: /*
237: Weak attempt to make line styles. The real problem is the aspect
238: ratio. This routine is called only when a bit is to be turned on in
239: a horizontal word. A better line style routine would know something
240: about the slope of the line around the current point (in order to
241: change weighting).
242:
243: This yields 3 working linetypes plus a usable axis line type.
244: */
245: {
246: /* Various line types */
247: switch (uPC_cur_linetype) {
248: case -1:
249: /* Distinguish between horizontal and vertical axis. */
250: if (uPC_sx > uPC_XMAX / 8 && uPC_sx < 7 * uPC_XMAX / 8) {
251: /* Fuzzy tolerance because we don't know exactly where the y axis is */
252: if (++uPC_raster_count % 2 == 0)
253: *(a) |= b;
254: } else {
255: /* Due to aspect ratio, take every other y pixel and every third x. */
256: *(a) |= (b & 0x9999);
257: }
258: break;
259: case 1:
260: case 5:
261: /* Make a | |----| |----| type of line. */
262: if ((1 << uPC_raster_count) & 0xF0F0)
263: *(a) |= b;
264: if (++uPC_raster_count > 15)
265: uPC_raster_count = 0;
266: break;
267: case 2:
268: case 6:
269: /* Make a |----|----|----|--- | | type of line. */
270: if ((1 << uPC_raster_count) & 0x0EFFF)
271: *(a) |= b;
272: if (++uPC_raster_count > 19)
273: uPC_raster_count = 0;
274: break;
275: case 3:
276: case 7:
277: /* Make a | - | - | - | - | type of line. */
278: if ((1 << uPC_raster_count) & 0x4444)
279: *(a) |= b;
280: if (++uPC_raster_count > 15)
281: uPC_raster_count = 0;
282: break;
283: case 4:
284: case 8:
285: default:
286: *(a) |= b;
287: break;
288: }
289: }
290:
291: TERM_PUBLIC void uPC_vector(x, y)
292: unsigned int x, y;
293: {
294: /* This routine calls line with x,y */
295: int x1 = uPC_sx, y1 = uPC_sy, x2 = x, y2 = y;
296: register int c, e, dx, dy, width;
297: register Scr_type mask, *a;
298:
299: /* Record new sx, sy for next call to the vector routine. */
300: uPC_sx = x2;
301: uPC_sy = y2;
302:
303: a = &uPC_display[(uPC_YSIZE - 1) - y1][x1 >> 4];
304: mask = lookup[x1 & 0x0f];
305: width = uPC_width;
306:
307: if ((dx = x2 - x1) > 0) {
308: if ((dy = y2 - y1) > 0) {
309: if (dx > dy) { /* dx > 0, dy > 0, dx > dy */
310: dy <<= 1;
311: e = dy - dx;
312: c = dx + 2;
313: dx <<= 1;
314:
315: while (--c) {
316: uPC_PLOT(a, mask);
317: if (e >= 0) {
318: (Scr_kluge *) a -= width;
319: e -= dx;
320: }
321: if (mask & uPC_HIGH_BIT) {
322: mask = 1;
323: a++;
324: } else
325: mask <<= 1;
326: e += dy;
327: }
328: } else { /* dx > 0, dy > 0, dx <= dy */
329: dx <<= 1;
330: e = dx - dy;
331: c = dy + 2;
332: dy <<= 1;
333:
334: while (--c) {
335: uPC_PLOT(a, mask);
336: if (e >= 0) {
337: if (mask & uPC_HIGH_BIT) {
338: mask = 1;
339: a++;
340: } else
341: mask <<= 1;
342: e -= dy;
343: }
344: (Scr_kluge *) a -= width;
345: e += dx;
346: }
347: }
348: } else {
349: dy = -dy;
350: if (dx > dy) { /* dx > 0, dy <= 0, dx > dy */
351: dy <<= 1;
352: e = dy - dx;
353: c = dx + 2;
354: dx <<= 1;
355:
356: while (--c) {
357: uPC_PLOT(a, mask);
358: if (e >= 0) {
359: (Scr_kluge *) a += width;
360: e -= dx;
361: }
362: if (mask & uPC_HIGH_BIT) {
363: mask = 1;
364: a++;
365: } else
366: mask <<= 1;
367: e += dy;
368: }
369: } else { /* dx > 0, dy <= 0, dx <= dy */
370: dx <<= 1;
371: e = dx - dy;
372: c = dy + 2;
373: dy <<= 1;
374:
375: while (--c) {
376: uPC_PLOT(a, mask);
377: if (e >= 0) {
378: if (mask & uPC_HIGH_BIT) {
379: mask = 1;
380: a++;
381: } else
382: mask <<= 1;
383: e -= dy;
384: }
385: (Scr_kluge *) a += width;
386: e += dx;
387: }
388: }
389: }
390: } else {
391: dx = -dx;
392: if ((dy = y2 - y1) > 0) {
393: if (dx > dy) { /* dx <= 0, dy > 0, dx > dy */
394: dy <<= 1;
395: e = dy - dx;
396: c = dx + 2;
397: dx <<= 1;
398:
399: while (--c) {
400: uPC_PLOT(a, mask);
401: if (e >= 0) {
402: (Scr_kluge *) a -= width;
403: e -= dx;
404: }
405: if (mask & 1) {
406: mask = uPC_HIGH_BIT;
407: a--;
408: } else
409: mask >>= 1;
410: e += dy;
411: }
412: } else { /* dx <= 0, dy > 0, dx <= dy */
413: dx <<= 1;
414: e = dx - dy;
415: c = dy + 2;
416: dy <<= 1;
417:
418: while (--c) {
419: uPC_PLOT(a, mask);
420: if (e >= 0) {
421: if (mask & 1) {
422: mask = uPC_HIGH_BIT;
423: a--;
424: } else
425: mask >>= 1;
426: e -= dy;
427: }
428: (Scr_kluge *) a -= width;
429: e += dx;
430: }
431: }
432: } else {
433: dy = -dy;
434: if (dx > dy) { /* dx <= 0, dy <= 0, dx > dy */
435: dy <<= 1;
436: e = dy - dx;
437: c = dx + 2;
438: dx <<= 1;
439:
440: while (--c) {
441: uPC_PLOT(a, mask);
442: if (e >= 0) {
443: (Scr_kluge *) a += width;
444: e -= dx;
445: }
446: if (mask & 1) {
447: mask = uPC_HIGH_BIT;
448: a--;
449: } else
450: mask >>= 1;
451: e += dy;
452: }
453: } else { /* dx <= 0, dy <= 0, dx <= dy */
454: dx <<= 1;
455: e = dx - dy;
456: c = dy + 2;
457: dy <<= 1;
458:
459: while (--c) {
460: uPC_PLOT(a, mask);
461: if (e >= 0) {
462: if (mask & 1) {
463: mask = uPC_HIGH_BIT;
464: a--;
465: } else
466: mask >>= 1;
467: e -= dy;
468: }
469: (Scr_kluge *) a += width;
470: e += dx;
471: }
472: }
473: }
474: }
475: }
476:
477:
478: #ifdef uPC_NOT_USED
479: /* Added by Russell Lang, eln272v@monu1.cc.monash.oz
480: This placement to the nearest character cell worked, and I'm leaving
481: it here so the calculations involved won't be lost! (jdc)
482: */
483: TERM_PUBLIC void uPC_put_text(x, y, str)
484: unsigned int x, y;
485: char str[];
486: {
487: /* This routine puts the text at the cursor location nearest
488: to (x,y). Obviously the exact postion would look better */
489:
490: /* Just use the ANSI escape sequence CUP (iswind said that was ok!) */
491: printf("\033[%d;%dH%s\033[25;1H",
492: (int) (24 - (y - uPC_VCHAR / 2) * 25 / uPC_YMAX),
493: (int) (x * 80 / uPC_XMAX), str);
494: fflush(stdout);
495: }
496:
497: #endif
498:
499:
500: TERM_PUBLIC void uPC_put_text(x, y, str)
501: unsigned int x, y;
502: char str[];
503: {
504: if (uPC_angle == 1)
505: x += uPC_VCHAR / 2;
506: else
507: y -= uPC_VCHAR / 2;
508:
509: switch (uPC_angle) {
510: case 0:
511: for (; *str; ++str, x += uPC_HCHAR)
512: uPC_putc(x, y, *str, uPC_angle);
513: break;
514: case 1:
515: for (; *str; ++str, y += uPC_HCHAR)
516: uPC_putc(x, y, *str, uPC_angle);
517: break;
518: }
519: }
520:
521:
522: void uPC_putc(x, y, c, angle)
523: unsigned int x, y;
524: int c, angle;
525: /*
526: Put a character at an x,y location in the bit map (using the fnt5x9
527: array. This is mostly just copied from the bitmap.c driver.
528: */
529: {
530: int i, j, k;
531: register Scr_type mask, *a;
532: char_row fc;
533: unsigned int pixelon;
534:
535: i = c - ' ';
536: for (j = 0; j < FNT5X9_VBITS; j++) {
537: fc = fnt5x9[i][j];
538: for (k = 0; k < FNT5X9_HBITS; k++) {
539: pixelon = ((unsigned int) (fc)) >> k & 1;
540: if (pixelon) {
541: switch (angle) {
542: case 0:
543: mask = lookup[x + k + 1 & 0x0f];
544: a = &uPC_display[(uPC_YSIZE - 1) - (y + j)][(x + k + 1) >> 4];
545: break;
546: case 1:
547: mask = lookup[x - j & 0x0f];
548: a = &uPC_display[(uPC_YSIZE - 1) - (y + k + 1)][(x - j) >> 4];
549: break;
550: }
551: *(a) |= (mask); /* see uPC_PLOT macro */
552: }
553: }
554: }
555: }
556:
557:
558: TERM_PUBLIC int uPC_text_angle(ang)
559: int ang;
560: {
561: uPC_angle = ang;
562: return TRUE;
563: }
564:
565:
566: TERM_PUBLIC void uPC_reset()
567: {
568: /* Reset window to normal size. */
569: uPC_fixwind(0);
570: }
571:
572:
573:
574: void uPC_fixwind(signo)
575: int signo;
576: {
577: static struct uwdata wreset =
578: {0, 12, 720, 288, 0x1};
579: struct utdata ut;
580:
581: /* Reset the window to the right size. */
582: ioctl(1, WIOCSETD, &wreset); /* 0, not wncur here! */
583:
584: /* Scroll the screen once. (avoids typing over the same line) */
585: putc('\n', stderr);
586:
587: if (signo) {
588: if (signo == SIGILL || signo == SIGTRAP || signo == SIGPWR)
589: signal(signo, SIG_DFL);
590: kill(0, signo); /* Redo the signal (as if we never trapped it). */
591: }
592: }
593: #endif /* TERM_BODY */
594:
595: #ifdef TERM_TABLE
596:
597: TERM_TABLE_START(unixpc_driver)
598: "unixpc", "AT&T 3b1 or AT&T 7300 Unix PC",
599: uPC_XMAX, uPC_YMAX, uPC_VCHAR, uPC_HCHAR,
600: uPC_VTIC, uPC_HTIC, options_null, uPC_init, uPC_reset,
601: uPC_text, null_scale, uPC_graphics, uPC_move, uPC_vector,
602: uPC_linetype, uPC_put_text, uPC_text_angle,
603: null_justify_text, line_and_point, do_arrow, set_font_null
604: TERM_TABLE_END(unixpc_driver)
605:
606: #undef LAST_TERM
607: #define LAST_TERM unixpc_driver
608:
609: #endif /* TERM_TABLE */
610: #endif /* TERM_PROTO_ONLY */
611:
612: #ifdef TERM_HELP
613: START_HELP(unixpc)
614: "1 unixpc",
615: "?commands set terminal unixpc",
616: "?set terminal unixpc",
617: "?set term unixpc",
618: "?terminal unixpc",
619: "?term unixpc",
620: "?unixpc",
621: " The `unixpc` terminal driver supports AT&T 3b1 and AT&T 7300 Unix PC. It has",
622: " no options."
623: END_HELP(unixpc)
624: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to unixpc.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term