148524Sbostic /*- 2*61408Sbostic * Copyright (c) 1983, 1993 3*61408Sbostic * The Regents of the University of California. All rights reserved. 448524Sbostic * 548524Sbostic * %sccs.include.proprietary.c% 648524Sbostic */ 748524Sbostic 813354Ssam #ifndef lint 9*61408Sbostic static char sccsid[] = "@(#)scale.c 8.1 (Berkeley) 06/04/93"; 1048524Sbostic #endif /* not lint */ 1113354Ssam 1213354Ssam extern float scalex; 1313354Ssam extern float scaley; 1413354Ssam extern int scaleflag; scale(i,x,y)1513354Ssamscale(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