Annotation of OpenXM_contrib/gnuplot/term/atarivdi.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: atarivdi.trm,v 1.7 1998/06/18 14:59:18 ddenholm Exp $
3: *
4: */
5:
6: /* GNUPLOT - atari.trm */
7:
8: /*[
9: * Copyright 1992, 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: * Atari Screens working with the normal VDI
43: * (this should include TT and big screens)
44: *
45: * AUTHORS
46: * Alexander Lehmann
47: * HE Koechling
48: *
49: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
50: *
51: * ATARI-related comments please to alexlehm@iti.informatik.th-darmstadt.de
52: *
53: */
54:
55: #include "driver.h"
56:
57: #ifdef TERM_REGISTER
58: register_term(vdi)
59: #endif
60:
61: #ifdef TERM_PROTO
62:
63: /* function-prototypes */
64: TERM_PUBLIC void VDI_options(void);
65: TERM_PUBLIC void VDI_init(void);
66: TERM_PUBLIC void VDI_reset(void);
67: TERM_PUBLIC void VDI_graphics(void);
68: TERM_PUBLIC void VDI_text(void);
69: TERM_PUBLIC void VDI_move(unsigned int x, unsigned int y);
70: TERM_PUBLIC void VDI_vector(unsigned int x, unsigned int y);
71: TERM_PUBLIC void VDI_linetype(int lt);
72: TERM_PUBLIC int VDI_text_angle(int ang);
73: TERM_PUBLIC void VDI_put_text(unsigned int x, unsigned int y, char *str);
74: TERM_PUBLIC int VDI_justify_text(enum JUSTIFY mode);
75: TERM_PUBLIC void VDI_point(unsigned int x, unsigned int y, int number);
76:
77: /* default to hi-res */
78: #define VDI_XMAX 640
79: #define VDI_YMAX 400
80: #define VDI_VCHAR 16
81: #define VDI_HCHAR 8
82: #define VDI_HTIC (VDI_XMAX/100)
83: #define VDI_VTIC VDI_HTIC
84:
85: #endif /* TERM_PROTO */
86:
87: #ifndef TERM_PROTO_ONLY
88: #ifdef TERM_BODY
89:
90: #ifdef __PUREC__
91: /* why did they have to change these names ??? */
92: # include <aes.h>
93: # include <vdi.h>
94: # include <tos.h>
95: #else /* !__PUREC__ i.e. __GNUC__, maybe others */
96: # include <aesbind.h>
97: # include <vdibind.h>
98: # include <osbind.h>
99: #endif
100:
101: #define VDI_yc(y) (VDI_maxycoord-(y))
102: #define VDI_LINETYPES_MAX 11
103:
104: static int VDI_linetypes[VDI_LINETYPES_MAX] =
105: {
106: 0xffff, 0x1111,
107: 0xffff, 0x5555, 0x3333, 0x7777,
108: 0x3f3f, 0x0f0f, 0x5f5f, 0xe4e4, 0x55f5
109: };
110:
111: static int VDI_lt;
112: static int vdi_vdi_handle = -1;
113: static int VDI_maxycoord;
114: static int VDI_rotation;
115: static int VDI_numcolors;
116: static int pxy[128]; /* Maximum of 64 pixels per v_pline */
117: static int pxy_index;
118: static int VDI_colors[16];
119: static int VDI_savecolors[16][3];
120: static int VDI_numpalette;
121:
122: #define VDI_c_height_default 6 /* well, well ... */
123:
124: static int VDI_c_height = VDI_c_height_default;
125:
126: static void vdi_flush_line(void);
127:
128: TERM_PUBLIC void VDI_options()
129: {
130: #define VDIHEXERROR "palette values 3 hex digits, please"
131: #define VDIHEIGHTERROR "expecting a character height"
132: char opt[4];
133: int i;
134: char *tok_end;
135:
136: term_options[0] = NUL;
137: VDI_c_height = VDI_c_height_default;
138:
139: for (i = 0; i < 17; i++) {
140: if (END_OF_COMMAND)
141: break;
142: if (token[c_token].length > 3) {
143: VDI_numpalette = 0;
144: VDI_c_height = VDI_c_height_default;
145: term_options[0] = NUL;
146: int_error(VDIHEXERROR, c_token);
147: }
148: capture(opt, c_token, c_token, 6);
149: if (!i) {
150: VDI_c_height = strtoul(opt, &tok_end, 10);
151: if (*tok_end != NUL) {
152: VDI_numpalette = 0;
153: VDI_c_height = VDI_c_height_default;
154: term_options[0] = NUL;
155: int_error(VDIHEIGHTERROR, c_token);
156: }
157: if (VDI_c_height > 999)
158: VDI_c_height = 999; /* avoid opt length overflow */
159: sprintf(opt, "%d ", VDI_c_height);
160: } else {
161: VDI_colors[i - 1] = strtoul(opt, &tok_end, 16);
162: if (*tok_end != NUL) {
163: VDI_numpalette = 0;
164: VDI_c_height = VDI_c_height_default;
165: term_options[0] = NUL;
166: int_error(VDIHEXERROR, c_token);
167: }
168: sprintf(opt, "%03X ", VDI_colors[i - 1]);
169: }
170: strcat(term_options, opt);
171: c_token++;
172: }
173: VDI_numpalette = (i == 0 ? 0 : i - 1);
174: }
175:
176: TERM_PUBLIC void VDI_init()
177: {
178: int work_in[11];
179: int work_out[57];
180: int i;
181: int hchar, wchar, dummy;
182: int rgb[3];
183: int num_save;
184: char *colors, *tok_end;
185:
186: if (VDI_numpalette == 0 && (colors = getenv("GNUCOLORS")) && *colors) {
187: for (i = 0; i < 17; i++) {
188: if (!i) {
189: VDI_c_height = strtoul(colors, &tok_end, 10);
190: if (colors == tok_end) {
191: i = 0;
192: VDI_c_height = VDI_c_height_default;
193: break;
194: }
195: } else {
196: if (*colors == NUL)
197: break;
198: VDI_colors[i] = strtoul(colors, &tok_end, 16);
199: if (colors == tok_end || (unsigned) VDI_colors[i] > 0xfff) {
200: i = 0;
201: break;
202: }
203: }
204: colors = tok_end;
205:
206: while (*colors == ' ')
207: colors++;
208: }
209: VDI_numpalette = (i == 0 ? 0 : i - 1);
210: }
211: vdi_vdi_handle = graf_handle(&wchar, &hchar, &dummy, &dummy);
212: if (!vdi_vdi_handle)
213: int_error("Fatal error opening virtual workstation", NO_CARET);
214:
215: for (i = 0; i < 10; work_in[i++] = 1);
216: work_in[10] = 2; /* use raster coordinates */
217: v_opnvwk(work_in, &vdi_vdi_handle, work_out);
218: if (!vdi_vdi_handle)
219: int_error("Fatal error opening virtual workstation", NO_CARET);
220:
221: vst_height(vdi_vdi_handle, VDI_c_height, &dummy, &dummy, &wchar, &hchar);
222:
223: vs_clip(vdi_vdi_handle, 0, work_in); /* turn clipping off */
224:
225: term->xmax = work_out[0] + 1;
226: term->ymax = work_out[1] + 1;
227: term->h_char = wchar;
228: term->v_char = hchar; /* hchar stands for height this time */
229: term->h_tic = (work_out[0] + 1) / 100;
230: term->v_tic = term->h_tic;
231:
232: VDI_maxycoord = work_out[1];
233: VDI_numcolors = work_out[13];
234: pxy_index = 0;
235:
236: for (i = 0; i < VDI_numpalette; i++) {
237: vq_color(vdi_vdi_handle, i, 1, VDI_savecolors[i]);
238:
239: rgb[0] = 1000 * (VDI_colors[i] >> 8);
240: rgb[0] /= 15;
241: rgb[1] = 1000 * ((VDI_colors[i] >> 4) & 15);
242: rgb[1] /= 15;
243: rgb[2] = 1000 * (VDI_colors[i] & 15);
244: rgb[2] /= 15;
245: vs_color(vdi_vdi_handle, i, rgb);
246: }
247: #ifdef __PUREC__
248: /* currently the PureC version runs as .prg and the GCC version runs as .ttp.
249: Let's hope that we soon figure out which way is the best */
250: v_hide_c(vdi_vdi_handle);
251: #endif
252: }
253:
254: TERM_PUBLIC void VDI_reset()
255: {
256: int i;
257:
258: if (vdi_vdi_handle != -1) {
259: for (i = 0; i < VDI_numpalette; i++) {
260: vs_color(vdi_vdi_handle, i, VDI_savecolors[i]);
261: }
262: #ifdef __PUREC__
263: /* see above */
264: v_show_c(vdi_vdi_handle, 0);
265: #endif
266: v_clsvwk(vdi_vdi_handle);
267: vdi_vdi_handle = -1;
268: }
269: }
270:
271: TERM_PUBLIC void VDI_graphics()
272: {
273: int pxy[8];
274: MFDB mfdb;
275:
276: fflush(stdout);
277: fflush(stderr);
278: Cconws("\033f"); /* turn cursor off */
279: /* apparently v_clrwk doesn't work with overscan. We'll blit the screen clear.
280: v_clrwk( vdi_vdi_handle );
281: */
282: mfdb.fd_addr = NULL; /* NULL means actual screen. So we don't need size etc. */
283:
284: pxy[0] = pxy[4] = 0;
285: pxy[1] = pxy[5] = 0;
286: pxy[2] = pxy[6] = term->xmax - 1;
287: pxy[3] = pxy[7] = term->ymax - 1;
288:
289: vro_cpyfm(vdi_vdi_handle, ALL_WHITE /*0 */ ,
290: pxy, &mfdb, &mfdb);
291:
292: pxy_index = 0;
293: }
294:
295: TERM_PUBLIC void VDI_text()
296: {
297: vdi_flush_line();
298: Cnecin(); /* wait for any char --> enable screen dump */
299: Cconws("\033e"); /* turn cursor on again */
300: }
301:
302: TERM_PUBLIC void VDI_move(unsigned int x, unsigned int y)
303: {
304: vdi_flush_line();
305:
306: pxy_index = 1;
307: pxy[0] = x;
308: pxy[1] = VDI_yc(y);
309: }
310:
311: TERM_PUBLIC void VDI_vector(unsigned int x, unsigned int y)
312: {
313: pxy[2 * pxy_index] = x;
314: pxy[2 * pxy_index + 1] = VDI_yc(y);
315: pxy_index++;
316:
317: if (pxy_index == 64) { /* we're all full */
318: vdi_flush_line();
319: }
320: }
321:
322: TERM_PUBLIC void VDI_linetype(int lt)
323: {
324: vdi_flush_line();
325:
326: VDI_lt = lt;
327: }
328:
329: TERM_PUBLIC void VDI_put_text(unsigned int x, unsigned int y, char *str)
330: {
331: int vchar = term->v_char;
332: int dummy;
333:
334: if (!strlen(str))
335: return;
336:
337: if (x < 0)
338: x = 0;
339: if (y < 0)
340: y = 0;
341:
342: /* align text left and to middle of char height */
343: vst_alignment(vdi_vdi_handle, 0, 5, &dummy, &dummy);
344: vst_rotation(vdi_vdi_handle, (VDI_rotation ? 900 : 0));
345: if (VDI_rotation)
346: v_gtext(vdi_vdi_handle, x - vchar / 2 + 1, VDI_yc(y) - 1, str);
347: else
348: v_gtext(vdi_vdi_handle, x + 1, VDI_yc(y) - vchar / 2 + 1, str);
349: }
350:
351: TERM_PUBLIC int VDI_text_angle(int ang)
352: {
353: VDI_rotation = ang;
354:
355: return TRUE;
356: }
357:
358: TERM_PUBLIC int VDI_justify_text(enum JUSTIFY mode)
359: {
360: return FALSE;
361: }
362:
363: TERM_PUBLIC void VDI_point(unsigned int x, unsigned int y, int number)
364: {
365: int old_linetype;
366:
367: if (VDI_numcolors == 2) {
368: line_and_point(x, y, number); /* monochrome */
369: } else {
370: /* we map colors that exceed our limit to dotted lines, but we can't do
371: that with the markers (sortof a generalized line_and_point) */
372: old_linetype = VDI_lt;
373: if (VDI_lt > VDI_numcolors - 2) {
374: /* same color, but no dots */
375: VDI_linetype(VDI_lt % (VDI_numcolors - 2));
376: }
377: do_point(x, y, number);
378: VDI_linetype(old_linetype);
379: }
380: }
381:
382: static void vdi_flush_line()
383: {
384: int line_type;
385: int color_index;
386: int i;
387:
388: if (pxy_index >= 2) {
389: if (VDI_numcolors == 2) { /* Monochrome */
390: color_index = 1;
391: line_type = VDI_lt;
392: if (line_type >= 0)
393: line_type %= (VDI_LINETYPES_MAX - 2);
394: } else { /* Color */
395: if (VDI_lt < 0) {
396: color_index = 1;
397: line_type = VDI_lt;
398: } else {
399: color_index = 2 + VDI_lt % (VDI_numcolors - 2);
400: line_type = (VDI_lt / (VDI_numcolors - 2)) % (VDI_LINETYPES_MAX - 2);
401: }
402: }
403:
404: vswr_mode(vdi_vdi_handle, MD_TRANS);
405: vsl_color(vdi_vdi_handle, color_index);
406:
407: vsl_type(vdi_vdi_handle, 7);
408: vsl_udsty(vdi_vdi_handle, VDI_linetypes[line_type + 2]);
409:
410: v_pline(vdi_vdi_handle, pxy_index, pxy);
411: }
412: if (pxy_index >= 1) {
413: pxy[0] = pxy[2 * (pxy_index - 1)];
414: pxy[1] = pxy[2 * (pxy_index - 1) + 1];
415: pxy_index = 1;
416: }
417: }
418:
419: #endif /* TERM_BODY */
420:
421: #ifdef TERM_TABLE
422:
423: TERM_TABLE_START(vdi_driver)
424: "vdi", "Atari VDI-Terminal",
425: VDI_XMAX, VDI_YMAX, VDI_VCHAR, VDI_HCHAR,
426: VDI_VTIC, VDI_HTIC, VDI_options, VDI_init, VDI_reset,
427: VDI_text, null_scale, VDI_graphics, VDI_move, VDI_vector,
428: VDI_linetype, VDI_put_text, VDI_text_angle,
429: VDI_justify_text, VDI_point, do_arrow, set_font_null,
430: 0, TERM_CAN_MULTIPLOT, 0, 0
431: TERM_TABLE_END(vdi_driver)
432:
433: #undef LAST_TERM
434: #define LAST_TERM vdi_driver
435:
436: #endif /* TERM_TABLE */
437:
438: #endif /* TERM_PROTO_ONLY */
439:
440: #ifdef TERM_HELP
441: START_HELP(vdi)
442: "1 atari ST (via VDI)",
443: "?commands set terminal vdi",
444: "?set terminal vdi",
445: "?set term vdi",
446: "?terminal vdi",
447: "?term vdi",
448: "?vdi",
449: " The `vdi` terminal is the same as the `atari` terminal, except that it sends",
450: " output to the screen via the VDI and not into AES-Windows.",
451: "",
452: " The `vdi` terminal has options to set the character size and the screen",
453: " colors.",
454: "",
455: " Syntax:",
456: " set terminal vdi {<fontsize>} {<col0> <col1> ... <col15.}",
457: "",
458: " The character size must appear if any colors are to be specified. Each of",
459: " the (up to 16) colors is given as a three-digit hex number, where the digits",
460: " represent RED, GREEN and BLUE (in that order). The range of 0--15 is scaled",
461: " to whatever color range the screen actually has. On a normal ST screen, odd",
462: " and even intensities are the same.",
463: "",
464: " Examples:",
465: " set terminal vdi 4 # use small (6x6) font",
466: " set terminal vdi 6 0 # set monochrome screen to white on black",
467: " set terminal vdi 13 0 fff f00 f0 f ff f0f",
468: " # set first seven colors to black, white, green, blue,",
469: " # cyan, purple, and yellow and use large font (8x16).",
470: "",
471: " Additionally, if an environment variable GNUCOLORS exists, its contents are",
472: " interpreted as an options string, but an explicit terminal option takes",
473: " precedence."
474: END_HELP(vdi)
475: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to atarivdi.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term