1 28994509 2004-04-21 devnull /* Plotting functions for v8 and v9 systems */
 2 28994509 2004-04-21 devnull /* This file is an alternative to plot.h */
 3 28994509 2004-04-21 devnull 
 4 28994509 2004-04-21 devnull /* open the plotting output */
 5 28994509 2004-04-21 devnull #define openpl()  print("o\n")
 6 28994509 2004-04-21 devnull 
 7 28994509 2004-04-21 devnull /* close the plotting output */
 8 28994509 2004-04-21 devnull #define closepl()  print("cl\n")
 9 28994509 2004-04-21 devnull 
10 28994509 2004-04-21 devnull /* make sure the page or screen is clear */
11 28994509 2004-04-21 devnull #define erase() print("e\n")
12 28994509 2004-04-21 devnull 
13 28994509 2004-04-21 devnull /* plot a point at _x,_y, which becomes current */
14 28994509 2004-04-21 devnull #define point(_x,_y)  print("poi %d %d\n", _x,_y)
15 28994509 2004-04-21 devnull 
16 28994509 2004-04-21 devnull /* coordinates to be assigned to lower left and upper right
17 28994509 2004-04-21 devnull    corners of (square) plotting area */
18 28994509 2004-04-21 devnull #define range(_x,_y,_X,_Y)  print("ra %d %d %d %d\n", _x,_y,_X,_Y)
19 28994509 2004-04-21 devnull 
20 28994509 2004-04-21 devnull /* place text, first letter at current point, which does not change */
21 28994509 2004-04-21 devnull #define text(_s)  {if(*(_s) == ' ')print("t \"%s\"\n",_s); else print("t %s\n", _s); }
22 28994509 2004-04-21 devnull 
23 28994509 2004-04-21 devnull /* draw line from current point to _x,_y, which becomes current */
24 28994509 2004-04-21 devnull #define vec(_x,_y)  print("v %d %d\n", _x,_y)
25 28994509 2004-04-21 devnull 
26 28994509 2004-04-21 devnull /* _x,_y becomes current point */
27 28994509 2004-04-21 devnull #define move(_x, _y)  print("m %d %d\n", _x, _y)
28 28994509 2004-04-21 devnull 
29 28994509 2004-04-21 devnull /* specify style for drawing lines */
30 28994509 2004-04-21 devnull 
31 28994509 2004-04-21 devnull #define SOLID "solid"
32 28994509 2004-04-21 devnull #define DOTTED "dotted"
33 28994509 2004-04-21 devnull #define DASHED "dashed"
34 28994509 2004-04-21 devnull #define DOTDASH "dotdash"
35 28994509 2004-04-21 devnull 
36 28994509 2004-04-21 devnull #define pen(_s)  print("pe %s\n", _s)
37 28994509 2004-04-21 devnull 
38 28994509 2004-04-21 devnull #define BLACK "z"
39 28994509 2004-04-21 devnull #define RED "r"
40 28994509 2004-04-21 devnull #define YELLOW "y"
41 28994509 2004-04-21 devnull #define GREEN "g"
42 28994509 2004-04-21 devnull #define BLUE "b"
43 28994509 2004-04-21 devnull #define CYAN "c"
44 28994509 2004-04-21 devnull #define MAGENTA "m"
45 28994509 2004-04-21 devnull #define WHITE "w"
46 28994509 2004-04-21 devnull 
47 28994509 2004-04-21 devnull #define colorcode(_s) ((strcmp(_s,"black")==0)?BLACK:_s)
48 28994509 2004-04-21 devnull 
49 28994509 2004-04-21 devnull #define colorx(_s) print("co %s\n", _s);	/* funny name is all ken's fault */
50 28994509 2004-04-21 devnull 
51 28994509 2004-04-21 devnull #define comment(s,f)