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