118164Sjaap #ifndef lint
2*30727Sjaap static char sccsid[] = "@(#)move.c 2.2 (CWI) 87/04/01";
323924Sjaap #endif lint
418164Sjaap # include "e.h"
5*30727Sjaap # include "y.tab.h"
618164Sjaap
move(dir,amt,p)723924Sjaap move(dir, amt, p)
823924Sjaap int dir, amt, p;
923924Sjaap {
1023924Sjaap float a;
1118164Sjaap
1218164Sjaap yyval = p;
1323924Sjaap a = EM(amt/100.0, ps);
1418164Sjaap printf(".ds %d ", yyval);
1523924Sjaap if (dir == FWD || dir == BACK)
1623924Sjaap printf("\\h'%s%gm'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
1718164Sjaap else if (dir == UP)
1823924Sjaap printf("\\v'-%gm'\\*(%d\\v'%gm'\n", a, p, a);
1918164Sjaap else if (dir == DOWN)
2023924Sjaap printf("\\v'%gm'\\*(%d\\v'-%gm'\n", a, p, a);
2123924Sjaap dprintf(".\tmove %d dir %d amt %g; h=%g b=%g\n",
2218164Sjaap p, dir, a, eht[yyval], ebase[yyval]);
2318164Sjaap }
24