/* Hello, Emacs, this is -*-C-*-
* $Id: tek.trm,v 1.19 2008/05/31 19:49:45 sfeam Exp $
*
*/
/* GNUPLOT - tek.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:
* tek40xx, bitgraph, kermit_color_tek40xx, kermit_mono_tek40xx, selanar
* ln03plus
*
* AUTHORS
* Colin Kelley, Thomas Williams, Russell Lang
*
* send your comments or suggestions to (gnuplot-info@lists.sourceforge.net).
*
*/
/*
* Modified June 1995 Ian MacPhedran to support newterm format
*/
#define TEK
#define CTEK
#define VTTEK
/* Version 4.3: still available, but no longer built by default */
#if 0
#define KERMIT
#define SELANAR
#define BITGRAPH
#endif
#include "driver.h"
#ifdef TERM_REGISTER
register_term(tek40)
#ifdef VTTEK
register_term(vttek)
#endif
#ifdef KERMIT
register_term(kc_tek40)
register_term(km_tek40)
#endif
#ifdef SELANAR
register_term(selanar)
#endif
#ifdef BITGRAPH
register_term(bitgraph)
#endif
#endif /* TERM_REGISTER */
#ifdef TERM_PROTO
TERM_PUBLIC void TEK40init __PROTO((void));
TERM_PUBLIC void TEK40graphics __PROTO((void));
TERM_PUBLIC void TEK40text __PROTO((void));
TERM_PUBLIC void TEK40move __PROTO((unsigned int x, unsigned int y));
TERM_PUBLIC void TEK40vector __PROTO((unsigned int x, unsigned int y));
TERM_PUBLIC void TEK40put_text __PROTO((unsigned int x, unsigned int y, const char str[]));
TERM_PUBLIC void TEK40reset __PROTO((void));
#ifdef BITGRAPH
TERM_PUBLIC void BG_text __PROTO((void));
TERM_PUBLIC void BG_put_text __PROTO((unsigned int x, unsigned int y, const char str[]));
#endif
#if defined(SELANAR) || defined(BITGRAPH)
TERM_PUBLIC void TEK40linetype __PROTO((int linetype));
#endif
#ifdef KERMIT
TERM_PUBLIC void KTEK40graphics __PROTO((void));
TERM_PUBLIC void KTEK40Ctext __PROTO((void));
TERM_PUBLIC void KTEK40Clinetype __PROTO((int linetype));
TERM_PUBLIC void KTEK40Mlinetype __PROTO((int linetype));
TERM_PUBLIC void KTEK40reset __PROTO((void));
#endif
#ifdef SELANAR
TERM_PUBLIC void SEL_init __PROTO((void));
TERM_PUBLIC void SEL_graphics __PROTO((void));
TERM_PUBLIC void SEL_text __PROTO((void));
TERM_PUBLIC void SEL_reset __PROTO((void));
#endif
TERM_PUBLIC void VTTEK40init __PROTO((void));
TERM_PUBLIC void VTTEK40reset __PROTO((void));
TERM_PUBLIC void VTTEK40linetype __PROTO((int linetype));
TERM_PUBLIC void VTTEK40put_text __PROTO((unsigned int x, unsigned int y, const char str[]));
TERM_PUBLIC void CTEK_linetype __PROTO((int linetype));
TERM_PUBLIC void CTEK_move __PROTO((unsigned int x, unsigned int y));
TERM_PUBLIC void CTEK_vector __PROTO((unsigned int x, unsigned int y));
#endif /* TERM_PROTO */
#ifndef TERM_PROTO_ONLY
#ifdef TERM_BODY
#ifdef TEK
#define TEK40XMAX 1024
#define TEK40YMAX 780
#define TEK40XLAST (TEK40XMAX - 1)
#define TEK40YLAST (TEK40YMAX - 1)
#define TEK40VCHAR 25
#define TEK40HCHAR 14
#define TEK40VTIC 11
#define TEK40HTIC 11
#define HX 0x20 /* bit pattern to OR over 5-bit data */
#define HY 0x20
#define LX 0x40
#define LY 0x60
#define LOWER5 31
#define UPPER5 (31 5), gpoutfile);
(void) putc((LY | (y & LOWER5)), gpoutfile);
(void) putc((HX | (x & UPPER5) >> 5), gpoutfile);
(void) putc((LX | (x & LOWER5)), gpoutfile);
}
TERM_PUBLIC void
TEK40put_text(unsigned int x, unsigned int y, const char str[])
{
TEK40move(x, y - 11);
fprintf(gpoutfile, "\037%s\n", str);
}
TERM_PUBLIC void
TEK40reset()
{
}
#endif /* TEK */
/* thanks to dukecdu!evs (Ed Simpson) for the BBN BitGraph driver */
#ifdef BITGRAPH
#define BG_XMAX 768 /* width of plot area */
#define BG_YMAX 768 /* height of plot area */
#define BG_SCREEN_HEIGHT 1024 /* full screen height */
#define BG_XLAST (BG_XMAX - 1)
#define BG_YLAST (BG_YMAX - 1)
#define BG_VCHAR 16
#define BG_HCHAR 9
#define BG_VTIC 8
#define BG_HTIC 8
#define BG_init TEK40init
#define BG_graphics TEK40graphics
#define BG_linetype TEK40linetype
#define BG_move TEK40move
#define BG_vector TEK40vector
#define BG_reset TEK40reset
TERM_PUBLIC void
BG_text()
{
#ifdef VMS
(void) fflush(gpoutfile); /* finish the graphics */
#endif
BG_move(0, BG_SCREEN_HEIGHT - 2 * BG_VCHAR);
fputs("\037", gpoutfile);
/* 1
1. into alphanumerics
*/
}
TERM_PUBLIC void
BG_put_text(unsigned int x, unsigned int y, const char str[])
{
BG_move(x, y - 11);
fprintf(gpoutfile, "\037%s\n", str);
}
#endif /* BITGRAPH */
/* Color and Monochrome specials for the MS-DOS Kermit Tektronix Emulator
by Russell Lang, eln272v@monu1.cc.monash.oz */
#ifdef KERMIT
#define KTEK40HCHAR 13
TERM_PUBLIC void
KTEK40graphics()
{
#ifdef VMS
term_mode_tek();
term_pasthru();
#endif /* VMS */
fputs("\033\014", gpoutfile);
/* 1
1. clear screen
*/
/* kermit tektronix emulation doesn't need to wait */
}
TERM_PUBLIC void
KTEK40Ctext()
{
TEK40text();
KTEK40Clinetype(0); /* change to green */
#ifdef VMS
term_nopasthru();
#endif /* VMS */
}
/* special color linetypes for MS-DOS Kermit v2.31 tektronix emulator */
/* 0 = normal, 1 = bright
foreground color (30-37) = 30 + colors
where colors are 1=red, 2=green, 4=blue */
static const char *kermit_color[15] =
{"\033[0;37m", "\033[1;30m",
"\033[0;32m", "\033[0;36m", "\033[0;31m", "\033[0;35m",
"\033[1;34m", "\033[1;33m", "\033[1;31m", "\033[1;37m",
"\033[1;35m", "\033[1;32m", "\033[1;36m", "\033[0;34m",
"\033[0;33m"};
TERM_PUBLIC void
KTEK40Clinetype(int linetype)
{
if (linetype < -2)
linetype = LT_BLACK;
if (linetype >= 13)
linetype %= 13;
fprintf(gpoutfile, "%s", kermit_color[linetype + 2]);
}
/* linetypes for MS-DOS Kermit v2.30 tektronix emulator */
/* `=solid, a=fine dots, b=short dashes, c=dash dot,
d=long dash dot, e=dash dot dot */
static const char *kerm_linetype = "`a`abcde";
TERM_PUBLIC void
KTEK40Mlinetype(int linetype)
{
if (linetype < -2)
linetype = LT_BLACK;
if (linetype >= 6)
linetype %= 6;
fprintf(gpoutfile, "\033%c", kerm_linetype[linetype + 2]);
}
TERM_PUBLIC void
KTEK40reset()
{
fputs("\030\n", gpoutfile); /* turn off Tek emulation */
#ifdef VMS
term_mode_native();
#endif /* VMS */
}
#endif /* KERMIT */
/* thanks to sask!macphed (Geoff Coleman and Ian Macphedran) for the
Selanar driver */
#ifdef SELANAR
TERM_PUBLIC void
SEL_init()
{
fputs("\033\062", gpoutfile);
/* 1
1. set to ansi mode
*/
}
TERM_PUBLIC void
SEL_graphics()
{
fputs("\033[H\033[J\033\061\033\014", gpoutfile);
/* 1 2 3
1. clear ANSI screen
2. set to TEK mode
3. clear screen
*/
#ifdef VMS
term_pasthru();
#endif /* VMS */
}
TERM_PUBLIC void
SEL_text()
{
#ifdef VMS
(void) fflush(gpoutfile); /* finish the graphics */
#endif
TEK40move(0, 12);
fputs("\033\062", gpoutfile);
/* 1
1. into ANSI mode
*/
#ifdef VMS
term_nopasthru();
#endif /* VMS */
}
TERM_PUBLIC void
SEL_reset()
{
fputs("\033\061\033\012\033\062\033[H\033[J", gpoutfile);
/* 1 2 3 4
1 set tek mode
2 clear screen
3 set ansi mode
4 clear screen
*/
}
#endif /* SELANAR */
#ifdef VTTEK
TERM_PUBLIC void
VTTEK40init()
{
fputs("\033[?38h", gpoutfile);
fflush(gpoutfile);
sleep(1);
/* sleep 1 second to allow screen time to clear on some terminals */
#ifdef VMS
term_mode_tek();
#endif /* VMS */
}
TERM_PUBLIC void
VTTEK40reset()
{
fputs("\033[?38l", gpoutfile);
fflush(gpoutfile);
sleep(1);
/* sleep 1 second to allow screen time to clear on some terminals */
#ifdef VMS
term_mode_native();
#endif /* VMS */
}
/* linetypes for VT-type terminals in tektronix emulator mode */
/* `=solid, a=fine dots, b=short dashes, c=dash dot,
d=long dash dot, h=bold solid, i=bold fine dots, j=bold short dashes,
k=bold dash dot, l=bold long dash dot */
static const char *vt_linetype = "`a`abcdhijkl";
static int last_vt_linetype = 0;
TERM_PUBLIC void
VTTEK40linetype(int linetype)
{
if (linetype < -2)
linetype = LT_BLACK;
if (linetype >= 10)
linetype %= 10;
fprintf(gpoutfile, "\033%c", vt_linetype[linetype + 2]);
last_vt_linetype = linetype;
}
TERM_PUBLIC void
VTTEK40put_text(unsigned int x, unsigned int y, const char str[])
{
int linetype;
linetype = last_vt_linetype;
VTTEK40linetype(0);
TEK40put_text(x, y, str);
VTTEK40linetype(linetype);
}
#endif /* VTTEK */
#ifdef LN03P
TERM_PUBLIC void
LN03Pinit()
{
fputs("\033[?38h", gpoutfile);
}
TERM_PUBLIC void
LN03Preset()
{
fputs("\033[?38l", gpoutfile);
}
#endif /* LN03P */
/* tek40xx (monochrome) with linetype support by Jay I. Choe */
#ifdef CTEK
/*#define ABS(A) (((A)>=0)? (A):-(A))*/
#define SIGN(A) (((A) >= 0)? 1:-1)
static void CT_solid_vector __PROTO((int x, int y));
static void CT_draw_vpoint __PROTO((int x, int y, int last));
static void CT_pattern_vector __PROTO((int x1, int y1));
/* CT_lines are line types defined as bit pattern */
static unsigned long CT_lines[] =
{~(unsigned long)0, /* solid line */
0x000fffff, /* long dash */
0x00ff00ff, /* short dash */
0x00f00fff, /* dash-dot */
0x00f07fff, /* long dash - dot */
0x07070707,
0x07ff07ff,
0x070707ff};
/* current line pattern */
static unsigned long *CT_pattern = &CT_lines[0];
/* we need to keep track of tek cursor location */
static int CT_last_linetype = 0, CT_last_x, CT_last_y;
TERM_PUBLIC void
CTEK_linetype(int linetype)
{
if (linetype < 0)
linetype = 0;
linetype %= (sizeof(CT_lines) / sizeof(unsigned long));
CT_pattern = &CT_lines[linetype];
CT_last_linetype = linetype;
}
TERM_PUBLIC void
CTEK_move(unsigned int x, unsigned int y)
{
TEK40move(x, y);
CT_last_x = x;
CT_last_y = y;
}
static void
CT_solid_vector(int x, int y)
{
TEK40vector(x, y);
CT_last_x = x;
CT_last_y = y;
}
/*
simulate pixel draw using tek vector draw.
delays actual line drawing until maximum line segment is determined
(or first/last point is defined)
*/
static int CT_penon = 0; /* is Pen on? */
static void
CT_draw_vpoint(int x, int y, int last)
{
static int xx0, yy0, xx1, yy1;
if ((*CT_pattern) & 1) {
if (CT_penon) { /* This point is a continuation of current line */
xx1 = x;
yy1 = y;
} else { /* beginning of new line */
xx0 = xx1 = x;
yy0 = yy1 = y;
CT_penon = 1;
}
*CT_pattern = ((*CT_pattern) >> 1) | ((unsigned long)1 > 1; /* rotate the current pattern */
}
}
/*
draw vector line with pattern
*/
static void
CT_pattern_vector(int x1, int y1)
{
int op; /* order parameter */
int x0 = CT_last_x;
int y0 = CT_last_y;
int dx = x1 - x0;
int dy = y1 - y0;
int ax = ABS(dx) > 1); x0 != x1; x0 += sx, op += ay) {
CT_draw_vpoint(x0, y0, 0);
if (op > 0 || (op == 0 && sx == 1)) {
op -= ax;
y0 += sy;
}
}
} else { /* ax < ay */
for (op = ax - (ay >> 1); y0 != y1; y0 += sy, op += ax) {
CT_draw_vpoint(x0, y0, 0);
if (op > 0 || (op == 0 && sy == 1)) {
op -= ay;
x0 += sx;
}
}
}
CT_draw_vpoint(x0, y0, 1); /* last point */
CT_last_x = x1;
CT_last_y = y1;
}
TERM_PUBLIC void
CTEK_vector(unsigned int x, unsigned int y)
{
if (CT_last_linetype