This is explosion1.c in view mode; [Download] [Up]
/* explosion1.c generated from explosion1.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "explosion1.psw"
#line 10 "explosion1.c"
void PSWexplosion(float x, float y)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjGeneric obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjGeneric obj3;
DPSBinObjGeneric obj4;
DPSBinObjGeneric obj5;
DPSBinObjGeneric obj6;
DPSBinObjGeneric obj7;
DPSBinObjGeneric obj8;
DPSBinObjGeneric obj9;
DPSBinObjGeneric obj10;
DPSBinObjGeneric obj11;
DPSBinObjReal obj12;
DPSBinObjReal obj13;
DPSBinObjGeneric obj14;
DPSBinObjReal obj15;
DPSBinObjReal obj16;
DPSBinObjGeneric obj17;
DPSBinObjReal obj18;
DPSBinObjReal obj19;
DPSBinObjGeneric obj20;
DPSBinObjReal obj21;
DPSBinObjReal obj22;
DPSBinObjGeneric obj23;
DPSBinObjReal obj24;
DPSBinObjReal obj25;
DPSBinObjGeneric obj26;
DPSBinObjReal obj27;
DPSBinObjReal obj28;
DPSBinObjGeneric obj29;
DPSBinObjReal obj30;
DPSBinObjReal obj31;
DPSBinObjGeneric obj32;
DPSBinObjReal obj33;
DPSBinObjReal obj34;
DPSBinObjGeneric obj35;
DPSBinObjGeneric obj36;
DPSBinObjReal obj37;
DPSBinObjGeneric obj38;
DPSBinObjGeneric obj39;
DPSBinObjReal obj40;
DPSBinObjGeneric obj41;
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 11, 340,
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 78}, /* gsave */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_INT, 0, 0, 90},
{DPS_LITERAL|DPS_INT, 0, 0, 360},
{DPS_EXEC|DPS_ARRAY, 0, 31, 88},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 72}, /* for */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 77}, /* grestore */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 136}, /* rotate */
{DPS_LITERAL|DPS_REAL, 0, 0, 4.9},
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
{DPS_LITERAL|DPS_REAL, 0, 0, -4.9},
{DPS_LITERAL|DPS_REAL, 0, 0, -2.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 134}, /* rmoveto */
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 134}, /* rmoveto */
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
{DPS_LITERAL|DPS_REAL, 0, 0, -7.4},
{DPS_LITERAL|DPS_REAL, 0, 0, -7.4},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 134}, /* rmoveto */
{DPS_LITERAL|DPS_REAL, 0, 0, 2.4},
{DPS_LITERAL|DPS_REAL, 0, 0, 4.9},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
{DPS_LITERAL|DPS_REAL, 0, 0, -2.4},
{DPS_LITERAL|DPS_REAL, 0, 0, -4.9},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 134}, /* rmoveto */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_REAL, 0, 0, 9.9},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_REAL, 0, 0, -9.9},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 134}, /* rmoveto */
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[1].val.realVal = x;
_dpsP[2].val.realVal = y;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,340);
}
#line 20 "explosion1.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.