src/meta/psplot.c

#ifndef lint
static const char       RCSid[] = "$Id: psplot.c,v 1.2 2003/07/27 22:12:02 schorsch Exp $";
#endif
/*
 *  psplot.c - routines for generating PostScript output.
 *
 *      9/23/88
 */

#include <ctype.h>

#include "meta.h"
#include "plot.h"
#include "psplot.h"

#ifdef SMALLAREA
#define HMARGIN         (0.2*72)                /* horizontal margin */
#define VMARGIN         (0.2*72)                /* vertical margin */
#define PWIDTH          (6*72-2*HMARGIN)        /* width of device */
#define PHEIGHT         (6*72-2*VMARGIN)        /* height of device */
#else
#define HMARGIN         (.6*72)                 /* horizontal margin */
#define VMARGIN         (.6*72)                 /* vertical margin */
#define PWIDTH          (8.5*72-2*HMARGIN)      /* width of device */
#define PHEIGHT         (11*72-2*VMARGIN)       /* height of device */
#endif

#define PSQUARE         PWIDTH                  /* maximal square */

#define MAXPATHL        700                     /* maximum path length */

#define PREFIX          "seg_"          /* name prefix */
#define ESCCHAR         '#'             /* to introduce hex in name */

#define checkline()     if (inaline) endline()


static int      savelvl = 0;

static int      inaline = 0;

static char     hexdigit[] = "0123456789ABCDEF";

static char     buf[512];

static void endline(void);


static char *
convertname(s)                          /* convert to segment name */
char    *s;
{
        register char   *cp, *cp0;

        for (cp = buf, cp0 = PREFIX; *cp0; )
                *cp++ = *cp0++;
        for (cp0 = s; *cp0; cp0++) {
                if (isalnum(*cp0))
                        *cp++ = *cp0;
                else {
                        *cp++ = ESCCHAR;
                        *cp++ = hexdigit[*cp0 >> 4];
                        *cp++ = hexdigit[*cp0 & 0xf];
                }
        }
        *cp = '\0';
        return(buf);
}


static char *
convertstring(          /* convert to acceptable string */
        register char   *s
)
{
        register char   *cp;
        
        for (cp = buf; *s; s++) {
                if (*s == '(' || *s == ')')
                        *cp++ = '\\';
                if (isprint(*s))
                        *cp++ = *s;
                else {
                        *cp++ = '\\';
                        *cp++ = (*s>>6) + '0';
                        *cp++ = (*s>>3 & 07) + '0';
                        *cp++ = (*s & 07) + '0';
                }
        }
        *cp = '\0';
        return(buf);
}


