2004-05-15 23:24:00 +00:00
|
|
|
# include "e.h"
|
|
|
|
|
# include "y.tab.h"
|
|
|
|
|
|
|
|
|
|
void move(int dir, int amt, int p)
|
|
|
|
|
{
|
|
|
|
|
double a;
|
|
|
|
|
|
|
|
|
|
yyval = p;
|
|
|
|
|
a = EM(amt/100.0, ps);
|
2006-02-04 20:26:35 +00:00
|
|
|
printf(".ds %d ", (int)yyval);
|
2004-05-15 23:24:00 +00:00
|
|
|
if (dir == FWD || dir == BACK)
|
|
|
|
|
printf("\\h'%s%gm'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
|
|
|
|
|
else if (dir == UP)
|
|
|
|
|
printf("\\v'-%gm'\\*(%d\\v'%gm'\n", a, p, a);
|
|
|
|
|
else if (dir == DOWN)
|
|
|
|
|
printf("\\v'%gm'\\*(%d\\v'-%gm'\n", a, p, a);
|
|
|
|
|
dprintf(".\tmove %d dir %d amt %g; h=%g b=%g\n",
|
|
|
|
|
p, dir, a, eht[yyval], ebase[yyval]);
|
|
|
|
|
}
|
