|
|
1.1 root 1: # include "e.h"
2: # include "y.tab.h"
3:
4: move(dir, amt, p)
5: int dir, amt, p;
6: {
7: float a;
8:
9: yyval = p;
10: a = EM(amt/100.0, ps);
11: printf(".ds %d ", yyval);
12: if (dir == FWD || dir == BACK)
13: printf("\\h'%s%gm'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
14: else if (dir == UP)
15: printf("\\v'-%gm'\\*(%d\\v'%gm'\n", a, p, a);
16: else if (dir == DOWN)
17: printf("\\v'%gm'\\*(%d\\v'-%gm'\n", a, p, a);
18: dprintf(".\tmove %d dir %d amt %g; h=%g b=%g\n",
19: p, dir, a, eht[yyval], ebase[yyval]);
20: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.