void
init(                   /* initialize */
        char    *id
)
{
        printf("%%!PS-Adobe-2.0 EPSF-2.0\n");
        printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
                        HMARGIN+(PWIDTH-PSQUARE)/2.,
                        VMARGIN+(PHEIGHT-PSQUARE)/2.,
                        HMARGIN+(PWIDTH-PSQUARE)/2.+PSQUARE,
                        VMARGIN+(PHEIGHT-PSQUARE)/2.+PSQUARE);
        printf("%%%%DocumentFonts: Helvetica Courier\n");
        if (id != NULL)
                printf("%%%%Creator: %s\n", id);
        printf("gsave\n");
        printf("save\n");
        printf("256 dict begin\n");
        printf("%f %f translate\n", HMARGIN+(PWIDTH-PSQUARE)/2.,
                        VMARGIN+(PHEIGHT-PSQUARE)/2.);
        printf("%f %f scale\n", (double)PSQUARE/XYSIZE,
                        (double)PSQUARE/XYSIZE);
        printf("/mapping matrix currentmatrix def\n");
        printf("/segment {\t\t%% name lth pat col dir xmn ymn xmx ymx\n");
        printf("\t/startstate save def\n");
        printf("\t128 dict begin\t\t%% get parameters\n");
        printf("\t/ymax exch def /xmax exch def\n");
        printf("\t/ymin exch def /xmin exch def\n");
        printf("\t/orient exch def\n");
        printf("\t/colndx exch def /patndx exch def /lthick exch def\n");
        printf("\t%% segment name left on stack\n");
        printf("\txmax xmin add 2 div ymax ymin add 2 div translate\n");
        printf("\txmax xmin sub %d div ymax ymin sub %d div scale\n",
                        XYSIZE, XYSIZE);
        printf("\torient 90 mul rotate\n");
        printf("\t%d %d translate\n", -XYSIZE/2, -XYSIZE/2);
        printf("\tcvx exec\t\t\t%% execute segment\n");
        printf("\tend\n");
        printf("\tstartstate restore\n");
        printf("} def\n");
        printf("/vstr {\t\t\t%% string\n");
        printf("\t0 setcolor\n");
        printf("\t/Helvetica findfont setfont\n");
        printf("\tdup stringwidth pop %d exch div %d scale\n", XYSIZE, XYSIZE);
        printf("\tcurrentfont charorigin translate\n");
        printf("\t0 0 moveto show\n");
        printf("} def\n");
        printf("/charorigin {\t\t\t%% font charorigin xorg yorg\n");
        printf("\tdup /FontBBox get aload pop pop pop\n");
        printf("\t3 2 roll /FontMatrix get transform\n");
        printf("\texch neg exch neg\n");
        printf("} def\n");
        printf("/newline {\t\t\t%% lpat lthick col x0 y0\n");
        printf("\tnewpath moveto\n");
        printf("\tsetcolor setlthick setlpat\n");
        printf("} def\n");
        printf("/rfilldict 4 dict def\n");
        printf("/rfill {\t\t\t%% pat col xmn ymn xmx ymx\n");
        printf("\trfilldict begin\n");
        printf("\t/ymax exch def /xmax exch def\n");
        printf("\t/ymin exch def /xmin exch def\n");
        printf("\tsetcolor setpattern\n");
        printf("\tnewpath\n");
        printf("\txmin ymin moveto\n");
        printf("\txmax ymin lineto\n");
        printf("\txmax ymax lineto\n");
        printf("\txmin ymax lineto\n");
        printf("\tclosepath patfill\n");
        printf("\tend\n");
        printf("} def\n");
        printf("/fillpoly {\t\t\t%% pat col mark x1 y1 .. xn yn\n");
        printf("\tnewpath moveto\n");
        printf("\tcounttomark 2 idiv { lineto } repeat cleartomark\n");
        printf("\tclosepath\n");
        printf("\tsetcolor setpattern\n");
        printf("\t{ gsave 0 setlinewidth stroke grestore } if\n");
        printf("\tpatfill\n");
        printf("} def\n");
        printf("/mstr {\t\t\t%% fnt col x y\n");
        printf("\t100 add moveto setcolor setmfont show\n");
        printf("} def\n");
        printf("/patfill {\n");
        printf("\tfill\t\t\t\t%% unimplemented\n");
        printf("} def\n");
        printf("/setmfont {\t\t\t%% fontndx\n");
        printf("\tmfontab exch get setfont\n");
        printf("} def\n");
        printf("/setcolor {\t\t\t%% colndx\n");
        printf("\tcolndx 0 ne { pop colndx } if\n");
        printf("\trgbcoltab exch get aload pop setrgbcolor\n");
        printf("} def\n");
        printf("/setlthick {\t\t\t%% lthick\n");
        printf("\tlthick 0 ne { pop lthick } if\n");
        printf("\tsetlinewidth\n");
        printf("} def\n");
        printf("/setlpat {\t\t\t%% lpatndx\n");
        printf("\tdashtab exch get 0 setdash\n");
        printf("} def\n");
        printf("/setpattern {\t\t\t%% patndx\n");
        printf("\tpop\t\t\t\t%% unimplemented\n");
        printf("} def\n");
        printf("/canonfont\t\t\t%% canonical matrix string font\n");
        printf("\t/Courier findfont\n");
        printf("\tdup charorigin matrix translate\n");
        printf("\tmakefont\n");
        printf("def\n");
        printf("/mfontab [\t\t\t%% hardware font table\n");
        printf("\t[\n");
        printf("\t\t[ 340 0 0 340 0 -340 ]\n");
        printf("\t\t[ 681 0 0 340 0 -340 ]\n");
        printf("\t\t[ 340 0 0 681 0 -681 ]\n");
        printf("\t\t[ 681 0 0 681 0 -681 ]\n");
        printf("\t\t[ 282 0 0 282 0 -282 ]\n");
        printf("\t\t[ 564 0 0 282 0 -282 ]\n");
        printf("\t\t[ 282 0 0 564 0 -564 ]\n");
        printf("\t\t[ 564 0 0 564 0 -564 ]\n");
        printf("\t\t[ 199 0 0 199 0 -199 ]\n");
        printf("\t\t[ 398 0 0 199 0 -199 ]\n");
        printf("\t\t[ 199 0 0 398 0 -398 ]\n");
        printf("\t\t[ 398 0 0 398 0 -398 ]\n");
        printf("\t\t[ 169 0 0 169 0 -169 ]\n");
        printf("\t\t[ 339 0 0 169 0 -169 ]\n");
        printf("\t\t[ 169 0 0 339 0 -339 ]\n");
        printf("\t\t[ 339 0 0 339 0 -339 ]\n");
        printf("\t]\n");
        printf("\t{ canonfont exch makefont }\n");
        printf("\tforall\n");
        printf("] def\n");
        printf("/dashtab [ [ ] [ 200 80 ] [ 80 80 ] [ 200 80 80 80 ] ] def\n");
        printf("/rgbcoltab [ [ 0 0 0 ] [ 1 0 0 ] [ 0 1 0 ] [ 0 0 1 ] ] def\n");
        printf("/colndx 0 def /patndx 0 def /lthick 0 def\n");
        printf("%%%%EndProlog\n");
}


