148519Sbostic /*- 2*61397Sbostic * Copyright (c) 1985, 1993 3*61397Sbostic * The Regents of the University of California. All rights reserved. 448519Sbostic * 548519Sbostic * %sccs.include.proprietary.c% 625000Ssam */ 725000Ssam 825000Ssam #ifndef lint 9*61397Sbostic static char sccsid[] = "@(#)scale.c 8.1 (Berkeley) 06/04/93"; 1048519Sbostic #endif /* not lint */ 1125000Ssam 1225000Ssam extern float scalex; 1325000Ssam extern float scaley; 1425000Ssam extern int scaleflag; scale(i,x,y)1525000Ssamscale(i,x,y) 1625000Ssam char i; 1725000Ssam float x,y; 1825000Ssam { 1925000Ssam switch(i) { 2025000Ssam default: 2125000Ssam return; 2225000Ssam case 'c': 2325000Ssam x *= 2.54; 2425000Ssam y *= 2.54; 2525000Ssam case 'i': 2625000Ssam x /= 200; 2725000Ssam y /= 200; 2825000Ssam case 'u': 2925000Ssam scalex = 1/x; 3025000Ssam scaley = 1/y; 3125000Ssam } 3225000Ssam scaleflag = 1; 3325000Ssam } 34