Annotation of OpenXM_contrib/gnuplot/term/amiga.trm, Revision 1.1.1.2
1.1 maekawa 1: /*
1.1.1.2 ! maekawa 2: * $Id: amiga.trm,v 1.8 1998/12/17 22:07:52 lhecking Exp $
1.1 maekawa 3: *
4: */
5:
6: /* GNUPLOT - amiga.trm */
7:
8: /*[
9: * Copyright 1991, 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: * Amiga Custom Screen
43: *
44: * AUTHORS
45: * Carsten Steger
46: *
47: * Pat R. Empleo Slightly modified for Aztec C v5.2a (beta); sort of
48: * 08/27/91 supports overscan; for large WB 2.0 virtual screens,
49: * we limit the plot size so we don't have to scroll
50: * around (not fun).
51: *
52: * Carsten Steger Modified to support Kickstart 2.0.
53: * 09/11/91 Opens a text overscan screen when used with WB 2.0.
54: * Discerns between NTSC and PAL Amigas when used with
55: * WB 1.3 and lower.
56: *
57: * Pat R. Empleo Defined some 2.0 stuff in order to get Aztec C to
58: * 09/20/91 work with Carsten's new code (see above). When
59: * KS/WB 2.0 support gets implemented in Aztec C, this
60: * kludge will get deleted!
61: * (Aztec C release 5.2 beta)
62: *
63: * Carsten Steger Converted to new terminal layout.
64: * 10/01/95
65: *
66: * Lars Hecking Add code from George Coulouris <glc5@cornell.edu> to
67: * 06/20/97 implement window option, requires AmigaOS 3.0+.
68: * General cleanup, better readability.
69: *
70: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
71: *
72: */
73:
74: #include "driver.h"
75:
76: #ifdef TERM_REGISTER
77: register_term(amiga)
78: #endif
79:
80: #ifdef TERM_PROTO
81:
82: #define AMIGA_XMAX 640
83: #define AMIGA_YMAX 512
84:
85: #define AMIGA_VCHAR 12
86: #define AMIGA_HCHAR 8
87: #define AMIGA_VTIC 5
88: #define AMIGA_HTIC 5
89:
90: TERM_PUBLIC void AMIGA_reset __PROTO((void));
91: TERM_PUBLIC void AMIGA_init __PROTO((void));
92: TERM_PUBLIC void AMIGA_options __PROTO((void));
93: TERM_PUBLIC void AMIGA_text __PROTO((void));
94: TERM_PUBLIC void AMIGA_graphics __PROTO((void));
95: TERM_PUBLIC void AMIGA_move __PROTO((unsigned int x, unsigned int y));
96: TERM_PUBLIC void AMIGA_vector __PROTO((unsigned int x, unsigned int y));
97: TERM_PUBLIC void AMIGA_linetype __PROTO((int linetype));
98: TERM_PUBLIC void AMIGA_put_text __PROTO((unsigned int x, unsigned int y, char *str));
99: TERM_PUBLIC int AMIGA_justify_text __PROTO((enum JUSTIFY mode));
100: TERM_PUBLIC int AMIGA_set_font __PROTO((char *font));
101: TERM_PUBLIC void AMIGA_suspend __PROTO((void));
102: TERM_PUBLIC void AMIGA_resume __PROTO((void));
103:
104: #define GOT_AMIGA_PROTO
105:
106: #endif /* TERM_PROTO */
107:
108:
109: #ifndef TERM_PROTO_ONLY
110:
111: #ifdef TERM_BODY
112:
113: #ifdef AMIGA_AC_5
114: #include <intuition/intuitionbase.h>
115: #include <intuition/screens.h>
116: #include <graphics/text.h>
117: #include <graphics/gfxbase.h>
118: #else
119: /* You will have to use the Kickstart 2.0 header files for this to compile */
120: #include <exec/types.h>
121: #include <dos/dos.h>
122: #include <intuition/intuitionbase.h>
123: #include <graphics/gfxbase.h>
124: #include <proto/intuition.h>
125: #include <proto/graphics.h>
126: #include <proto/exec.h>
127: #include <proto/diskfont.h>
128: #endif /* !AMIGA_AC_5 */
129:
130: #ifndef NO_ATEXIT
131: void AMIGA_exit(void);
132: # define ATEXIT(x) (atexit(x) != 0)
133: # ifdef AMIGA_SC_6_1
134: /* # define ATEXIT(x) (onexit(x) == 0) */
135: # define RAWCON(x) rawcon(x)
136: # else
137: # define RAWCON(x) /* nought */
138: # endif /* SAS */
139: #else
140: # define ATEXIT(x) 0
141: #endif /* NO_ATEXIT */
142:
143: #ifndef RETURN_FAIL
144: # define RETURN_FAIL 20
145: #endif
146:
147: #define LIB_VERSION(LibBase) ((LibBase)->LibNode.lib_Version)
148:
149: #define AMIGA_ERROR(string,rc) {fprintf (stderr,"%s\n",string);\
150: AMIGA_reset (); exit (rc);}
151:
152: /* from plot.c */
153: extern TBOOLEAN interactive;
154:
155: /* The origin is in the upper left hand corner, so we have to translate */
156: /* and flip the coordinates: */
157: #define AMIGA_VTF(y) (AMIGA_ymax-1-(y))
158:
159:
160: /* Libraries */
161: struct IntuitionBase *IntuitionBase;
162: struct GfxBase *GfxBase;
163: struct Library *DiskfontBase;
164:
165:
166: /* Name of font, size in pts */
167: static char AMIGA_FontName[MAX_ID_LEN+1] = "";
168: static int AMIGA_FontSize;
169:
170:
171: /* Font stuff */
172: static struct TextAttr AMIGA_Font =
173: {
174: "topaz.font", TOPAZ_EIGHTY, FS_NORMAL, FPF_ROMFONT
175: };
176: static struct TextFont *AMIGA_TextFont;
177:
178:
179: /* Screen stuff */
180: static struct NewScreen AMIGA_NewScreen =
181: {
182: 0, 0, AMIGA_XMAX, AMIGA_YMAX, 4, 15, 0, HIRES | LACE,
183: CUSTOMSCREEN | SCREENBEHIND | SCREENQUIET, NULL, NULL, NULL, NULL
184: };
185: static struct Screen *AMIGA_Screen;
186: static struct TagItem AMIGA_ScrTagList[] =
187: {
188: { SA_Overscan, OSCAN_TEXT },
189: { TAG_DONE, 0 }
190: };
191:
192:
193: /* Window stuff */
194: /* FALSE: plot to screen; TRUE: plot to window */
195: static TBOOLEAN AMIGA_window_mode = FALSE;
196:
197: #define AMIGA_WIN_XMAX 512
198: #define AMIGA_WIN_YMAX 320
199:
200: static struct Window *AMIGA_Window;
201: static struct TagItem AMIGA_WinTagList[] =
202: {
203: { WA_InnerWidth, AMIGA_WIN_XMAX },
204: { WA_InnerHeight, AMIGA_WIN_YMAX },
205: { WA_Title, (ULONG) "gnuplot" },
206: { WA_DragBar, TRUE },
207: { WA_DepthGadget, TRUE },
208: { WA_WBenchWindow, TRUE },
209: { WA_SmartRefresh, TRUE },
210: { WA_GimmeZeroZero, TRUE },
211: { WA_AutoAdjust, TRUE },
212: { TAG_DONE, 0 }
213: };
214:
215: /*
216: * This is the palette. Values are stored as 0xrrggbb, where rr, gg, and, bb
217: * are big-endian 8-bit intensities for red, green, and blue, respectively.
218: */
219: static unsigned int palette[] =
220: {
221: 0xffffff, /* white */
222: 0x000000, /* black */
223: 0xff0000, /* red */
224: 0x00ff00, /* green */
225: 0x0000ff, /* blue */
226: 0x00ffff, /* cyan */
227: 0xff00ff, /* magenta */
228: 0xffff00, /* yellow */
229: 0x7f007f, /* purple */
230: 0xff7f00, /* orange */
231: };
232:
233: #define PALETTE_SIZE (sizeof (palette) / sizeof (unsigned int))
234:
235: /* This is the color look-up table, indexed in the same order as
236: * the above palette. The values stored in this table are pen numbers;
237: * e.g clut[2] is the pen which represents the color "red".
238: */
239: static unsigned int clut[PALETTE_SIZE];
240:
241:
242: /* Colors */
243: static UWORD AMIGA_Colors[] =
244: {
245: 0x000, 0xfff, 0xbbb, 0x0f0, 0xf00, 0x00f, 0x3ca, 0xf0f,
246: 0x94d, 0x0ff, 0x82f, 0xff0, 0x0af, 0xc5e, 0xfa2, 0xf44
247: };
248:
249:
250: /* Misc */
251: static int AMIGA_slinetype;
252: static enum JUSTIFY AMIGA_justify = LEFT;
253: static unsigned int AMIGA_ymax, AMIGA_xmax;
254: static WORD AMIGA_cwd, AMIGA_cht, AMIGA_bsl, AMIGA_vadj;
255: /* Common RastPort */
256: static struct RastPort *AMIGA_RastPort;
257:
258: /*
259: * Close open font, screen and libraries.
260: */
261: TERM_PUBLIC void AMIGA_reset()
262: {
263: if (AMIGA_window_mode == TRUE) {
264: int i = 0;
265:
266: /* Free the pens */
267: while (i < PALETTE_SIZE) {
268: if (clut[i] != -1)
269: ReleasePen(AMIGA_Window->WScreen->ViewPort.ColorMap, clut[i]);
270:
271: i++;
272: }
273:
274: /* Close the window */
275: if (AMIGA_Window != NULL)
276: CloseWindow(AMIGA_Window);
277:
278: AMIGA_Window = NULL;
279: AMIGA_window_mode = FALSE;
280: }
281: if (AMIGA_TextFont != NULL)
282: CloseFont(AMIGA_TextFont);
283:
284: if (DiskfontBase != NULL)
285: CloseLibrary(DiskfontBase);
286:
287: if (AMIGA_Screen != NULL)
288: CloseScreen(AMIGA_Screen);
289:
290: if (IntuitionBase != NULL)
291: CloseLibrary((struct Library *) IntuitionBase);
292:
293: if (GfxBase != NULL)
294: CloseLibrary((struct Library *) GfxBase);
295:
296: AMIGA_TextFont = NULL;
297: DiskfontBase = NULL;
298: AMIGA_Screen = NULL;
299: IntuitionBase = NULL;
300: GfxBase = NULL;
301:
302: AMIGA_RastPort = NULL;
303: }
304:
305:
306: /*
307: * Init terminal.
308: */
309: TERM_PUBLIC void AMIGA_init()
310: {
311: char name[MAX_ID_LEN + 1];
312:
313: /* Install exit trap in case of abnormal termination (see below). */
314: if (ATEXIT(AMIGA_exit))
315: AMIGA_ERROR("Couldn't set exit trap", RETURN_FAIL);
316:
317: /* Open needed libraries */
318: GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0);
319: if (GfxBase == NULL)
320: AMIGA_ERROR("No Graphics-Library", RETURN_FAIL);
321:
322: IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 0);
323: if (IntuitionBase == NULL)
324: AMIGA_ERROR("No Intuition-Library", RETURN_FAIL);
325:
326: if (AMIGA_window_mode == TRUE) {
327: int i = 0;
328:
329: /* Initialize the clut */
330: while (i < PALETTE_SIZE)
331: clut[i++] = -1;
332: }
333: if (LIB_VERSION(IntuitionBase) <= 34) {
334: /* We compute the vertical resolution for those poor NTSC-souls :-) */
335: if (GfxBase->DisplayFlags & PAL)
336: AMIGA_ymax = 512;
337: else
338: AMIGA_ymax = 400;
339:
340: AMIGA_xmax = 640;
341: AMIGA_NewScreen.Width = AMIGA_xmax;
342: AMIGA_NewScreen.Height = AMIGA_ymax;
343:
344: AMIGA_Screen = OpenScreen(&AMIGA_NewScreen);
345:
346: if (AMIGA_Screen == NULL)
347: AMIGA_ERROR("No Screen", RETURN_FAIL);
348:
349: AMIGA_RastPort = &AMIGA_Screen->RastPort;
350:
351: } else { /* Intuition version > 34 */
352: /* Kickstart 2.0 support */
353: AMIGA_NewScreen.Width = STDSCREENWIDTH;
354: AMIGA_NewScreen.Height = STDSCREENHEIGHT;
355:
356: if (AMIGA_window_mode != TRUE) {
357:
358: AMIGA_Screen = OpenScreenTagList(&AMIGA_NewScreen, AMIGA_ScrTagList);
359:
360: if (AMIGA_Screen == NULL)
361: AMIGA_ERROR("No Screen", RETURN_FAIL);
362:
363: AMIGA_RastPort = &AMIGA_Screen->RastPort;
364:
365: AMIGA_xmax = AMIGA_Screen->Width;
366: AMIGA_ymax = AMIGA_Screen->Height;
367: } else if (LIB_VERSION(GfxBase) >= 39) { /* AMIGA_window_mode == TRUE */
368: /* Open the plot window */
369:
370: AMIGA_Window = (struct Window *)OpenWindowTagList(NULL, AMIGA_WinTagList);
371:
372: /* Don't do this: fall back to screen */
373: if (AMIGA_Window == NULL)
374: AMIGA_ERROR("Could not open plot window", RETURN_FAIL);
375:
376: AMIGA_RastPort = AMIGA_Window->RPort;
377:
378: AMIGA_xmax = AMIGA_WIN_XMAX;
379: AMIGA_ymax = AMIGA_WIN_YMAX;
380:
381: } /* Gfx version >= 39 */
382: } /* Intuition version <= 34 */
383:
384: term->xmax = AMIGA_xmax;
385: term->ymax = AMIGA_ymax;
386:
387: if (AMIGA_window_mode != TRUE) {
388: sprintf(name, "%s,%d", AMIGA_FontName, AMIGA_FontSize);
389: AMIGA_set_font(name);
390:
391: LoadRGB4(&AMIGA_Screen->ViewPort, AMIGA_Colors, 16);
392: RemakeDisplay();
393: AMIGA_slinetype = 1;
394: SetAPen(&AMIGA_Screen->RastPort, AMIGA_slinetype);
395: } else {
396: int i, r, g, b;
397:
398: AMIGA_bsl = AMIGA_Window->RPort->TxBaseline; /* Reference line */
399: AMIGA_cht = AMIGA_Window->RPort->TxHeight; /* Height of characters */
400:
401: /* Allocate pens */
402: for (i = 0; i < PALETTE_SIZE; i++) {
403: r = (palette[i] << 8) & 0xFF000000;
404: g = (palette[i] << 16) & 0xFF000000;
405: b = (palette[i] << 24) & 0xFF000000;
406: clut[i] = ObtainBestPenA(AMIGA_Window->WScreen->ViewPort.ColorMap, r, g, b, NULL);
407: }
408:
409: }
410:
411: SetDrMd(AMIGA_RastPort, JAM1);
412:
413: }
414:
415:
416: /*
417: * Scan terminal options
418: */
419: TERM_PUBLIC void AMIGA_options()
420: {
421:
422: /* Screen/Window mode */
423: if (!END_OF_COMMAND) {
424: if (almost_equals(c_token, "scr$een")) {
425: AMIGA_window_mode = FALSE;
426: c_token++;
427: } else if (almost_equals(c_token, "win$dow")) {
428: AMIGA_window_mode = TRUE;
429: c_token++;
430: }
431: }
432: /* Font name */
433: if (!END_OF_COMMAND && isstring(c_token)) {
434: quote_str(AMIGA_FontName, c_token, MAX_ID_LEN);
435: c_token++;
436: }
437: /* Font size */
438: if (!END_OF_COMMAND) {
439: /* We have font size specified */
440: struct value a;
441: AMIGA_FontSize = (int) real(const_express(&a));
442: }
443: if (strcmp(AMIGA_FontName, "") == 0 && AMIGA_FontSize != 0)
444: strcpy(AMIGA_FontName, "topaz");
445:
446: if (strcmp(AMIGA_FontName, "") != 0 && AMIGA_FontSize == 0)
447: AMIGA_FontSize = 8;
448:
449: if (strcmp(AMIGA_FontName, "") != 0 && AMIGA_FontSize != 0) {
450: sprintf(default_font, "%s,%d", AMIGA_FontName, AMIGA_FontSize);
451: sprintf(term_options, "%s \"%s\" %d", \
452: (AMIGA_window_mode != TRUE ? "screen" : "window"), \
453: AMIGA_FontName, AMIGA_FontSize);
454: } else
455: sprintf(term_options, "%s", (AMIGA_window_mode != TRUE ? "screen" : "window"));
456: }
457:
458:
459: /*
460: *
461: */
462: TERM_PUBLIC void AMIGA_text()
463: {
464: if (AMIGA_window_mode != TRUE) {
465: if (interactive == TRUE) {
466: FILE *fp;
467:
468: if ((fp = fopen("*", "r")) != NULL) {
469: int c = getc(fp);
470:
471: ungetc(c, stdin);
472: fclose(fp);
473: }
474: ScreenToBack(AMIGA_Screen);
475: }
476: }
477: }
478:
479:
480: /*
481: *
482: */
483: TERM_PUBLIC void AMIGA_graphics()
484: {
485:
486: SetRast(AMIGA_RastPort, 0);
487:
488: if (AMIGA_window_mode == TRUE) {
489: /* clear the window */
490: SetAPen(AMIGA_Window->RPort, clut[0]);
491: RectFill(AMIGA_Window->RPort, 0, 0, 640, 400);
492: AMIGA_slinetype = clut[1];
493: }
494: SetAPen(AMIGA_RastPort, AMIGA_slinetype);
495: AMIGA_resume();
496: }
497:
498:
499: /*
500: *
501: */
502: TERM_PUBLIC void AMIGA_move(x, y)
503: unsigned int x, y;
504: {
505: if ((x >= AMIGA_xmax) || (y >= AMIGA_ymax))
506: return;
507:
508: Move(AMIGA_RastPort, x, AMIGA_VTF(y));
509: }
510:
511:
512: /*
513: *
514: */
515: TERM_PUBLIC void AMIGA_vector(x, y)
516: unsigned int x, y;
517: {
518: if ((x >= AMIGA_xmax) || (y >= AMIGA_ymax))
519: return;
520:
521: Draw(AMIGA_RastPort, x, AMIGA_VTF(y));
522: }
523:
524:
525: /*
526: *
527: */
528: TERM_PUBLIC void AMIGA_linetype(linetype)
529: int linetype;
530: {
531: if (AMIGA_window_mode != TRUE) {
532: if (linetype >= 13)
533: linetype %= 13;
534:
535: if (linetype < -2)
536: linetype = -2;
537:
538: AMIGA_slinetype = linetype + 3;
539: } else {
540: if (linetype >= 0)
541: linetype = (linetype % 9) + 1;
542:
543: if (linetype < 0)
544: linetype = 1;
545:
546: AMIGA_slinetype = clut[linetype];
547: }
548: SetAPen(AMIGA_RastPort, AMIGA_slinetype);
549: }
550:
551:
552: /*
553: *
554: */
555: TERM_PUBLIC void AMIGA_put_text(x, y, str)
556: unsigned int x, y;
557: char *str;
558: {
559: LONG len, tx_len;
560: WORD x_min, x_max, y_min, y_max;
561:
562: len = strlen(str);
563:
564: tx_len = TextLength(AMIGA_RastPort, str, len);
565:
566: switch (AMIGA_justify) {
567: case LEFT:
568: x_min = x;
569: x_max = x + tx_len;
570: break;
571: case CENTRE:
572: x_min = x - tx_len / 2;
573: x_max = x + tx_len - tx_len / 2; /* avoid roundoff errors ! */
574: break;
575: default: /* does this make sense ?? */
576: case RIGHT:
577: x_min = x - tx_len;
578: x_max = x;
579: break;
580: }
581:
582: y_min = AMIGA_VTF(y) - AMIGA_vadj;
583: y_max = y_min + AMIGA_cht;
584:
585: /* Check if character-string lies completely within the screen: */
586: /* What about clipping? */
587: if ((x_max >= AMIGA_xmax) || (y_min < 0) || (y_max >= AMIGA_ymax))
588: return;
589:
590: Move(AMIGA_RastPort, x_min, y_min + AMIGA_bsl);
591: Text(AMIGA_RastPort, str, len);
592: }
593:
594:
595: /*
596: *
597: */
598: TERM_PUBLIC int AMIGA_justify_text(mode)
599: enum JUSTIFY mode;
600: {
601: AMIGA_justify = mode;
602: return TRUE;
603: }
604:
605:
606: /*
607: *
608: */
609: TERM_PUBLIC int AMIGA_set_font(font)
610: char *font;
611: {
612: static char test_str[] =
613: " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
614: static WORD test_len, test_pxl;
615: char name[MAX_ID_LEN+1];
616: int size, sep;
617:
618: /* Disable for window mode */
619: if (AMIGA_window_mode != TRUE) {
620: sep = strcspn(font, ",");
621: strncpy(name, font, sep);
622: name[sep] = NUL;
623: size = AMIGA_FontSize;
624: sscanf(&(font[sep + 1]), "%d", &size);
625:
626: if (strcmp(name, "") != 0) {
627: strncat(name, ".font", MAX_ID_LEN+1);
628:
629: /* Avoid opening "diskfont.library" if a built-in font is desired */
630: if ((strcmp("topaz.font", name) == 0) &&
631: ((size == TOPAZ_EIGHTY) || (size == TOPAZ_SIXTY))) {
632: AMIGA_Font.ta_Name = name;
633: AMIGA_Font.ta_YSize = size;
634: AMIGA_Font.ta_Style = FS_NORMAL;
635: AMIGA_Font.ta_Flags = FPF_ROMFONT;
636: AMIGA_TextFont = OpenFont(&AMIGA_Font);
637:
638: if (AMIGA_TextFont != NULL)
639: SetFont(&AMIGA_Screen->RastPort, AMIGA_TextFont);
640:
641: } else {
642: DiskfontBase = OpenLibrary("diskfont.library", 0);
643:
644: if (DiskfontBase != NULL) {
645: AMIGA_Font.ta_Name = name;
646: AMIGA_Font.ta_YSize = size;
647: AMIGA_Font.ta_Style = FS_NORMAL;
648: AMIGA_Font.ta_Flags = FPF_ROMFONT | FPF_DISKFONT;
649: AMIGA_TextFont = OpenDiskFont(&AMIGA_Font);
650:
651: if (AMIGA_TextFont != NULL)
652: SetFont(&AMIGA_Screen->RastPort, AMIGA_TextFont);
653: }
654: }
655: }
656: /* Width of characters: This works better for proportional fonts than */
657: /* AMIGA_Screen->RastPort.TxWidth + AMIGA_Screen->RastPort.TxSpacing */
658: test_len = strlen(test_str);
659: test_pxl = TextLength(&AMIGA_Screen->RastPort, test_str, test_len);
660:
661: AMIGA_cwd = test_pxl / test_len;
662: AMIGA_cht = AMIGA_Screen->RastPort.TxHeight; /* Height of characters */
663: AMIGA_bsl = AMIGA_Screen->RastPort.TxBaseline; /* Reference line */
664:
665: /* Amount by which characters have to be shifted upwards to be */
666: /* vertically justified: */
667: AMIGA_vadj = AMIGA_bsl / 2;
668: term->v_char = AMIGA_cht + 4; /* So lines won't be too close */
669: term->h_char = AMIGA_cwd;
670:
671: } /* !window_mode */
672: return TRUE;
673: }
674:
675:
676: /*
677: *
678: */
679: TERM_PUBLIC void AMIGA_suspend()
680: {
681: if (AMIGA_window_mode != TRUE) {
682: if (interactive == TRUE) {
683: FILE *fp;
684:
685: if ((fp = fopen("*", "r")) != NULL) {
686: int c = getc(fp);
687:
688: ungetc(c, stdin);
689: fclose(fp);
690: }
691: ScreenToBack(AMIGA_Screen);
692: }
693: }
694: }
695:
696:
697: /*
698: *
699: */
700: TERM_PUBLIC void AMIGA_resume()
701: {
702: if (AMIGA_window_mode != TRUE)
703: ScreenToFront(AMIGA_Screen);
704: else
705: WindowToFront(AMIGA_Window);
706: }
707:
708:
709: #ifndef NO_ATEXIT
710: /* This function is mainly included if the program terminates abnormally
711: * and the screen and libraries are still open. It closes down all opened
712: * libraries and screens. This happens e.g. when loading "bivariat.demo"
713: * and the stack is smaller than 120000 bytes.
714: */
715: void AMIGA_exit(void)
716: {
717: AMIGA_reset();
718: RAWCON(0);
719: }
720:
721: #endif /* NO_ATEXIT */
722:
723:
724: #endif /* TERM_BODY */
725:
726: #ifdef TERM_TABLE
727:
728: TERM_TABLE_START(amiga_driver)
729: "amiga", "Amiga Custom Screen/Window [screen window]",
730: AMIGA_XMAX, AMIGA_YMAX, AMIGA_VCHAR, AMIGA_HCHAR,
731: AMIGA_VTIC, AMIGA_HTIC, AMIGA_options, AMIGA_init, AMIGA_reset,
732: AMIGA_text, null_scale, AMIGA_graphics, AMIGA_move, AMIGA_vector,
733: AMIGA_linetype, AMIGA_put_text, null_text_angle,
734: AMIGA_justify_text, do_point, do_arrow, AMIGA_set_font,
735: 0, /* pointsize */
736: TERM_CAN_MULTIPLOT, AMIGA_suspend, AMIGA_resume
737: TERM_TABLE_END(amiga_driver)
738:
739: #undef LAST_TERM
740: #define LAST_TERM amiga_driver
741:
742: #endif /* TERM_TABLE */
743: #endif /* TERM_PROTO_ONLY */
744:
745:
746: #ifdef TERM_HELP
747: START_HELP(amiga)
748: "1 amiga",
749: "?commands set terminal amiga",
750: "?set terminal amiga",
751: "?set term amiga",
752: "?terminal amiga",
753: "?term amiga",
754: "?amiga",
755: " The `amiga` terminal, for Commodore Amiga computers, allows the user to",
756: " plot either to a screen (default), or, if Kickstart 3.0 or higher is",
757: " installed, to a window on the current public screen. The font and its size",
758: " can also be selected.",
759: "",
760: " Syntax:",
761: " set terminal amiga {screen | window} {\"<fontname>\"} {<fontsize>}",
762: "",
763: " The default font is 8-point \"topaz\".",
764: "",
765: " The screen option uses a virtual screen, so it is possible that the graph",
766: " will be larger than the screen."
767: END_HELP(amiga)
768: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to amiga.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term