|
|
1.1 ! root 1: #define SCX(A) ((A - e1->xmin)*e1->scalex + e1->left) ! 2: #define SCY(A) ((A - e1->ymin)*e1->scaley + e1->bottom) ! 3: #define PUTFONT printf("\n.ft %s\n.sp -1\n",e1->pfont) ! 4: #define PUTSIZE printf("\n.ps %d\n.sp -1\n",e1->psize) ! 5: extern struct penvir { ! 6: double left, bottom; ! 7: double xmin, ymin; ! 8: double scalex, scaley; ! 9: double sidex, sidey; ! 10: double copyx, copyy; ! 11: double quantum; ! 12: double grade; ! 13: double ninches; ! 14: double pslant; ! 15: int pgap; ! 16: int pmode, psize, pbrush; ! 17: char pfont[4]; ! 18: } *e0, *e1, *esave; ! 19: extern int CH; ! 20: #define sSTEP 120 ! 21: #define NX(A) (int)(((A)*e1->scalex)+.5) ! 22: #define LX(A) ((int)((A)*e1->scalex)) ! 23: #define LY(A) ((int)((A)*e1->scaley)) ! 24: #define RESET if(CH++>8) { CH=0; move(e1->copyx,e1->copyy); } ! 25: #define DASHSIZE (double)64. ! 26: extern int internal; ! 27: extern double linespace; ! 28: struct seg { ! 29: int x, y, X, Y; ! 30: char stat; ! 31: }; ! 32: #define RADIANS 57.3 ! 33: #define D202RES 972. ! 34: #define APSRES 723. ! 35: #define POSTRES 720.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.