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.