void
done(void)                              /* done with graphics */
{
        printf("end\nrestore\ngrestore\n");
}


void
endpage(void)                   /* done with page */
{
        checkline();

        printf("showpage\nmapping setmatrix\n");
}


void
segopen(                        /* open a segment */
        char    *s
)
{
        checkline();

        printf("/%s {\n", convertname(s));
}


void
segclose(void)                  /* close a segment */
{
        checkline();

        printf("} def\n");
}


void
doseg(                  /* instance of a segment */
        register PRIMITIVE      *p
)
{
        checkline();

        printf("/%s %d %d %d ", convertname(p->args),
                        WIDTH(p->arg0>>2 & 03),
                        p->arg0>>2 & 03, p->arg0 & 03);
        printf("%d %d %d %d %d segment\n", p->arg0>>4,
                        p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
}


extern void
printstr(                       /* print a string */
        register PRIMITIVE      *p
)
{
        checkline();
        printf("(%s) %d %d %d %d mstr\n", convertstring(p->args),
                        p->arg0>>2 & 017, p->arg0 & 03,
                        p->xy[XMN], p->xy[YMX]);
}


void
plotvstr(                       /* print a vector string */
        register PRIMITIVE      *p
)
{
        checkline();

        printf("(%s) /vstr %d 0 %d ", convertstring(p->args),
                        WIDTH(p->arg0>>2 & 03), p->arg0 & 03);
        printf("%d %d %d %d %d segment\n", p->arg0>>4,
                        p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
}


void
plotlseg(                       /* plot a line segment */
        register PRIMITIVE      *p
)
{
        static int      right = FALSE;
        static int      curx, cury;
        static int      curlpat, curlthick, curlcol;
        int     y1, y2;
        int     lpat, lthick, lcol;

        if (p->arg0 & 0100) {
                y1 = p->xy[YMX];
                y2 = p->xy[YMN];
        } else {
                y1 = p->xy[YMN];
                y2 = p->xy[YMX];
        }
        lpat = p->arg0>>4 & 03;
        lthick = WIDTH(p->arg0>>2 & 03);
        lcol = p->arg0 & 03;
        if (!inaline || lpat != curlpat ||
                        lthick != curlthick || lcol != curlcol) {
                checkline();
                printf("%d %d %d %d %d newline\n",
                                curlpat = lpat,
                                curlthick = lthick,
                                curlcol = lcol,
                                curx = p->xy[XMN],
                                cury = y1);
        }
        if (curx == p->xy[XMN] && cury == y1) {
                printf("%d %d lineto\n", curx = p->xy[XMX], cury = y2);
        } else if (curx == p->xy[XMX] && cury == y2) {
                printf("%d %d lineto\n", curx = p->xy[XMN], cury = y1);
        } else if ( (right = !right) ) {
                printf("%d %d moveto ", p->xy[XMN], y1);
                printf("%d %d lineto\n", curx = p->xy[XMX], cury = y2);
        } else {
                printf("%d %d moveto ", p->xy[XMX], y2);
                printf("%d %d lineto\n", curx = p->xy[XMN], cury = y1);
        }
        if (++inaline >= MAXPATHL)
                endline();
}


void
endline(void)                   /* close current line */
{
        printf("stroke\n");
        inaline = 0;
}


extern void
fillrect(                       /* fill a rectangle */
        register PRIMITIVE      *p
)
{
        checkline();

        printf("%d %d %d %d %d %d rfill\n", p->arg0>>2 & 03, p->arg0 & 03,
                        p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
}


extern void
filltri(                        /* fill a triangle */
        register PRIMITIVE      *p
)
{
        static short    corn[4][2] = {{XMN,YMX},{XMN,YMN},{XMX,YMN},{XMX,YMX}};
        int             orient;
        register int    i;
        
        checkline();

        printf("false %d %d mark\n", p->arg0>>2 & 03, p->arg0 & 03);
        orient = p->arg0>>4 & 03;
        for (i = 0; i < 4; i++)
                if (i != orient)
                        printf("%d %d ", p->xy[corn[i][0]],
                                        p->xy[corn[i][1]]);
        printf("fillpoly\n");
}


void
xform(          /* transform a point according to p */
        register int  *xp,
        register int  *yp,
        register PRIMITIVE  *p
)
{
    int  x = 0, y = 0;

    switch (p->arg0 & 060) {
        case 0:                 /* right */
            x = *xp;
            y = *yp;
            break;
        case 020:               /* up */
            x = (XYSIZE-1) - *yp;
            y = *xp;
            break;
        case 040:               /* left */
            x = (XYSIZE-1) - *xp;
            y = (XYSIZE-1) - *yp;
            break;
        case 060:               /* down */
            x = *yp;
            y = (XYSIZE-1) - *xp;
            break;
    }
    *xp = CONV(x, p->xy[XMX] - p->xy[XMN]) + p->xy[XMN];
    *yp = CONV(y, p->xy[YMX] - p->xy[YMN]) + p->xy[YMN];
}


extern void
fillpoly(p)                     /* fill a polygon */
register PRIMITIVE      *p;
{
        register char   *s;
        int     curx, cury;

        checkline();

        printf("%s %d %d mark\n", p->arg0 & 0100 ? "false" : "true",
                        p->arg0>>2 & 03, p->arg0 & 03);
        s = p->args;
        while ((s = nextscan(nextscan(s, "%d", (char*)&curx), "%d", (char*)&cury)) != NULL) {
                xform(&curx, &cury, p);
                printf("%d %d ", curx, cury);
        }
        printf("fillpoly\n");
}


void
set(            /* set an attribute or context */
        int     attrib,
        char    *val
)
{
        checkline();

        switch (attrib) {
        case SALL:
                printf("save\n");
                savelvl++;
                break;
        case SPAT0:
        case SPAT1:
        case SPAT2:
        case SPAT3:
                break;
        default:
                error(WARNING, "illegal set command");
                break;
        }
}


void
unset(                  /* unset an attribute or context */
        int     attrib
)
{
        checkline();

        switch (attrib) {
        case SALL:
                if (savelvl > 0) {
                        printf("restore\n");
                        savelvl--;
                }
                break;
        case SPAT0:
        case SPAT1:
        case SPAT2:
        case SPAT3:
                break;
        default:
                error(WARNING, "illegal unset command");
                break;
        }
}


void
reset(                  /* reset an attribute or context */
        int     attrib
)
{
        checkline();

        switch (attrib) {
        case SALL:
                while (savelvl > 0) {
                        printf("restore\n");
                        savelvl--;
                }
                printf("restore save\n");
                break;
        case SPAT0:
        case SPAT1:
        case SPAT2:
        case SPAT3:
                break;
        default:
                error(WARNING, "illegal reset command");
                break;
        }
}
Revision:	1.3
Committed:	Sat Nov 15 02:13:37 2003 UTC (20 years, 11 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1
Changes since 1.2:	+73 -39 lines
Log Message:	Continued ANSIfication, and reduced other compile warnings.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	1.3	static const char RCSid[] = "$Id: psplot.c,v 1.2 2003/07/27 22:12:02 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* psplot.c - routines for generating PostScript output.
6			*
7			* 9/23/88
8			*/
9
10	schorsch	1.3	#include <ctype.h>
11
12	greg	1.1	#include "meta.h"
13	schorsch	1.3	#include "plot.h"
14			#include "psplot.h"
15	greg	1.1
16			#ifdef SMALLAREA
17			#define HMARGIN (0.272) / horizontal margin */
18			#define VMARGIN (0.272) / vertical margin */
19			#define PWIDTH (672-2HMARGIN) /* width of device */
20			#define PHEIGHT (672-2VMARGIN) /* height of device */
21			#else
22			#define HMARGIN (.672) / horizontal margin */
23			#define VMARGIN (.672) / vertical margin */
24			#define PWIDTH (8.572-2HMARGIN) /* width of device */
25			#define PHEIGHT (1172-2VMARGIN) /* height of device */
26			#endif
27
28			#define PSQUARE PWIDTH /* maximal square */
29
30			#define MAXPATHL 700 /* maximum path length */
31
32			#define PREFIX "seg_" /* name prefix */
33			#define ESCCHAR '#' /* to introduce hex in name */
34
35			#define checkline() if (inaline) endline()
36
37
38			static int savelvl = 0;
39
40			static int inaline = 0;
41
42			static char hexdigit[] = "0123456789ABCDEF";
43
44			static char buf[512];
45
46	schorsch	1.3	static void endline(void);
47
48	greg	1.1
49			static char *
50			convertname(s) /* convert to segment name */
51			char *s;
52			{
53			register char cp, cp0;
54
55			for (cp = buf, cp0 = PREFIX; *cp0; )
56			cp++ = cp0++;
57			for (cp0 = s; *cp0; cp0++) {
58			if (isalnum(*cp0))
59			cp++ = cp0;
60			else {
61			*cp++ = ESCCHAR;
62			cp++ = hexdigit[cp0 >> 4];
63			cp++ = hexdigit[cp0 & 0xf];
64			}
65			}
66			*cp = '\0';
67			return(buf);
68			}
69
70
71			static char *
72	schorsch	1.3	convertstring( /* convert to acceptable string */
73			register char *s
74			)
75	greg	1.1	{
76			register char *cp;
77
78			for (cp = buf; *s; s++) {
79			if (s == '(' \|\| s == ')')
80			*cp++ = '\\';
81			if (isprint(*s))
82			cp++ = s;
83			else {
84			*cp++ = '\\';
85			cp++ = (s>>6) + '0';
86			cp++ = (s>>3 & 07) + '0';
87			cp++ = (s & 07) + '0';
88			}
89			}
90			*cp = '\0';
91			return(buf);
92			}
93
94
95	schorsch	1.3	void
96			init( /* initialize */
97			char *id
98			)
99	greg	1.1	{
100			printf("%%!PS-Adobe-2.0 EPSF-2.0\n");
101			printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
102			HMARGIN+(PWIDTH-PSQUARE)/2.,
103			VMARGIN+(PHEIGHT-PSQUARE)/2.,
104			HMARGIN+(PWIDTH-PSQUARE)/2.+PSQUARE,
105			VMARGIN+(PHEIGHT-PSQUARE)/2.+PSQUARE);
106			printf("%%%%DocumentFonts: Helvetica Courier\n");
107			if (id != NULL)
108			printf("%%%%Creator: %s\n", id);
109			printf("gsave\n");
110			printf("save\n");
111			printf("256 dict begin\n");
112			printf("%f %f translate\n", HMARGIN+(PWIDTH-PSQUARE)/2.,
113			VMARGIN+(PHEIGHT-PSQUARE)/2.);
114			printf("%f %f scale\n", (double)PSQUARE/XYSIZE,
115			(double)PSQUARE/XYSIZE);
116			printf("/mapping matrix currentmatrix def\n");
117			printf("/segment {\t\t%% name lth pat col dir xmn ymn xmx ymx\n");
118			printf("\t/startstate save def\n");
119			printf("\t128 dict begin\t\t%% get parameters\n");
120			printf("\t/ymax exch def /xmax exch def\n");
121			printf("\t/ymin exch def /xmin exch def\n");
122			printf("\t/orient exch def\n");
123			printf("\t/colndx exch def /patndx exch def /lthick exch def\n");
124			printf("\t%% segment name left on stack\n");
125			printf("\txmax xmin add 2 div ymax ymin add 2 div translate\n");
126			printf("\txmax xmin sub %d div ymax ymin sub %d div scale\n",
127			XYSIZE, XYSIZE);
128			printf("\torient 90 mul rotate\n");
129			printf("\t%d %d translate\n", -XYSIZE/2, -XYSIZE/2);
130			printf("\tcvx exec\t\t\t%% execute segment\n");
131			printf("\tend\n");
132			printf("\tstartstate restore\n");
133			printf("} def\n");
134			printf("/vstr {\t\t\t%% string\n");
135			printf("\t0 setcolor\n");
136			printf("\t/Helvetica findfont setfont\n");
137			printf("\tdup stringwidth pop %d exch div %d scale\n", XYSIZE, XYSIZE);
138			printf("\tcurrentfont charorigin translate\n");
139			printf("\t0 0 moveto show\n");
140			printf("} def\n");
141			printf("/charorigin {\t\t\t%% font charorigin xorg yorg\n");
142			printf("\tdup /FontBBox get aload pop pop pop\n");
143			printf("\t3 2 roll /FontMatrix get transform\n");
144			printf("\texch neg exch neg\n");
145			printf("} def\n");
146			printf("/newline {\t\t\t%% lpat lthick col x0 y0\n");
147			printf("\tnewpath moveto\n");
148			printf("\tsetcolor setlthick setlpat\n");
149			printf("} def\n");
150			printf("/rfilldict 4 dict def\n");
151			printf("/rfill {\t\t\t%% pat col xmn ymn xmx ymx\n");
152			printf("\trfilldict begin\n");
153			printf("\t/ymax exch def /xmax exch def\n");
154			printf("\t/ymin exch def /xmin exch def\n");
155			printf("\tsetcolor setpattern\n");
156			printf("\tnewpath\n");
157			printf("\txmin ymin moveto\n");
158			printf("\txmax ymin lineto\n");
159			printf("\txmax ymax lineto\n");
160			printf("\txmin ymax lineto\n");
161			printf("\tclosepath patfill\n");
162			printf("\tend\n");
163			printf("} def\n");
164			printf("/fillpoly {\t\t\t%% pat col mark x1 y1 .. xn yn\n");
165			printf("\tnewpath moveto\n");
166			printf("\tcounttomark 2 idiv { lineto } repeat cleartomark\n");
167			printf("\tclosepath\n");
168			printf("\tsetcolor setpattern\n");
169			printf("\t{ gsave 0 setlinewidth stroke grestore } if\n");
170			printf("\tpatfill\n");
171			printf("} def\n");
172			printf("/mstr {\t\t\t%% fnt col x y\n");
173			printf("\t100 add moveto setcolor setmfont show\n");
174			printf("} def\n");
175			printf("/patfill {\n");
176			printf("\tfill\t\t\t\t%% unimplemented\n");
177			printf("} def\n");
178			printf("/setmfont {\t\t\t%% fontndx\n");
179			printf("\tmfontab exch get setfont\n");
180			printf("} def\n");
181			printf("/setcolor {\t\t\t%% colndx\n");
182			printf("\tcolndx 0 ne { pop colndx } if\n");
183			printf("\trgbcoltab exch get aload pop setrgbcolor\n");
184			printf("} def\n");
185			printf("/setlthick {\t\t\t%% lthick\n");
186			printf("\tlthick 0 ne { pop lthick } if\n");
187			printf("\tsetlinewidth\n");
188			printf("} def\n");
189			printf("/setlpat {\t\t\t%% lpatndx\n");
190			printf("\tdashtab exch get 0 setdash\n");
191			printf("} def\n");
192			printf("/setpattern {\t\t\t%% patndx\n");
193			printf("\tpop\t\t\t\t%% unimplemented\n");
194			printf("} def\n");
195			printf("/canonfont\t\t\t%% canonical matrix string font\n");
196			printf("\t/Courier findfont\n");
197			printf("\tdup charorigin matrix translate\n");
198			printf("\tmakefont\n");
199			printf("def\n");
200			printf("/mfontab [\t\t\t%% hardware font table\n");
201			printf("\t[\n");
202			printf("\t\t[ 340 0 0 340 0 -340 ]\n");
203			printf("\t\t[ 681 0 0 340 0 -340 ]\n");
204			printf("\t\t[ 340 0 0 681 0 -681 ]\n");
205			printf("\t\t[ 681 0 0 681 0 -681 ]\n");
206			printf("\t\t[ 282 0 0 282 0 -282 ]\n");
207			printf("\t\t[ 564 0 0 282 0 -282 ]\n");
208			printf("\t\t[ 282 0 0 564 0 -564 ]\n");
209			printf("\t\t[ 564 0 0 564 0 -564 ]\n");
210			printf("\t\t[ 199 0 0 199 0 -199 ]\n");
211			printf("\t\t[ 398 0 0 199 0 -199 ]\n");
212			printf("\t\t[ 199 0 0 398 0 -398 ]\n");
213			printf("\t\t[ 398 0 0 398 0 -398 ]\n");
214			printf("\t\t[ 169 0 0 169 0 -169 ]\n");
215			printf("\t\t[ 339 0 0 169 0 -169 ]\n");
216			printf("\t\t[ 169 0 0 339 0 -339 ]\n");
217			printf("\t\t[ 339 0 0 339 0 -339 ]\n");
218			printf("\t]\n");
219			printf("\t{ canonfont exch makefont }\n");
220			printf("\tforall\n");
221			printf("] def\n");
222			printf("/dashtab [ [ ] [ 200 80 ] [ 80 80 ] [ 200 80 80 80 ] ] def\n");
223			printf("/rgbcoltab [ [ 0 0 0 ] [ 1 0 0 ] [ 0 1 0 ] [ 0 0 1 ] ] def\n");
224			printf("/colndx 0 def /patndx 0 def /lthick 0 def\n");
225			printf("%%%%EndProlog\n");
226			}
227
228
229	schorsch	1.3	void
230			done(void) /* done with graphics */
231	greg	1.1	{
232			printf("end\nrestore\ngrestore\n");
233			}
234
235
236	schorsch	1.3	void
237			endpage(void) /* done with page */
238	greg	1.1	{
239			checkline();
240
241			printf("showpage\nmapping setmatrix\n");
242			}
243
244
245	schorsch	1.3	void
246			segopen( /* open a segment */
247			char *s
248			)
249	greg	1.1	{
250			checkline();
251
252			printf("/%s {\n", convertname(s));
253			}
254
255
256	schorsch	1.3	void
257			segclose(void) /* close a segment */
258	greg	1.1	{
259			checkline();
260
261			printf("} def\n");
262			}
263
264
265	schorsch	1.3	void
266			doseg( /* instance of a segment */
267			register PRIMITIVE *p
268			)
269	greg	1.1	{
270			checkline();
271
272			printf("/%s %d %d %d ", convertname(p->args),
273			WIDTH(p->arg0>>2 & 03),
274			p->arg0>>2 & 03, p->arg0 & 03);
275			printf("%d %d %d %d %d segment\n", p->arg0>>4,
276			p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
277			}
278
279
280	schorsch	1.3	extern void
281			printstr( /* print a string */
282			register PRIMITIVE *p
283			)
284	greg	1.1	{
285			checkline();
286			printf("(%s) %d %d %d %d mstr\n", convertstring(p->args),
287			p->arg0>>2 & 017, p->arg0 & 03,
288			p->xy[XMN], p->xy[YMX]);
289			}
290
291
292	schorsch	1.3	void
293			plotvstr( /* print a vector string */
294			register PRIMITIVE *p
295			)
296	greg	1.1	{
297			checkline();
298
299			printf("(%s) /vstr %d 0 %d ", convertstring(p->args),
300			WIDTH(p->arg0>>2 & 03), p->arg0 & 03);
301			printf("%d %d %d %d %d segment\n", p->arg0>>4,
302			p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
303			}
304
305
306	schorsch	1.3	void
307			plotlseg( /* plot a line segment */
308			register PRIMITIVE *p
309			)
310	greg	1.1	{
311			static int right = FALSE;
312			static int curx, cury;
313			static int curlpat, curlthick, curlcol;
314			int y1, y2;
315			int lpat, lthick, lcol;
316
317			if (p->arg0 & 0100) {
318			y1 = p->xy[YMX];
319			y2 = p->xy[YMN];
320			} else {
321			y1 = p->xy[YMN];
322			y2 = p->xy[YMX];
323			}
324			lpat = p->arg0>>4 & 03;
325			lthick = WIDTH(p->arg0>>2 & 03);
326			lcol = p->arg0 & 03;
327			if (!inaline \|\| lpat != curlpat \|\|
328			lthick != curlthick \|\| lcol != curlcol) {
329			checkline();
330			printf("%d %d %d %d %d newline\n",
331			curlpat = lpat,
332			curlthick = lthick,
333			curlcol = lcol,
334			curx = p->xy[XMN],
335			cury = y1);
336			}
337			if (curx == p->xy[XMN] && cury == y1) {
338			printf("%d %d lineto\n", curx = p->xy[XMX], cury = y2);
339			} else if (curx == p->xy[XMX] && cury == y2) {
340			printf("%d %d lineto\n", curx = p->xy[XMN], cury = y1);
341	schorsch	1.2	} else if ( (right = !right) ) {
342	greg	1.1	printf("%d %d moveto ", p->xy[XMN], y1);
343			printf("%d %d lineto\n", curx = p->xy[XMX], cury = y2);
344			} else {
345			printf("%d %d moveto ", p->xy[XMX], y2);
346			printf("%d %d lineto\n", curx = p->xy[XMN], cury = y1);
347			}
348			if (++inaline >= MAXPATHL)
349			endline();
350			}
351
352
353	schorsch	1.3	void
354			endline(void) /* close current line */
355	greg	1.1	{
356			printf("stroke\n");
357			inaline = 0;
358			}
359
360
361	schorsch	1.3	extern void
362			fillrect( /* fill a rectangle */
363			register PRIMITIVE *p
364			)
365	greg	1.1	{
366			checkline();
367
368			printf("%d %d %d %d %d %d rfill\n", p->arg0>>2 & 03, p->arg0 & 03,
369			p->xy[XMN], p->xy[YMN], p->xy[XMX], p->xy[YMX]);
370			}
371
372
373	schorsch	1.3	extern void
374			filltri( /* fill a triangle */
375			register PRIMITIVE *p
376			)
377	greg	1.1	{
378	schorsch	1.3	static short corn[4][2] = {{XMN,YMX},{XMN,YMN},{XMX,YMN},{XMX,YMX}};
379	greg	1.1	int orient;
380			register int i;
381
382			checkline();
383
384			printf("false %d %d mark\n", p->arg0>>2 & 03, p->arg0 & 03);
385			orient = p->arg0>>4 & 03;
386			for (i = 0; i < 4; i++)
387			if (i != orient)
388			printf("%d %d ", p->xy[corn[i][0]],
389			p->xy[corn[i][1]]);
390			printf("fillpoly\n");
391			}
392
393
394	schorsch	1.3	void
395			xform( /* transform a point according to p */
396			register int *xp,
397			register int *yp,
398			register PRIMITIVE *p
399			)
400	greg	1.1	{
401	schorsch	1.3	int x = 0, y = 0;
402	greg	1.1
403			switch (p->arg0 & 060) {
404			case 0: /* right */
405			x = *xp;
406			y = *yp;
407			break;
408			case 020: /* up */
409			x = (XYSIZE-1) - *yp;
410			y = *xp;
411			break;
412			case 040: /* left */
413			x = (XYSIZE-1) - *xp;
414			y = (XYSIZE-1) - *yp;
415			break;
416			case 060: /* down */
417			x = *yp;
418			y = (XYSIZE-1) - *xp;
419			break;
420			}
421			*xp = CONV(x, p->xy[XMX] - p->xy[XMN]) + p->xy[XMN];
422			*yp = CONV(y, p->xy[YMX] - p->xy[YMN]) + p->xy[YMN];
423			}
424
425
426	schorsch	1.3	extern void
427	greg	1.1	fillpoly(p) /* fill a polygon */
428			register PRIMITIVE *p;
429			{
430			register char *s;
431			int curx, cury;
432
433			checkline();
434
435			printf("%s %d %d mark\n", p->arg0 & 0100 ? "false" : "true",
436			p->arg0>>2 & 03, p->arg0 & 03);
437			s = p->args;
438	schorsch	1.3	while ((s = nextscan(nextscan(s, "%d", (char)&curx), "%d", (char)&cury)) != NULL) {
439	greg	1.1	xform(&curx, &cury, p);
440			printf("%d %d ", curx, cury);
441			}
442			printf("fillpoly\n");
443			}
444
445
446	schorsch	1.3	void
447			set( /* set an attribute or context */
448			int attrib,
449			char *val
450			)
451	greg	1.1	{
452			checkline();
453
454			switch (attrib) {
455			case SALL:
456			printf("save\n");
457			savelvl++;
458			break;
459			case SPAT0:
460			case SPAT1:
461			case SPAT2:
462			case SPAT3:
463			break;
464			default:
465			error(WARNING, "illegal set command");
466			break;
467			}
468			}
469
470
471	schorsch	1.3	void
472			unset( /* unset an attribute or context */
473			int attrib
474			)
475	greg	1.1	{
476			checkline();
477
478			switch (attrib) {
479			case SALL:
480			if (savelvl > 0) {
481			printf("restore\n");
482			savelvl--;
483			}
484			break;
485			case SPAT0:
486			case SPAT1:
487			case SPAT2:
488			case SPAT3:
489			break;
490			default:
491			error(WARNING, "illegal unset command");
492			break;
493			}
494			}
495
496
497	schorsch	1.3	void
498			reset( /* reset an attribute or context */
499			int attrib
500			)
501	greg	1.1	{
502			checkline();
503
504			switch (attrib) {
505			case SALL:
506			while (savelvl > 0) {
507			printf("restore\n");
508			savelvl--;
509			}
510			printf("restore save\n");
511			break;
512			case SPAT0:
513			case SPAT1:
514			case SPAT2:
515			case SPAT3:
516			break;
517			default:
518			error(WARNING, "illegal reset command");
519			break;
520			}
521			}