/* Plotting functions for v8 and v9 systems *//* This file is an alternative to plot.h */ /* open the plotting output */#define openpl()  print("o\n") /* close the plotting output */#define closepl()  print("cl\n") /* make sure the page or screen is clear */#define erase() print("e\n") /* plot a point at _x,_y, which becomes current */#define point(_x,_y)  print("poi %d %d\n", _x,_y) /* coordinates to be assigned to lower left and upper right   corners of (square) plotting area */#define range(_x,_y,_X,_Y)  print("ra %d %d %d %d\n", _x,_y,_X,_Y) /* place text, first letter at current point, which does not change */#define text(_s)  {if(*(_s) == ' ')print("t \"%s\"\n",_s); else print("t %s\n", _s); } /* draw line from current point to _x,_y, which becomes current */#define vec(_x,_y)  print("v %d %d\n", _x,_y) /* _x,_y becomes current point */#define move(_x, _y)  print("m %d %d\n", _x, _y) /* specify style for drawing lines */ #define SOLID "solid"#define DOTTED "dotted"#define DASHED "dashed"#define DOTDASH "dotdash" #define pen(_s)  print("pe %s\n", _s) #define BLACK "z"#define RED "r"#define YELLOW "y"#define GREEN "g"#define BLUE "b"#define CYAN "c"#define MAGENTA "m"#define WHITE "w" #define colorcode(_s) ((strcmp(_s,"black")==0)?BLACK:_s) #define colorx(_s) print("co %s\n", _s);	/* funny name is all ken's fault */ #define comment(s,f)