1*48523Sbostic /*- 2*48523Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*48523Sbostic * All rights reserved. 4*48523Sbostic * 5*48523Sbostic * %sccs.include.proprietary.c% 622624Sdist */ 722624Sdist 817621Sjak #ifndef lint 9*48523Sbostic static char sccsid[] = "@(#)scale.c 5.2 (Berkeley) 04/22/91"; 10*48523Sbostic #endif /* not lint */ 1117621Sjak 1217621Sjak extern float scalex; 1317621Sjak extern float scaley; 1417621Sjak extern int scaleflag; 1517621Sjak scale(i,x,y) 1617621Sjak char i; 1717621Sjak float x,y; 1817621Sjak { 1917621Sjak switch(i) { 2017621Sjak default: 2117621Sjak return; 2217621Sjak case 'c': 2317621Sjak x *= 2.54; 2417621Sjak y *= 2.54; 2517621Sjak case 'i': 2617621Sjak x /= 200; 2717621Sjak y /= 200; 2817621Sjak case 'u': 2917621Sjak scalex = 1/x; 3017621Sjak scaley = 1/y; 3117621Sjak } 3217621Sjak scaleflag = 1; 3317621Sjak } 34