/* 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)