This is eye.c in view mode; [Download] [Up]
/* eye.c generated from eye.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "eye.psw"
#line 10 "eye.c"
void eyeball(double lcx, double lcy, double rcx, double rcy, double lbx, double lby, double rbx, double rby, double MBR, double PR, double GAP)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjGeneric obj1;
DPSBinObjReal obj2;
DPSBinObjGeneric obj3;
DPSBinObjReal obj4;
DPSBinObjReal obj5;
DPSBinObjReal obj6;
DPSBinObjReal obj7;
DPSBinObjGeneric obj8;
DPSBinObjReal obj9;
DPSBinObjGeneric obj10;
DPSBinObjGeneric obj11;
DPSBinObjGeneric obj12;
DPSBinObjReal obj13;
DPSBinObjReal obj14;
DPSBinObjGeneric obj15;
DPSBinObjGeneric obj16;
DPSBinObjReal obj17;
DPSBinObjReal obj18;
DPSBinObjReal obj19;
DPSBinObjReal obj20;
DPSBinObjGeneric obj21;
DPSBinObjReal obj22;
DPSBinObjGeneric obj23;
DPSBinObjGeneric obj24;
DPSBinObjGeneric obj25;
DPSBinObjReal obj26;
DPSBinObjReal obj27;
DPSBinObjGeneric obj28;
DPSBinObjGeneric obj29;
DPSBinObjReal obj30;
DPSBinObjGeneric obj31;
DPSBinObjReal obj32;
DPSBinObjReal obj33;
DPSBinObjReal obj34;
DPSBinObjReal obj35;
DPSBinObjReal obj36;
DPSBinObjGeneric obj37;
DPSBinObjGeneric obj38;
DPSBinObjReal obj39;
DPSBinObjReal obj40;
DPSBinObjReal obj41;
DPSBinObjReal obj42;
DPSBinObjReal obj43;
DPSBinObjGeneric obj44;
DPSBinObjGeneric obj45;
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 46, 372,
{DPS_LITERAL|DPS_REAL, 0, 0, 1.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
{DPS_LITERAL|DPS_REAL, 0, 0, 1.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: lcx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: lcy */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: MBR */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: PR */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: GAP */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.0},
{DPS_LITERAL|DPS_REAL, 0, 0, 360.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rcx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rcy */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: MBR */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: PR */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: GAP */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.0},
{DPS_LITERAL|DPS_REAL, 0, 0, 360.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: lbx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: lby */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: PR */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.0},
{DPS_LITERAL|DPS_REAL, 0, 0, 360.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rbx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rby */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: PR */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.0},
{DPS_LITERAL|DPS_REAL, 0, 0, 360.0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[4].val.realVal = lcx;
_dpsP[5].val.realVal = lcy;
_dpsP[17].val.realVal = rcx;
_dpsP[18].val.realVal = rcy;
_dpsP[32].val.realVal = lbx;
_dpsP[33].val.realVal = lby;
_dpsP[39].val.realVal = rbx;
_dpsP[40].val.realVal = rby;
_dpsP[6].val.realVal =
_dpsP[19].val.realVal = MBR;
_dpsP[7].val.realVal =
_dpsP[20].val.realVal =
_dpsP[34].val.realVal =
_dpsP[41].val.realVal = PR;
_dpsP[9].val.realVal =
_dpsP[22].val.realVal = GAP;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,372);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 14 "eye.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.