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