1 /*- 2 * Copyright (c) 1983 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)subr.c 4.2 (Berkeley) 04/22/91"; 10 #endif /* not lint */ 11 12 extern float obotx; 13 extern float oboty; 14 extern float boty; 15 extern float botx; 16 extern float scalex; 17 extern float scaley; 18 xsc(xi){ 19 int xa; 20 xa = (xi-obotx)*scalex+botx; 21 return(xa); 22 } 23 ysc(yi){ 24 int ya; 25 ya = (yi-oboty)*scaley+boty; 26 return(ya); 27 } 28