This is TimerPS.c in view mode; [Download] [Up]
/* TimerPS.c generated from TimerPS.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "TimerPS.psw"
//
// PostScript-Funktionen zum Zeichnen eines 100%-Kreises
//
#line 13 "TimerPS.c"
void define_clock_funs( 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;
DPSBinObjGeneric obj9;
DPSBinObjGeneric obj10;
DPSBinObjGeneric obj11;
DPSBinObjGeneric obj12;
DPSBinObjGeneric obj13;
DPSBinObjGeneric obj14;
DPSBinObjGeneric obj15;
DPSBinObjGeneric obj16;
DPSBinObjReal obj17;
DPSBinObjGeneric obj18;
DPSBinObjGeneric obj19;
DPSBinObjGeneric obj20;
DPSBinObjReal obj21;
DPSBinObjGeneric obj22;
DPSBinObjGeneric obj23;
DPSBinObjGeneric obj24;
DPSBinObjGeneric obj25;
DPSBinObjGeneric obj26;
DPSBinObjGeneric obj27;
DPSBinObjGeneric obj28;
DPSBinObjGeneric obj29;
DPSBinObjGeneric obj30;
DPSBinObjGeneric obj31;
DPSBinObjGeneric obj32;
DPSBinObjGeneric obj33;
DPSBinObjGeneric obj34;
DPSBinObjGeneric obj35;
DPSBinObjGeneric obj36;
DPSBinObjGeneric obj37;
DPSBinObjGeneric obj38;
DPSBinObjGeneric obj39;
DPSBinObjGeneric obj40;
DPSBinObjGeneric obj41;
DPSBinObjGeneric obj42;
DPSBinObjGeneric obj43;
DPSBinObjGeneric obj44;
DPSBinObjGeneric obj45;
DPSBinObjGeneric obj46;
DPSBinObjGeneric obj47;
DPSBinObjGeneric obj48;
DPSBinObjGeneric obj49;
DPSBinObjGeneric obj50;
DPSBinObjGeneric obj51;
DPSBinObjGeneric obj52;
DPSBinObjGeneric obj53;
DPSBinObjGeneric obj54;
DPSBinObjGeneric obj55;
DPSBinObjGeneric obj56;
DPSBinObjGeneric obj57;
DPSBinObjGeneric obj58;
char obj59[10];
char obj60[8];
char obj61[10];
char obj62[11];
char obj63[9];
} _dpsQ;
static const _dpsQ _dpsF = {
DPS_DEF_TOKENTYPE, 9, 524,
{DPS_LITERAL|DPS_NAME, 0, 11, 500}, /* segmentpath */
{DPS_EXEC|DPS_ARRAY, 0, 16, 344},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 10, 490}, /* circlepath */
{DPS_EXEC|DPS_ARRAY, 0, 10, 264},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 9, 511}, /* drawclock */
{DPS_EXEC|DPS_ARRAY, 0, 24, 72},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 8, 482}, /* diameter */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 10, 472}, /* percentage */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
{DPS_LITERAL|DPS_INT, 0, 0, 360},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 108}, /* mul */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.6667},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_EXEC|DPS_NAME, 0, 10, 490}, /* circlepath */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
{DPS_LITERAL|DPS_REAL, 0, 0, 0.3334},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_EXEC|DPS_NAME, 0, 11, 500}, /* segmentpath */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_EXEC|DPS_NAME, 0, 11, 500}, /* segmentpath */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_EXEC|DPS_NAME, 0, 10, 490}, /* circlepath */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 111}, /* newpath */
{DPS_EXEC|DPS_NAME, 0, 8, 482}, /* diameter */
{DPS_LITERAL|DPS_INT, 0, 0, 2},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 54}, /* div */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{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, 22}, /* closepath */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 111}, /* newpath */
{DPS_EXEC|DPS_NAME, 0, 8, 482}, /* diameter */
{DPS_LITERAL|DPS_INT, 0, 0, 2},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 54}, /* div */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 56}, /* dup */
{DPS_EXEC|DPS_NAME, 0, 10, 472}, /* percentage */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 110}, /* neg */
{DPS_LITERAL|DPS_INT, 0, 0, 90},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_LITERAL|DPS_INT, 0, 0, 90},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 22}, /* closepath */
{'p','e','r','c','e','n','t','a','g','e'},
{'d','i','a','m','e','t','e','r'},
{'c','i','r','c','l','e','p','a','t','h'},
{'s','e','g','m','e','n','t','p','a','t','h'},
{'d','r','a','w','c','l','o','c','k'},
}; /* _dpsQ */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,524);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 30 "TimerPS.psw"
#line 160 "TimerPS.c"
void clock_fun(float p, int d)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjGeneric obj1;
DPSBinObjGeneric obj2;
char obj3[9];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 3, 37,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: p */
{DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: d */
{DPS_EXEC|DPS_NAME, 0, 9, 24}, /* drawclock */
{'d','r','a','w','c','l','o','c','k'},
}; /* _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 = p;
_dpsP[1].val.integerVal = d;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,37);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 34 "TimerPS.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.