|
|
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 unorm(y) (double)y
4: extern struct penvir {
5: double left, bottom;
6: double xmin, ymin;
7: double scalex, scaley;
8: double sidex, sidey;
9: double copyx, copyy;
10: double quantum;
11: double grade;
12: int pgap;
13: double pslant;
14: char ppink, pbrush;
15: } *e0, *e1, *e2, *esave;
16: extern int ohiy, ohix, oloy, oextra;
17: extern int internal;
18: char bcolor();
19: #define ESC 033
20: #define ERASE 014
21: #define PLOTOUT 037
22: #define PLOTIN 035
23: #define RADIAN 57.3
24: struct seg{
25: int x, y, X, Y;
26: char stat;
27: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.