1*7c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ 2*7c478bd9Sstevel@tonic-gate /* All Rights Reserved */ 3*7c478bd9Sstevel@tonic-gate 4*7c478bd9Sstevel@tonic-gate 5*7c478bd9Sstevel@tonic-gate /* 6*7c478bd9Sstevel@tonic-gate * Copyright (c) 1980 Regents of the University of California. 7*7c478bd9Sstevel@tonic-gate * All rights reserved. The Berkeley software License Agreement 8*7c478bd9Sstevel@tonic-gate * specifies the terms and conditions for redistribution. 9*7c478bd9Sstevel@tonic-gate */ 10*7c478bd9Sstevel@tonic-gate 11*7c478bd9Sstevel@tonic-gate /* 12*7c478bd9Sstevel@tonic-gate * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc. 13*7c478bd9Sstevel@tonic-gate * All Rights Reserved. 14*7c478bd9Sstevel@tonic-gate */ 15*7c478bd9Sstevel@tonic-gate 16*7c478bd9Sstevel@tonic-gate #ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.1 */ 17*7c478bd9Sstevel@tonic-gate 18*7c478bd9Sstevel@tonic-gate # include "e.h" 19*7c478bd9Sstevel@tonic-gate # include "e.def" 20*7c478bd9Sstevel@tonic-gate 21*7c478bd9Sstevel@tonic-gate move(dir, amt, p) int dir, amt, p; { 22*7c478bd9Sstevel@tonic-gate int a; 23*7c478bd9Sstevel@tonic-gate 24*7c478bd9Sstevel@tonic-gate yyval = p; 25*7c478bd9Sstevel@tonic-gate #ifndef NEQN 26*7c478bd9Sstevel@tonic-gate a = VERT(EM(amt/100.0, EFFPS(ps))); 27*7c478bd9Sstevel@tonic-gate #else NEQN 28*7c478bd9Sstevel@tonic-gate a = VERT( (amt+49)/50 ); /* nearest number of half-lines */ 29*7c478bd9Sstevel@tonic-gate #endif NEQN 30*7c478bd9Sstevel@tonic-gate printf(".ds %d ", yyval); 31*7c478bd9Sstevel@tonic-gate if( dir == FWD || dir == BACK ) /* fwd, back */ 32*7c478bd9Sstevel@tonic-gate printf("\\h'%s%du'\\*(%d\n", (dir==BACK) ? "-" : "", a, p); 33*7c478bd9Sstevel@tonic-gate else if (dir == UP) 34*7c478bd9Sstevel@tonic-gate printf("\\v'-%du'\\*(%d\\v'%du'\n", a, p, a); 35*7c478bd9Sstevel@tonic-gate else if (dir == DOWN) 36*7c478bd9Sstevel@tonic-gate printf("\\v'%du'\\*(%d\\v'-%du'\n", a, p, a); 37*7c478bd9Sstevel@tonic-gate if(dbg)printf(".\tmove %d dir %d amt %d; h=%d b=%d\n", 38*7c478bd9Sstevel@tonic-gate p, dir, a, eht[yyval], ebase[yyval]); 39*7c478bd9Sstevel@tonic-gate } 40