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 813354Ssam #ifndef lint 9*48524Sbostic static char sccsid[] = "@(#)scale.c 4.2 (Berkeley) 04/22/91"; 10*48524Sbostic #endif /* not lint */ 1113354Ssam 1213354Ssam extern float scalex; 1313354Ssam extern float scaley; 1413354Ssam extern int scaleflag; 1513354Ssam scale(i,x,y) 1613354Ssam char i; 1713354Ssam float x,y; 1813354Ssam { 1913354Ssam switch(i) { 2013354Ssam default: 2113354Ssam return; 2213354Ssam case 'c': 2313354Ssam x *= 2.54; 2413354Ssam y *= 2.54; 2513354Ssam case 'i': 2613354Ssam x /= 200; 2713354Ssam y /= 200; 2813354Ssam case 'u': 2913354Ssam scalex = 1/x; 3013354Ssam scaley = 1/y; 3113354Ssam } 3213354Ssam scaleflag = 1; 3313354Ssam } 34