This is PlanetWraps.c in view mode; [Download] [Up]
/* PlanetWraps.c generated from PlanetWraps.psw by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989 */ #include <dpsclient/dpsfriends.h> #include <string.h> #line 1 "PlanetWraps.psw" /* PostScript functions to draw a planet */ #line 11 "PlanetWraps.c" void PLinitPlanetDefs( void ) { typedef struct { unsigned char tokenType; unsigned char topLevelCount; unsigned short nBytes; DPSBinObjGeneric obj0; DPSBinObjGeneric obj1; DPSBinObjGeneric obj2; DPSBinObjGeneric obj3; DPSBinObjGeneric obj4; DPSBinObjGeneric obj5; DPSBinObjGeneric obj6; char obj7[12]; } _dpsQ; static const _dpsQ _dpsF = { DPS_DEF_TOKENTYPE, 3, 72, {DPS_LITERAL|DPS_NAME, 0, 12, 56}, /* PLfillCircle */ {DPS_EXEC|DPS_ARRAY, 0, 4, 24}, {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */ {DPS_LITERAL|DPS_INT, 0, 0, 0}, {DPS_LITERAL|DPS_INT, 0, 0, 360}, {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */ {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */ {'P','L','f','i','l','l','C','i','r','c','l','e'}, }; /* _dpsQ */ register DPSContext _dpsCurCtxt = DPSPrivCurrentContext(); char pad[3]; DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,72); if (0) *pad = 0; /* quiets compiler warnings */ } #line 8 "PlanetWraps.psw" #line 46 "PlanetWraps.c" void PLdrawPlanet(float x, float y, float r) { typedef struct { unsigned char tokenType; unsigned char topLevelCount; unsigned short nBytes; DPSBinObjReal obj0; DPSBinObjReal obj1; DPSBinObjReal obj2; DPSBinObjGeneric obj3; char obj4[12]; } _dpsQ; static const _dpsQ _dpsStat = { DPS_DEF_TOKENTYPE, 4, 48, {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */ {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */ {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: r */ {DPS_EXEC|DPS_NAME, 0, 12, 32}, /* PLfillCircle */ {'P','L','f','i','l','l','C','i','r','c','l','e'}, }; /* _dpsQ */ _dpsQ _dpsF; /* local copy */ register DPSContext _dpsCurCtxt = DPSPrivCurrentContext(); char pad[3]; register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0; _dpsF = _dpsStat; /* assign automatic variable */ _dpsP[0].val.realVal = x; _dpsP[1].val.realVal = y; _dpsP[2].val.realVal = r; DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,48); if (0) *pad = 0; /* quiets compiler warnings */ } #line 12 "PlanetWraps.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.