postsc.c File Reference

#include "spice.h"
#include "plotdev.h"

Include dependency graph for postsc.c:

Go to the source code of this file.

Data Structures
struct	PSdevdep

Macros
#define	SOLID   0
#define	DEVDEP(g)   (*((PSdevdep *) (g)->devdep))

Functions
int	PS_Init ()
int	PS_NewViewport (GRAPH *graph)
int	PS_Close ()
int	PS_Halt ()
int	PS_Pixel (int x, int y)
int	PS_Line (int x1, int y1, int x2, int y2)
int	PS_Box (int x1, int y1, int x2, int y2)
int	PS_Arc (int x0, int y0, int radius, double theta1, double theta2)
int	PS_Polygon (POLYGON *p)
int	PS_Text (char *text, int x, int y)
int	PS_SetLinestyle (int linestyleid)
int	PS_SetColor (colorid)
int	PS_Update ()
int	PS_ScaledText (char *text, int x, int y, int Xform)

Variables
static FILE *	plotfile
static char *	linestyle []
static int	Xoff
static int	Yoff
static int	lastx
static int	lasty

Macro Definition Documentation

#define DEVDEP

(

g

)

(*((PSdevdep *) (g)->devdep))

Definition at line 30 of file postsc.c.

#define SOLID   0

Definition at line 17 of file postsc.c.

Function Documentation

int PS_Arc	(	int	x0,
		int	y0,
		int	radius,
		double	theta1,
		double	theta2
	)

Definition at line 204 of file postsc.c.

{
    int a1, a2;

    if (theta1 >= theta2)
        theta2 = 2 * M_PI + theta2;

    a1 = (180.0 / M_PI) * theta1;
    a2 = (180.0 / M_PI) * theta2;

    if (currentgraph->linestyle == -1)
        PS_SetLinestyle(SOLID);
    if (DEVDEP(currentgraph).strokecnt) {
        fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }
    else if (DEVDEP(currentgraph).lastlinestyle == -1) {
        fprintf(plotfile, "newpath\n");
        DEVDEP(currentgraph).lastlinestyle = currentgraph->linestyle;
    }

    fprintf(plotfile, "%d %d %d %d %d arc\n",
        x0+Xoff,y0+Yoff,radius,a1,a2);
    fprintf(plotfile, "stroke\n");
    lastx = -1;
    lasty = -1;
    return (0);
}

int PS_Box	(	int	x1,
		int	y1,
		int	x2,
		int	y2
	)

Definition at line 191 of file postsc.c.

{
    PS_Line(x1,y1,x1,y2);
    PS_Line(x1,y2,x2,y2);
    PS_Line(x2,y2,x2,y1);
    PS_Line(x2,y1,x1,y1);
    return (0);
}

int PS_Close

(

)

Definition at line 109 of file postsc.c.

{
    return (0);
}

int PS_Halt

(

)

Definition at line 117 of file postsc.c.

{

    if (plotfile) {
        if (DEVDEP(currentgraph).lastlinestyle != -1) {
            /* haven't stroked last path */
            fprintf(plotfile, "stroke\n");
        }
        fprintf(plotfile, "showpage\n");
        fclose(plotfile);
    }
    return (0);
}

int PS_Init

(

)

Definition at line 39 of file postsc.c.

{
    dispdev->numlinestyles = 4;
    dispdev->numcolors = 2;

    /* 8" X 10.5" drawable area */
    dispdev->width = 576;       /* 8 * 72 */
    dispdev->height = 756;      /* 10.5 * 72 */

    return (0);
}

int PS_Line	(	int	x1,
		int	y1,
		int	x2,
		int	y2
	)

Definition at line 158 of file postsc.c.

{
    /* clip out unchanged points */
    if (x1 == x2 && y1 == y2 && x1 == lastx && y1 == lasty)
        return (0);

    if (currentgraph->linestyle == -1)
        PS_SetLinestyle(SOLID);
    if (DEVDEP(currentgraph).lastlinestyle != currentgraph->linestyle ||
            DEVDEP(currentgraph).strokecnt > 499) {
        if (DEVDEP(currentgraph).lastlinestyle == -1)
            fprintf(plotfile, "newpath\n");
        else
            fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }
    if ((x1 != lastx) || (y1 != lasty) || !DEVDEP(currentgraph).strokecnt)
        fprintf(plotfile, "%d %d moveto\n", x1+Xoff, y1+Yoff);
    if ((x2 != x1) || (y2 != y1))
        fprintf(plotfile, "%d %d lineto\n", x2+Xoff, y2+Yoff);

    /* validate cache */
    lastx = x2;
    lasty = y2;
    DEVDEP(currentgraph).lastlinestyle = currentgraph->linestyle;
    (DEVDEP(currentgraph).strokecnt)++;
    return (0);
}

