/* some emulation routines for the calcomp plotting calls */

#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <assert.h>
#include <math.h>

#define true (!false)
#define false 0

/*main(int argc, char **argv)
*/

number_(float *x, float *y, float *z, float *v, float *c1, long *c2)
{	
	printf("! Number %g %g %g {%g} %g %d \n",(double) *x,(double) *y,(double) 
		*z,(double) *v,(double) *c1,c2);
	printf("amove %g %g \n",(double) *x,(double) *y);
	printf("text %g \n",(double) *v);
	
}
symbol_(float *x, float *y, float *z, char *s, float *c1, long *c2, long c3)
{	
	printf("!Symbol %g %g %g {%s} %g %d %d \n",*x,*y,*z,s,*c1,*c2,c3);
	printf("amove %g %g \n",(double) *x,(double) *y);
	printf("text %c \n",*s);
}
plot_(float *x1, float *y1, int *cmd)
{
	switch (*cmd) {
	  case 2:
		printf("aline %g %g \n",*x1,*y1);
		break;
	  case 3:
		printf("amove %g %g \n",*x1,*y1);
		break;
	  default:
		printf("! %d %g %g \n",*cmd,*x1,*y1);
		break;
	}
}