|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.