int PS_NewViewport

(

GRAPH *

graph

)

Definition at line 53 of file postsc.c.

{

    plotfile = fopen((char*)graph->devdep, "w");

    if (!plotfile) {
        perror(graph->devdep);
        graph->devdep = (char *) NULL;
        return (1);
    }

    switch (graph->graphtype) {
        default:
        case GR_PLOT:
        case GR_GRAF:
        case GR_MPLT:
            /* square plotting area */
            graph->absolute.width = dispdev->width;
            graph->absolute.height = dispdev->width;
            Xoff = 18;
            Yoff = 108;
            break;
        case GR_SCED:
            /* full page plot */
            graph->absolute.width = dispdev->width;
            graph->absolute.height = dispdev->height;
            Xoff = 18;
            Yoff = 18;
            break;
    }

    /* start file off with a % */
    fprintf(plotfile, "%%! nutmeg plot\n");

    /* reasonable values, used in gr_ for placement */
    graph->fontwidth = 5;
    graph->fontheight = 10;

    /* set up a reasonable font */
    fprintf(plotfile, "/Helvetica findfont 10 scalefont setfont\n");

    graph->devdep = tmalloc(sizeof(PSdevdep));
    DEVDEP(graph).lastlinestyle = -1;
    DEVDEP(graph).strokecnt = 0;
    graph->linestyle = -1;
    lastx = -1;
    lasty = -1;

    return (0);
}

int PS_Pixel	(	int	x,
		int	y
	)

Definition at line 134 of file postsc.c.

{
    int savedlstyle;

    savedlstyle = currentgraph->linestyle;
    PS_SetLinestyle(SOLID);
    if (DEVDEP(currentgraph).strokecnt > 499) {
        if (DEVDEP(currentgraph).lastlinestyle == -1)
            fprintf(plotfile, "newpath\n");
        else
            fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }
    fprintf(plotfile, "%d %d moveto\n", x+Xoff, y+Yoff);
    fprintf(plotfile, "%d %d lineto\n", x+Xoff, y+Yoff+1);
    (DEVDEP(currentgraph).strokecnt)++;
    PS_SetLinestyle(savedlstyle);
    return (0);
}

int PS_Polygon

(

POLYGON *

p

)

Definition at line 238 of file postsc.c.

{
    /* This is currently used only to print dots for sced.  The
     * polygon code below looks bad and causes errors if the dots
     * are too small, thus we use the specialized routine below.
     */

    int *xy, x, y, savedlstyle;

    xy = (int*)p->xy;
    if (xy[0] == xy[8]) {
        x = xy[0];
        y = xy[5];
    }
    else {
        x = xy[4];
        y = xy[1];
    }
    if (DEVDEP(currentgraph).strokecnt) {
        fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }
    savedlstyle = currentgraph->linestyle;
    PS_SetLinestyle(SOLID);
    fprintf(plotfile,"%d %d moveto\n",x+1+Xoff,y+Yoff);
    fprintf(plotfile,"%d %d 3 0 359 arc closepath fill\n",x+Xoff,y+Yoff);
    PS_SetLinestyle(savedlstyle);
    lastx = -1;
    lasty = -1;
    return (0);


/*
    int *xy, nvert, savedlstyle;

    xy = (int*)p->xy;
    nvert = p->nvertices;
    savedlstyle = currentgraph->linestyle;
    PS_SetLinestyle(SOLID);

    fprintf(plotfile, "%d %d moveto ", *xy+Xoff, *(xy+1)+Yoff);
    xy += 2;
    nvert--;
    while (nvert--) {
        fprintf(plotfile, "%d %d lineto\n", *xy+Xoff, *(xy+1)+Yoff);
        xy += 2;
    }
    fprintf(plotfile,"closepath\nfill\n");
    PS_SetLinestyle(savedlstyle);
    return (0);
*/
}

int PS_ScaledText	(	char *	text,
		int	x,
		int	y,
		int	Xform
	)

Definition at line 392 of file postsc.c.

