|
|
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.