1 #ifndef lint
2 static char sccsid[] = "@(#)move.c	2.2 (CWI) 87/04/01";
3 #endif lint
4 # include "e.h"
5 # include "y.tab.h"
6 
7 move(dir, amt, p)
8 	int dir, amt, p;
9 {
10 	float a;
11 
12 	yyval = p;
13 	a = EM(amt/100.0, ps);
14 	printf(".ds %d ", yyval);
15 	if (dir == FWD || dir == BACK)
16 		printf("\\h'%s%gm'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
17 	else if (dir == UP)
18 		printf("\\v'-%gm'\\*(%d\\v'%gm'\n", a, p, a);
19 	else if (dir == DOWN)
20 		printf("\\v'%gm'\\*(%d\\v'-%gm'\n", a, p, a);
21 	dprintf(".\tmove %d dir %d amt %g; h=%g b=%g\n",
22 		p, dir, a, eht[yyval], ebase[yyval]);
23 }
24