148523Sbostic /*- 2*61406Sbostic * Copyright (c) 1985, 1993 3*61406Sbostic * The Regents of the University of California. All rights reserved. 448523Sbostic * 548523Sbostic * %sccs.include.proprietary.c% 622624Sdist */ 722624Sdist 817621Sjak #ifndef lint 9*61406Sbostic static char sccsid[] = "@(#)scale.c 8.1 (Berkeley) 06/04/93"; 1048523Sbostic #endif /* not lint */ 1117621Sjak 1217621Sjak extern float scalex; 1317621Sjak extern float scaley; 1417621Sjak extern int scaleflag; scale(i,x,y)1517621Sjakscale(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