xref: /csrg-svn/lib/libplot/t4013/scale.c (revision 17621)
1*17621Sjak #ifndef lint
2*17621Sjak static char sccsid[] = "@(#)scale.c	1.1 (Berkeley) 01/02/85";
3*17621Sjak #endif
4*17621Sjak 
5*17621Sjak extern float scalex;
6*17621Sjak extern float scaley;
7*17621Sjak extern int scaleflag;
8*17621Sjak scale(i,x,y)
9*17621Sjak char i;
10*17621Sjak float x,y;
11*17621Sjak {
12*17621Sjak 	switch(i) {
13*17621Sjak 	default:
14*17621Sjak 		return;
15*17621Sjak 	case 'c':
16*17621Sjak 		x *= 2.54;
17*17621Sjak 		y *= 2.54;
18*17621Sjak 	case 'i':
19*17621Sjak 		x /= 200;
20*17621Sjak 		y /= 200;
21*17621Sjak 	case 'u':
22*17621Sjak 		scalex = 1/x;
23*17621Sjak 		scaley = 1/y;
24*17621Sjak 	}
25*17621Sjak 	scaleflag = 1;
26*17621Sjak }
27