148526Sbostic /*- 2*61414Sbostic * Copyright (c) 1983, 1993 3*61414Sbostic * The Regents of the University of California. All rights reserved. 448526Sbostic * 548526Sbostic * %sccs.include.proprietary.c% 648526Sbostic */ 748526Sbostic 813391Ssam #ifndef lint 9*61414Sbostic static char sccsid[] = "@(#)subr.c 8.1 (Berkeley) 06/04/93"; 1048526Sbostic #endif /* not lint */ 1113391Ssam 1213391Ssam extern float obotx; 1313391Ssam extern float oboty; 1413391Ssam extern float boty; 1513391Ssam extern float botx; 1613391Ssam extern float scalex; 1713391Ssam extern float scaley; xsc(xi)1813391Ssamxsc(xi){ 1913391Ssam int xa; 2013391Ssam xa = (xi-obotx)*scalex+botx; 2113391Ssam return(xa); 2213391Ssam } ysc(yi)2313391Ssamysc(yi){ 2413391Ssam int ya; 2513391Ssam ya = (yi-oboty)*scaley+boty; 2613391Ssam return(ya); 2713391Ssam } 28