This is Explosion.c in view mode; [Download] [Up]
/* Explosion.c generated from Explosion.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "Explosion.psw"
// Copyright 1993, Katzlberger Thomas, Innsbruck, Austria. All rights reserved.
// You may not delete this notice.
#line 13 "Explosion.c"
void PSWinit( 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;
DPSBinObjGeneric obj7;
DPSBinObjGeneric obj8;
char obj9[9];
} _dpsQ;
static const _dpsQ _dpsF = {
DPS_DEF_TOKENTYPE, 4, 85,
{DPS_LITERAL|DPS_NAME, 0, 9, 72}, /* explosion */
{DPS_EXEC|DPS_ARRAY, 0, 5, 32},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{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, 167}, /* stroke */
{'e','x','p','l','o','s','i','o','n'},
}; /* _dpsQ */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,85);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 14 "Explosion.psw"
#line 52 "Explosion.c"
void PSWdrawExplosion(float gray, float x, float y, float rad)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
char obj5[9];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 5, 53,
{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: rad */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: gray */
{DPS_EXEC|DPS_NAME, 0, 9, 40}, /* explosion */
{'e','x','p','l','o','s','i','o','n'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[3].val.realVal = gray;
_dpsP[0].val.realVal = x;
_dpsP[1].val.realVal = y;
_dpsP[2].val.realVal = rad;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,53);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 20 "Explosion.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.