1*13391Ssam #ifndef lint 2*13391Ssam static char sccsid[] = "@(#)subr.c 4.1 (Berkeley) 06/27/83"; 3*13391Ssam #endif 4*13391Ssam 5*13391Ssam extern float obotx; 6*13391Ssam extern float oboty; 7*13391Ssam extern float boty; 8*13391Ssam extern float botx; 9*13391Ssam extern float scalex; 10*13391Ssam extern float scaley; 11*13391Ssam xsc(xi){ 12*13391Ssam int xa; 13*13391Ssam xa = (xi-obotx)*scalex+botx; 14*13391Ssam return(xa); 15*13391Ssam } 16*13391Ssam ysc(yi){ 17*13391Ssam int ya; 18*13391Ssam ya = (yi-oboty)*scaley+boty; 19*13391Ssam return(ya); 20*13391Ssam } 21