|
|
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.