xref: /csrg-svn/lib/libplot/t4014/space.c (revision 48524)
1*48524Sbostic /*-
2*48524Sbostic  * Copyright (c) 1983 The Regents of the University of California.
3*48524Sbostic  * All rights reserved.
4*48524Sbostic  *
5*48524Sbostic  * %sccs.include.proprietary.c%
6*48524Sbostic  */
7*48524Sbostic 
813355Ssam #ifndef lint
9*48524Sbostic static char sccsid[] = "@(#)space.c	4.2 (Berkeley) 04/22/91";
10*48524Sbostic #endif /* not lint */
1113355Ssam 
1213355Ssam extern float botx;
1313355Ssam extern float boty;
1413355Ssam extern float obotx;
1513355Ssam extern float oboty;
1613355Ssam extern float scalex;
1713355Ssam extern float scaley;
1813355Ssam extern int scaleflag;
1913355Ssam space(x0,y0,x1,y1){
2013355Ssam 	botx = 0.;
2113355Ssam 	boty = 0.;
2213355Ssam 	obotx = x0;
2313355Ssam 	oboty = y0;
2413355Ssam 	if(scaleflag)
2513355Ssam 		return;
2613355Ssam 	scalex = 3120./(x1-x0);
2713355Ssam 	scaley = 3120./(y1-y0);
2813355Ssam }
29