xref: /csrg-svn/old/eqn/common_source/move.c (revision 11012)
1 /*	move.c	4.1	83/02/11	*/
2 
3 # include "e.h"
4 # include "e.def"
5 
6 move(dir, amt, p) int dir, amt, p; {
7 	int a;
8 
9 	yyval = p;
10 	a = VERT( (EFFPS(ps) * 6 * amt) / 100);
11 	printf(".ds %d ", yyval);
12 	if( dir == FWD || dir == BACK )	/* fwd, back */
13 		printf("\\h'%s%du'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
14 	else if (dir == UP)
15 		printf("\\v'-%du'\\*(%d\\v'%du'\n", a, p, a);
16 	else if (dir == DOWN)
17 		printf("\\v'%du'\\*(%d\\v'-%du'\n", a, p, a);
18 	if(dbg)printf(".\tmove %d dir %d amt %d; h=%d b=%d\n",
19 		p, dir, a, eht[yyval], ebase[yyval]);
20 }
21