1*13355Ssam #ifndef lint 2*13355Ssam static char sccsid[] = "@(#)space.c 4.1 (Berkeley) 06/27/83"; 3*13355Ssam #endif 4*13355Ssam 5*13355Ssam extern float botx; 6*13355Ssam extern float boty; 7*13355Ssam extern float obotx; 8*13355Ssam extern float oboty; 9*13355Ssam extern float scalex; 10*13355Ssam extern float scaley; 11*13355Ssam extern int scaleflag; 12*13355Ssam space(x0,y0,x1,y1){ 13*13355Ssam botx = 0.; 14*13355Ssam boty = 0.; 15*13355Ssam obotx = x0; 16*13355Ssam oboty = y0; 17*13355Ssam if(scaleflag) 18*13355Ssam return; 19*13355Ssam scalex = 3120./(x1-x0); 20*13355Ssam scaley = 3120./(y1-y0); 21*13355Ssam } 22