Carousel Volume 2 #1/carousel.iso/mactosh/code/cshar_ps.sit

Text File | 1988-06-20 | 13.7 KB | 601 lines

18-Jun-88 14:38:44-MDT,14616;000000000000
Return-Path: <[e-mail]>
Received: from cs.utah.edu by SIMTEL20.ARPA with TCP; Sat, 18 Jun 88 14:38:17 MDT
Received: by cs.utah.edu (5.54/utah-2.0-cs)
    id AA22539; Sat, 18 Jun 88 14:38:18 MDT
Received: by sunset.utah.edu (5.54/utah-2.0-leaf)
    id AA24721; Sat, 18 Jun 88 14:38:14 MDT
Date: Sat, 18 Jun 88 14:38:14 MDT
From: [e-mail] (Lee Choquette)
Message-Id: <[e-mail]>
To: [e-mail]
Subject: PseudoPS.c.shar

#! /bin/sh
#
# This is a shell archive.  Save this into a file, edit it
# and delete all lines above this comment.  Then give this
# file to sh by executing the command "sh file".  The files
# will be extracted into the current directory owned by
# you with default permissions.
#
# The files contained herein are:
#
#    6 PseudoPS.c
#    1 PseudoPS.h
#    5 ParsePS.c
#    1 stack.c
#
echo 'Extracting PseudoPS.c'
if test -f PseudoPS.c; then echo 'shar: will not overwrite PseudoPS.c'; else
sed 's/^X//' << '________This_Is_The_END________' > PseudoPS.c
X/*
X *  PseudoPS -- a small PostScript interpreter (1987)
X *
X *  Written by        Craig E Rasmussen
X *                    Center for Atmospheric and Space Science
X *                    Utah State University
X *                    Logan, Utah 84322-4405
X *                    [phone]
X *
X *    email        -    [e-mail]
X *                -    theory::craig on the SPAN network
X *
X *  with the use of SimpleTools.c (c) Erik Kilk 1986
X *
X *  This program may be freely distributed and modified as long as this
X *  header remains in place.
X *
X *  Link with LightSpeedC modules
X *      -    MacTraps
X *      -    math
X *      -    stdio
X *      -    strings
X *      -    unix
X */
X
X#include <Quickdraw.h>
X#include "simple.h"        /* SimpleTools header file    */
X#include "PseudoPS.h"
X
XFILE *fpPS, *fpErr;
Xchar PStext[STRINGLENGTH];
Xint PSopen = FALSE;
X
Xinwindow (x, y)            /* executed when click in our window */
Xint x, y;
X{
X  Point m;
X    while ( StillDown() ) {    /* while the Button is pressed */
X        GetMouse (&m);        /* waste time */
X    }
X
X}
X
Xnop()
X{
X}
X
Xno_edit ()            /* turn off edit menu (on activation) */
X{
X  menu ("Edit", "", itemdisable);
X}
X
Xyes_edit ()            /* turn on edit menu (on deactivation) */
X{
X  menu ("Edit", "", itemenable);
X}
X
XaboutPs()            /* About message */
X{
X    char messageStr[255];
X    strcpy(messageStr,"PseudoPS -- by Craig E Rasmussen (1987)\r");
X    strcat(messageStr,"A very small PostScript interpreter.\r");
X    strcat(messageStr,"Please freely distribute and improve.\r");
X    if (message(messageStr)) {
X        strcpy(messageStr,"Programmed with the aid of SimpleTools\r");
X        strcat(messageStr,"(c) Erik Kilk 1986");
X        message(messageStr);
X    }
X}
X
XOpenPSfile()            /* to be executed File-open menu is selected */
X{
X    char PSfile[255], *PtoCstr();
X    int i, n, c;
X
X    if (PSopen == TRUE) {
X        SysBeep(10);
X        message("a file is already open");
X        return;
X    }
X    if (getfile("TEXT", PSfile)) {
X        if ((fpPS = fopen(PtoCstr(PSfile), "r")) != NULL) {
X            PSopen = TRUE;
X            window (PSfile, WXTOP, WYTOP, WXBOT, WYBOT
X                , no_edit, yes_edit, nop, inwindow);
X            menu ("File", "Open.../O", itemdisable);
X            SetTransforms(WXTOP, WYTOP, WXBOT, WYBOT);
X        }
X        else SysBeep(10);
X    }
X    else SysBeep(10);
X}
X
X
Xsetup ()            /* Setup the menus and windows */
X{
X    menu (applestring, "About PsuedoPS...", aboutPs);
X    menu (applestring, "About PsuedoPS...", itemenable);
X    menu ("File", "Open.../O", OpenPSfile);
X    simplequits ();
X
X    if ((fpErr = fopen("PS.errors", "w")) == NULL) {
X        SysBeep(0);
X        exit();
X    }
X}
X
Xmain ()
X{
X
X    simpletools ("About PsuedoPS...");        /* Initialize SimpleTools    */
X    setup ();
X
X    while (1) {
X        simpleevents ();                    /* Handle all events        */
X        PostScript();
X    }
X}
X
X
XPostScript()
X{
X    char s[STRINGLENGTH];
X    int status;
X    float atof();
X
X    if (!PSopen) return;
X    if ((status = getPS(s, STRINGLENGTH))) {
X        if (status == -1)
X            fprintf(fpErr, "PostScript buffer overflow\n");
X        else if (status == -2) {
X            fprintf(fpErr, "unterminated PostScript string\n");
X            strcpy(PStext, s);
X        }
X        else if (status == 2) strcpy(PStext, s);
X        else if (IsInteger(s)) push( (float)atoi(s) );
X        else if (IsFloat(s)) push(atof(s));
X        else ParsePS(s);
X    }
X}
X
X
X/*
X *  Copy PostScript token to s if present, return(1); else return(0) if
X *  no token present or return(-1) if buffer overflow.
X */
X
XgetPS(s, max)
Xchar *s;
Xint max;
X{
X    char *sPtr;
X    int count = 0, c;
X
X    sPtr = s;
X    while (WhiteSpace(c = getc(fpPS)));        /* remove leading blanks */
X
X    if (c == '(') return(getPSstr(s, max));    /* get PostScript string */
X
X    while (!WhiteSpace(c)) {                /* copy character to s */
X        if (c != EOF) {
X            if (++count < max) *sPtr++ = c;    /* copy c if space available */
X            else {                            /* buffer overflow */
X                *sPtr = '\0';
X                return(-1);
X            }
X        }
X        else {                                /* end of file reached */
X            fclose(fpPS);
X            PSopen = FALSE;
X            menu ("File", "Open.../O", itemenable);
X            if (count > 0) {                /* token present */
X                *sPtr = '\0';
X                return(1);
X            }
X            else return(0);                    /* no token present */
X        }
X        c = getc(fpPS);
X    }
X    *sPtr = '\0';
X    return(1);                                /* token present */
X}
X
X
X/*
X *  Copy PostScript string to s if present, return(2); else return(0) if
X *  no string not properly terminated or return(-1) if buffer overflow.
X *  Character '(' already found in input stream.
X */
X
XgetPSstr(s, max)
Xchar *s;
Xint max;
X{
X    char *sPtr;
X    int count = 0, excess = 0, c;
X
X    sPtr = s;
X    c = getc(fpPS);
X
X    while (c != ')'  ||  excess > 0) {        /* copy character to s */
X        if (c != EOF) {
X            if (++count < max) {            /* copy c if space available */
X                *sPtr++ = c;
X                if (c == '(') ++excess;        /* increase unbalanced ( count */
X                else if (c == ')') --excess;
X            }
X            else {                            /* buffer overflow */
X                *sPtr = '\0';
X                return(-1);
X            }
X        }
X        else {                                /* end of file reached */
X            fclose(fpPS);
X            PSopen = FALSE;
X            menu ("File", "Open.../O", itemenable);
X            if (count > 0) {                /* string present */
X                *sPtr = '\0';                /* but not terminated by ')' */
X                return(-2);
X            }
X            else return(0);                    /* no string present */
X        }
X        c = getc(fpPS);
X    }
X    *sPtr = '\0';
X    return(2);                                /* string present */
X}
X
X
XIsFloat(s)
Xchar *s;
X{
X    char c;
X
X    while (WhiteSpace(*s)) s++;
X    if (*s == '-' || *s == '+') s++;
X    while (c = *s++)
X        if (c < '0' || c > '9') {
X            if (c == '.') break;
X            else return (0);
X        }
X    if (c != '.') return(0);                    /* no decimal point */
X    while (c = *s++) if (c < '0'  ||  c > '9') return (0); /* decimal part */
X    return (1);
X}
X
X
XIsInteger(s)
Xchar *s;
X{
X    char c;
X
X    while (WhiteSpace(*s)) s++;
X    if (*s == '-' || *s == '+') s++;
X    while (c = *s++) if (c < '0'  ||  c > '9') return (0);
X    return (1);
X}
X
XWhiteSpace(c)
X{
X    switch (c) {
X        case ' ':
X        case '\n':
X        case '\t':
X        case '\v':
X        case '\f':
X        case '\r':
X            return (1);
X        default:
X            return (0);
X    }
________This_Is_The_END________
if test `wc -l < PseudoPS.c` -ne 271; then
    echo 'shar: PseudoPS.c was damaged during transit'
  echo '      (should have been 271 bytes)'
fi
fi        ; : end of overwriting check
echo 'Extracting PseudoPS.h'
if test -f PseudoPS.h; then echo 'shar: will not overwrite PseudoPS.h'; else
sed 's/^X//' << '________This_Is_The_END________' > PseudoPS.h
X#define STRINGLENGTH 255
X#define WXTOP 3            /* 20  */
X#define WYTOP 40        /* 50  */
X#define WXBOT 508        /* 490 */
X#define WYBOT 338        /* 325 */
X
Xextern FILE *fpErr;
________This_Is_The_END________
if test `wc -l < PseudoPS.h` -ne 7; then
    echo 'shar: PseudoPS.h was damaged during transit'
  echo '      (should have been 7 bytes)'
fi
fi        ; : end of overwriting check
echo 'Extracting ParsePS.c'
if test -f ParsePS.c; then echo 'shar: will not overwrite ParsePS.c'; else
sed 's/^X//' << '________This_Is_The_END________' > ParsePS.c
X/*
X *  PseudoPS -- a small PostScript interpreter (1987)
X *
X *  Written by        Craig E Rasmussen
X *                    Center for Atmospheric and Space Science
X *                    Utah State University
X *                    Logan, Utah 84322-4405
X *                    [phone]
X *
X *    email        -    [e-mail]
X *                -    theory::craig on the SPAN network
X */
X
X#include <Quickdraw.h>
X#include <stdio.h>
X#include "PseudoPS.h"
X
X#define DTR .01745329252
X
Xfloat xShift, yShift, xScale, yScale, rotate, cosTH, sinTH;
Xint HandleAllocated = FALSE, RegionOpen = FALSE;
XRgnHandle region;
X
X
XParsePS(s)
Xchar *s;
X{
X    Rect rect;
X    float x1, x2, x3, x4, x5, left, top, right, bottom;
X    int pop();
X    char outstring[80];
X
X    switch (*s) {
X        case 'a':
X            if (strcmp(s,"arc") == 0) {
X                if (pop(&x5) != 0) StackError();
X                if (pop(&x4) != 0) StackError();
X                if (pop(&x3) != 0) StackError();
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                left   = x1 - x3;
X                top    = x2 + x3;
X                right  = x1 + x3;
X                bottom = x2 - x3;
X                transform(&left, &top);
X                transform(&right, &bottom);
X                SetRect(&rect,(int)left,(int)top,(int)right,(int)bottom);
X                FrameArc(&rect, (int)(90.-x4), (int)(x4-x5));
X            }
X            else PSerror(s);
X            break;
X        case 'c':
X            if (strcmp(s,"closepath") == 0) {
X                if (!HandleAllocated) PSerror("closepath (no RegionHandle)");
X                else if (!RegionOpen) PSerror("closepath (no current path)");
X                else {
X                    CloseRgn(region);
X                    RegionOpen = FALSE;
X                }
X            }
X            else PSerror(s);
X            break;
X        case 'f':
X            if (strcmp(s,"fill") == 0) {
X                if (!HandleAllocated) PSerror("fill (no RegionHandle)");
X                else {
X                    PaintRgn(region);
X                    DisposeRgn(region);
X                    HandleAllocated = FALSE;
X                }
X            }
X            else PSerror(s);
X            break;
X        case 'l':
X            if (strcmp(s,"lineto") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                transform(&x1, &x2);
X                LineTo((int)x1, (int)x2);
X            }
X            else PSerror(s);
X            break;
X        case 'm':
X            if (strcmp(s,"moveto") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                transform(&x1, &x2);
X                MoveTo((int)x1, (int)x2);
X            }
X            else PSerror(s);
X            break;
X        case 'n':
X            if (strcmp(s,"newpath") == 0) {
X                if (HandleAllocated) {
X                    if (RegionOpen) {
X                        PSerror("newpath (region already open)");
X                        CloseRgn(region);
X                    }
X                    PSerror("newpath (RegionHandle already created)");
X                    DisposeRgn(region);
X                }
X                region = NewRgn();
X                OpenRgn();
X                HandleAllocated = TRUE;
X                RegionOpen = TRUE;
X            }
X            else PSerror(s);
X            break;
X        case 'r':
X            if (strcmp(s,"rlineto") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                scale(&x1, &x2);
X                Line((int)x1, (int)x2);
X            }
X            else if (strcmp(s,"rmoveto") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                scale(&x1, &x2);
X                Move((int)x1, (int)x2);
X            }
X            else if (strcmp(s,"rotate") == 0) {
X                if (pop(&x1) != 0) StackError();
X                rotate = x1;
X                cosTH = 0.0;  /*cos(rotate*DTR);*/
X                sinTH = 1.0;  /*sin(rotate*DTR);*/
X            }
X            else PSerror(s);
X            break;
X        case 's':
X            if (strcmp(s,"scale") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                xScale *= x1;
X                yScale *= x2;
X            }
X            else if (strcmp(s,"scalefont") == 0) {
X                if (pop(&x1) != 0) StackError();
X                TextSize((int)x1);
X            }
X            else if (strcmp(s,"setgray") == 0) {
X                if (pop(&x1) != 0) StackError();
X                if (x1 > .875) PenPat(white);
X                else if (x1 > .625) PenPat(ltGray);
X                else if (x1 > .375) PenPat(gray);
X                else if (x1 > .125) PenPat(dkGray);
X                else PenPat(black);
X            }
X            else if (strcmp(s,"setlinewidth") == 0) {
X                if (pop(&x1) != 0) StackError();
X                PenSize((int)x1, (int)x1);
X            }
X            else if (strcmp(s,"show") == 0) {
X                CtoPstr(PStext);
X                DrawString(PStext);
X            }
X            else if (strcmp(s,"showpage") == 0) break;        /* nop */
X            else if (strcmp(s,"stroke") == 0) {
X                if (!HandleAllocated) PSerror("stroke (no RegionHandle)");
X                else {
X                    FrameRgn(region);
X                    DisposeRgn(region);
X                    HandleAllocated = FALSE;
X                }
X            }
X            else PSerror(s);
X            break;
X        case 't':
X            if (strcmp(s,"translate") == 0) {
X                if (pop(&x2) != 0) StackError();
X                if (pop(&x1) != 0) StackError();
X                xShift += x1;
X                yShift += x2;
X            }
X            else PSerror(s);
X            break;
X        default:
X            PSerror(s);
X    }
X}
X
XPSerror(s)
Xchar *s;
X{
X/*    SerialPutS("\n%offending command -> ");
X    SerialPutS(s);
X    SerialPutChar('\n');  */
X    fprintf(fpErr, "%%offending command -> %s\n", s);
X}
X
X
XStackError()
X{
X/*    SerialPutS("\n%stack error\n");  */
X    fprintf(fpErr, "\n%%stack error\n");
X}
X
X
Xtransform(x, y)
Xfloat *x, *y;
X{
X    *x += xShift;
X    *y += yShift;
X    scale(x, y);
X}
X
X
Xscale1D(r)
Xfloat *r;
X{
X    *r *= sqrt(xScale*xScale + yScale*yScale);
X}
X
X
XTransformAngle(t)
Xfloat *t;
X{
X    *t += rotate;
X}
X
X
Xscale(x, y)
Xfloat *x, *y;
X{
X    *x *=  xScale;
X    *y *= -yScale;                    /* change increasing y to upwards */
X}
X
XSetTransforms(wXtop, wYtop, wXbot, wYbot)
Xint wXtop, wYtop, wXbot, wYbot;
X{
X    xShift = 0.0; yShift = 0.0; xScale = 1.0; yScale = 1.0;
X    rotate = 0.0; cosTH = 1.0; sinTH = 0.0;
X    SetOrigin(0, wYtop - wYbot);
X    PenPat(black);
X    PenSize(1,1);
X}
X
________This_Is_The_END________
if test `wc -l < ParsePS.c` -ne 238; then
    echo 'shar: ParsePS.c was damaged during transit'
  echo '      (should have been 238 bytes)'
fi
fi        ; : end of overwriting check
echo 'Extracting stack.c'
if test -f stack.c; then echo 'shar: will not overwrite stack.c'; else
sed 's/^X//' << '________This_Is_The_END________' > stack.c
X#define    STKSIZE    10
X
Xfloat stack[STKSIZE], *StkPtr = stack;
X
Xpush(x)
Xfloat x;
X{
X    if (StkPtr >= stack + STKSIZE) return(-1);    /* stack overflow */
X    *(++StkPtr) = x;
X    return(0);
X}
X
Xpop(x)
Xfloat *x;
X{
X    if (StkPtr < stack) return(-1);        /* stack underflow */
X    *x = *StkPtr--;
X    return(0);
X}
________This_Is_The_END________
if test `wc -l < stack.c` -ne 19; then
    echo 'shar: stack.c was damaged during transit'
  echo '      (should have been 19 bytes)'
fi
fi        ; : end of overwriting check
exit 0