Ultrix-3.1/src/cmd/oneqn/move.c
/**********************************************************************
* Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. *
* All Rights Reserved. *
* Reference "/usr/src/COPYRIGHT" for applicable restrictions. *
**********************************************************************/
static char Sccsid[] = "@(#)move.c 3.0 4/22/86";
# include "e.h"
# include "e.def"
move(dir, amt, p) int dir, amt, p; {
int a;
yyval = p;
a = VERT( (amt+49)/50 ); /* nearest number of half-lines */
printf(".ds %d ", yyval);
if( dir == FWD || dir == BACK ) /* fwd, back */
printf("\\h'%s%du'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
else if (dir == UP)
printf("\\v'-%du'\\*(%d\\v'%du'\n", a, p, a);
else if (dir == DOWN)
printf("\\v'%du'\\*(%d\\v'-%du'\n", a, p, a);
if(dbg)printf(".\tmove %d dir %d amt %d; h=%d b=%d\n",
p, dir, a, eht[yyval], ebase[yyval]);
}