{
    /* Xform code:
     * 0x8: mirror x
     * 0x4: mirror y
     * 0x3: 0-no rotation, 1-90, 2-180, 3-270
     */
    int savedlstyle, deg;
    char tbuf[BSIZE_SP], *s;

    if (text == NULL)
        return (0);

    if (Xform == (char)0) {
        PS_Text(text,x,y);
        return (0);
    }

    s = tbuf;
    while (*text) {
        if (*text == '(' || *text == ')' || *text == '\\')
            *s++ = '\\';
        *s++ = *text++;
    }
    *s = '\0';

    if (DEVDEP(currentgraph).strokecnt) {
        fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }

    /* set linestyle to solid
     * or may get funny color text on some plotters
     */
    savedlstyle = currentgraph->linestyle;
    PS_SetLinestyle(SOLID);

    fprintf(plotfile,"gsave\n");
    fprintf(plotfile,"%d %d translate\n",x+Xoff,y+Yoff);
    if (Xform & 12)
        fprintf(plotfile,"%d %d scale\n",
            (Xform & 8) ? -1 : 1, (Xform & 4) ? -1 : 1);
    deg = (Xform & 3) * 90;
    if (deg)
        fprintf(plotfile,"%d rotate\n",deg);
    fprintf(plotfile,"0 0 moveto\n");
    fprintf(plotfile,"(%s) show\n",tbuf);
    fprintf(plotfile,"grestore\n");

    /* restore old linestyle */
    PS_SetLinestyle(savedlstyle);
    lastx = -1;
    lasty = -1;
    return (0);
}

int PS_SetColor

(

colorid

)

Definition at line 373 of file postsc.c.

{
    /* do nothing */
    return (0);
}

int PS_SetLinestyle

(

int

linestyleid

)

Definition at line 337 of file postsc.c.

{

    /* special case
        get it when PS_Text restores a -1 linestyle */
    if (linestyleid == -1) {
        currentgraph->linestyle = -1;
        return (0);
    }

    if (linestyleid < 0) {
        internalerror("bad linestyleid");
        return (0);
    }

    if (linestyleid > dispdev->numlinestyles)
        linestyleid = (linestyleid % dispdev->numlinestyles) + 1;

    if (currentgraph->linestyle != linestyleid) {
        if (DEVDEP(currentgraph).strokecnt) {
            fprintf(plotfile, "stroke\n");
            DEVDEP(currentgraph).strokecnt = 0;
            lastx = -1;
            lasty = -1;
        }
        fprintf(plotfile, "%s 0 setdash\n", linestyle[linestyleid]);
        currentgraph->linestyle = linestyleid;
    }
    return (0);
}

int PS_Text	(	char *	text,
		int	x,
		int	y
	)

Definition at line 294 of file postsc.c.

{

    int savedlstyle;
    char tbuf[BSIZE_SP], *s;

    if (text == NULL)
        return (0);

    s = tbuf;
    while (*text) {
        if (*text == '(' || *text == ')' || *text == '\\')
            *s++ = '\\';
        *s++ = *text++;
    }
    *s = '\0';

    if (DEVDEP(currentgraph).strokecnt) {
        fprintf(plotfile, "stroke\n");
        DEVDEP(currentgraph).strokecnt = 0;
    }
    /* set linestyle to solid
     * or may get funny color text on some plotters
     */
    savedlstyle = currentgraph->linestyle;
    PS_SetLinestyle(SOLID);

    /* move to (x, y) */
    fprintf(plotfile, "%d %d moveto\n", x+Xoff, y+Yoff);
    fprintf(plotfile, "(%s) show\n", tbuf);

    /* restore old linestyle */
    PS_SetLinestyle(savedlstyle);
    lastx = -1;
    lasty = -1;
    return (0);
}

int PS_Update

(

)

Definition at line 381 of file postsc.c.

{
    fflush(plotfile);
    return (0);
}

Variable Documentation

int lastx

static

Definition at line 35 of file postsc.c.

int lasty

static

Definition at line 35 of file postsc.c.

char* linestyle[]

static

Initial value:

= {
                "[]",           
                "[1 2]",        
                "[7 7]",        
                "[3 3]",        
                "[3 5 1 5]" }

Definition at line 18 of file postsc.c.

FILE* plotfile

static

Definition at line 15 of file postsc.c.

int Xoff

static

Definition at line 32 of file postsc.c.

int Yoff

static

Definition at line 32 of file postsc.c.