Category : C Source Code
Archive   : GPLTS202.ZIP
Filename : IRIS4D.TRM

/* GNUPLOT - iris4d.trm */
/*
* Copyright (C) 1990
*
* 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 modified code. Modifications are to be distributed
* as patches to released version.
*
* This software is provided "as is" without express or implied warranty.
*
* This file is included by ../term.c.
*
* This terminal driver supports:
* IRIS terminals
*
* AUTHORS
* John H. Merritt
* (Applied Research Corporation) 7/1/89
* INTERNET: [email protected]
*
* send your comments or suggestions to ([email protected]).
*
*/

#include
#define IRIS4D_XMAX 1024
#define IRIS4D_YMAX 1024

#define IRIS4D_XLAST (IRIS4D_XMAX - 1)
#define IRIS4D_YLAST (IRIS4D_YMAX - 1)

#define IRIS4D_VCHAR (IRIS4D_YMAX/30)
#define IRIS4D_HCHAR (IRIS4D_XMAX/72)
#define IRIS4D_VTIC (IRIS4D_YMAX/80)
#define IRIS4D_HTIC (IRIS4D_XMAX/80)

IRIS4D_init()
{
foreground();
winopen("Gnuplot");
deflinestyle(1, 0x3FFF); /* Long dash */
deflinestyle(2, 0x5555); /* dotted */
deflinestyle(3, 0x3333); /* short dash */
deflinestyle(4, 0xB5AD); /* dotdashed */
return;
}

IRIS4D_graphics()
{
reshapeviewport();
ortho2((Coord)0, (Coord)IRIS4D_XMAX, (Coord)0, (Coord)IRIS4D_YMAX);
color(WHITE);
clear();

return;
}

IRIS4D_text()
{
return; /* enter text from another window!!! */
}

IRIS4D_linetype(linetype)
int linetype;
{
static int pen_color[5] = {1, 2, 3, 4, 5};

linetype = linetype % 5;
color((Colorindex) pen_color[linetype]);
setlinestyle(linetype);
return;
}

IRIS4D_move(x, y)
unsigned int x, y;
{
move2i(x, y);
return;
}

IRIS4D_cmove(x, y)
unsigned int x, y;
{
cmov2i(x, y);
return;
}

IRIS4D_vector(x, y)
unsigned x, y;
{
draw2i(x, y);
return;
}


IRIS4D_put_text(x,y,str)
int x, y;
char *str;
{
IRIS4D_cmove(x,y - IRIS4D_VCHAR/2);
charstr(str);
return;
}


IRIS4D_reset()
{
return;
}