--- /dev/null
+/* Hello, Emacs, this is -*-C-*-
+ * $Id: sun.trm,v 1.13.2.1 2008/04/20 00:38:45 sfeam Exp $
+ *
+ */
+
+/* GNUPLOT - sun.trm */
+
+/*[
+ * Copyright 1990 - 1993, 1998, 2004
+ *
+ * Permission to use, copy, and distribute this software and its
+ * documentation for any purpose with or without fee is hereby granted,
+ * provided that the above copyright notice appear in all copies and
+ * that both that copyright notice and this permission notice appear
+ * in supporting documentation.
+ *
+ * Permission to modify the software is granted, but not the right to
+ * distribute the complete modified source code. Modifications are to
+ * be distributed as patches to the released version. Permission to
+ * distribute binaries produced by compiling modified sources is granted,
+ * provided you
+ * 1. distribute the corresponding source modifications from the
+ * released version in the form of a patch file along with the binaries,
+ * 2. add special version identification to distinguish your version
+ * in addition to the base release version number,
+ * 3. provide your name and address as the primary contact for the
+ * support of your modified version, and
+ * 4. retain our contact information in regard to use of the base
+ * software.
+ * Permission to distribute the released version of the source code along
+ * with corresponding source modifications in the form of a patch file is
+ * granted with same provisions 2 through 4 for binary distributions.
+ *
+ * This software is provided "as is" without express or implied warranty
+ * to the extent permitted by applicable law.
+]*/
+
+/*
+ * This file is included by ../term.c.
+ *
+ * This terminal driver supports:
+ * SUNview windowing system
+ *
+ * AUTHORS
+ * Maurice Castro
+ *
+ * send your comments or suggestions to (gnuplot-info@lists.sourceforge.net).
+ *
+ */
+/*
+ * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
+ */
+
+#include "driver.h"
+
+#ifdef TERM_REGISTER
+register_term(sun)
+#endif
+
+#ifdef TERM_PROTO
+TERM_PUBLIC void SUN_init __PROTO((void));
+TERM_PUBLIC void SUN_graphics __PROTO((void));
+TERM_PUBLIC void SUN_text __PROTO((void));
+TERM_PUBLIC void SUN_linetype __PROTO((int linetype));
+TERM_PUBLIC void SUN_move __PROTO((unsigned int x, unsigned int y));
+TERM_PUBLIC void SUN_vector __PROTO((unsigned int x, unsigned int y));
+TERM_PUBLIC void SUN_put_text __PROTO((unsigned int x, unsigned int y, const char *str));
+TERM_PUBLIC int SUN_justify_text __PROTO((enum JUSTIFY mode));
+TERM_PUBLIC void SUN_reset __PROTO((void));
+#define SUN_XMAX 600
+#define SUN_YMAX 512
+
+#define SUN_VCHAR (12) /* default, will be changed */
+#define SUN_HCHAR (8) /* default, will be changed */
+#define SUN_VTIC (SUN_YMAX/80)
+#define SUN_HTIC (SUN_XMAX/80)
+#endif /* TERM_PROTO */
+
+#ifndef TERM_PROTO_ONLY
+#ifdef TERM_BODY
+#include <suntool/sunview.h>
+#include <suntool/canvas.h>
+#include <suntool/scrollbar.h>
+#include <suntool/panel.h>
+#include <pixrect/pixrect_hs.h>
+
+void sun_setmaskpixel __PROTO((unsigned int x, unsigned int y, unsigned int value));
+void sun_line __PROTO((unsigned int x1, unsigned int x2, unsigned int y1, unsigned int y2));
+static Notify_value local_notice_destroy __PROTO((Frame frame, Destroy_status status));
+
+#define MARGIN 5
+#define MINWIN 128
+
+static Frame frame;
+static Canvas SUN_canvas;
+static Pixwin *pw;
+static struct pixfont *sun_font = NULL;
+
+static enum JUSTIFY sun_justify = LEFT;
+
+static Notify_value local_notice_destroy();
+
+extern Notify_error notify_dispatch();
+
+/* dotted line generator */
+unsigned int sun_value = 1; /* this can be used for colour */
+unsigned int sun_line_mask = 0xffff; /* 16 bit mask for dotted lines */
+static unsigned int sun_pattern[] =
+{0xffff, 0x1111,
+ 0xffff, 0x5555, 0x3333, 0x7777, 0x3f3f, 0x0f0f, 0x5f5f};
+int sun_mask_count = 0;
+unsigned int sun_lastx, sun_lasty; /* last pixel set - used by sun_line */
+
+
+TERM_PUBLIC void
+SUN_init()
+{
+ struct termentry *t = term;
+ struct pr_subregion bound;
+
+ frame = window_create(NULL, FRAME,
+ FRAME_LABEL, "Gnuplot",
+ 0);
+ notify_interpose_destroy_func(frame, local_notice_destroy);
+ SUN_canvas = window_create(frame, CANVAS,
+ CANVAS_AUTO_EXPAND, TRUE,
+ CANVAS_AUTO_SHRINK, TRUE,
+ CANVAS_MARGIN, MARGIN,
+ 0);
+ notify_do_dispatch();
+ pw = canvas_pixwin(SUN_canvas);
+ window_set(frame, WIN_SHOW, TRUE, 0);
+
+ /* figure out font and rough size */
+ sun_font = pf_default();
+ pf_textbound(&bound, 1, sun_font, "M");
+ t->v_char = bound.size.y;
+ t->h_char = bound.size.x;
+
+ return;
+}
+
+TERM_PUBLIC void
+SUN_graphics()
+{
+ term->xmax = (int) window_get(SUN_canvas, CANVAS_WIDTH);
+ term->ymax = (int) window_get(SUN_canvas, CANVAS_HEIGHT);
+ pw_writebackground(pw, 0, 0, term->xmax, term->ymax, PIX_SRC);
+ notify_dispatch();
+ /* do not let the user make the window too small */
+ if ((term->xmax) < MINWIN) {
+ window_set(frame,
+ WIN_WIDTH, MINWIN + 2 * MARGIN + 24,
+ 0);
+ notify_dispatch();
+ SUN_graphics();
+ }
+ if ((term->ymax) < MINWIN) {
+ window_set(frame,
+ WIN_HEIGHT, MINWIN + 2 * MARGIN + 24,
+ 0);
+ notify_dispatch();
+ SUN_graphics();
+ }
+ notify_dispatch();
+ return;
+}
+
+TERM_PUBLIC void
+SUN_text()
+{
+ notify_dispatch();
+ return; /* enter text from another window!!! */
+}
+
+TERM_PUBLIC void
+SUN_linetype(int linetype)
+{
+ if (linetype < -2)
+ linetype = LT_BLACK;
+ if (linetype >= 7)
+ linetype %= 7;
+ sun_line_mask = sun_pattern[linetype + 2];
+ sun_mask_count = 0;
+}
+
+
+TERM_PUBLIC void
+SUN_move(unsigned int x, unsigned int y)
+{
+ sun_lastx = x;
+ sun_lasty = y;
+ notify_dispatch();
+ return;
+}
+
+TERM_PUBLIC void
+SUN_vector(unsigned int x, unsigned int y)
+{
+ if ((x >= term->xmax) || (y >= term->ymax))
+ return;
+ sun_line(sun_lastx, x, sun_lasty, y);
+ canvas_pixwin(SUN_canvas);
+ notify_dispatch();
+ return;
+}
+
+TERM_PUBLIC void
+SUN_put_text(unsigned int x, unsigned int y, const char *str)
+{
+ struct pr_subregion bound;
+
+ if ((x >= term->xmax) || (y >= term->ymax))
+ return;
+
+ pf_textbound(&bound, strlen(str), sun_font, str);
+ y = term->ymax - 1 - y + bound.size.y / 3; /* vertical centering */
+
+ switch (sun_justify) {
+ case LEFT:
+ break;
+ case CENTRE:
+ x -= bound.size.x / 2;
+ break;
+ case RIGHT:
+ x -= bound.size.x;
+ break;
+ }
+ pw_text(pw, x, y, PIX_SRC | PIX_DST, 0, str);
+ canvas_pixwin(SUN_canvas);
+ notify_dispatch();
+ return;
+}
+
+
+TERM_PUBLIC int
+SUN_justify_text(enum JUSTIFY mode)
+{
+ sun_justify = mode;
+ return (TRUE);
+}
+
+
+
+
+TERM_PUBLIC void
+SUN_reset()
+{
+
+ term->xmax = SUN_XMAX;
+ term->ymax = SUN_YMAX;
+ window_set(frame, WIN_SHOW, FALSE, 0);
+ return;
+}
+
+
+
+void
+sun_setmaskpixel(unsigned int x, unsigned int y, unsigned int value)
+{
+ /* dotted line generator */
+ if ((sun_line_mask >> sun_mask_count) & (unsigned int) (1)) {
+ pw_put(pw, x, term->ymax - 1 - y, sun_value);
+ }
+ sun_mask_count = (sun_mask_count + 1) % 16;
+ sun_lastx = x; /* last pixel set with mask */
+ sun_lasty = y;
+}
+
+
+
+
+void
+sun_line(unsigned int x1, unsigned int x2, unsigned int y1, unsigned int y2)
+{
+ int runcount;
+ int dx, dy;
+ int xinc, yinc;
+ unsigned int xplot, yplot;
+
+ runcount = 0;
+ dx = ABS((int) (x1) - (int) (x2));
+ if (x2 > x1)
+ xinc = 1;
+ if (x2 == x1)
+ xinc = 0;
+ if (x2 < x1)
+ xinc = -1;
+ dy = ABS((int) (y1) - (int) (y2));
+ if (y2 > y1)
+ yinc = 1;
+ if (y2 == y1)
+ yinc = 0;
+ if (y2 < y1)
+ yinc = -1;
+ xplot = x1;
+ yplot = y1;
+ if (dx > dy) {
+ /* iterate x */
+ if ((sun_line_mask == 0xffff) ||
+ ((xplot != sun_lastx) && (yplot != sun_lasty)))
+ sun_setmaskpixel(xplot, yplot, sun_value);
+ while (xplot != x2) {
+ xplot += xinc;
+ runcount += dy;
+ if (runcount >= (dx - runcount)) {
+ yplot += yinc;
+ runcount -= dx;
+ }
+ sun_setmaskpixel(xplot, yplot, sun_value);
+ }
+ } else {
+ /* iterate y */
+ if ((sun_line_mask == 0xffff) ||
+ ((xplot != sun_lastx) && (yplot != sun_lasty)))
+ sun_setmaskpixel(xplot, yplot, sun_value);
+ while (yplot != y2) {
+ yplot += yinc;
+ runcount += dx;
+ if (runcount >= (dy - runcount)) {
+ xplot += xinc;
+ runcount -= dy;
+ }
+ sun_setmaskpixel(xplot, yplot, sun_value);
+ }
+ }
+}
+
+
+static Notify_value
+local_notice_destroy(Frame frame, Destroy_status status)
+{
+ if (status != DESTROY_CHECKING) {
+ SUN_reset();
+ /* extern TBOOLEAN term_init is gone; is it sufficient just */
+ /* to comment it out? -lh */
+ /* term_init = FALSE; */
+ }
+ return (NOTIFY_DONE);
+}
+
+#endif /* TERM_BODY */
+
+#ifdef TERM_TABLE
+
+TERM_TABLE_START(sun_driver)
+ "sun", "SunView window system",
+ SUN_XMAX, SUN_YMAX, SUN_VCHAR, SUN_HCHAR,
+ SUN_VTIC, SUN_HTIC, options_null, SUN_init, SUN_reset,
+ SUN_text, null_scale, SUN_graphics, SUN_move, SUN_vector,
+ SUN_linetype, SUN_put_text, null_text_angle,
+ SUN_justify_text, line_and_point, do_arrow, set_font_null
+TERM_TABLE_END(sun_driver)
+
+#undef LAST_TERM
+#define LAST_TERM sun_driver
+
+#endif /* TERM_TABLE */
+#endif /* TERM_PROTO_ONLY */
+
+#ifdef TERM_HELP
+START_HELP(sun)
+"1 sun",
+"?commands set terminal sun",
+"?set terminal sun",
+"?set term sun",
+"?terminal sun",
+"?term sun",
+"?sun",
+" The `sun` terminal driver supports the SunView window system. It has no",
+" options."
+END_HELP(sun)
+#endif