1*25000Ssam /* 2*25000Ssam * Copyright (c) 1985 Regents of the University of California. 3*25000Ssam * All rights reserved. The Berkeley software License Agreement 4*25000Ssam * specifies the terms and conditions for redistribution. 5*25000Ssam */ 6*25000Ssam 7*25000Ssam #ifndef lint 8*25000Ssam static char sccsid[] = "@(#)scale.c 5.1 (Berkeley) 09/21/85"; 9*25000Ssam #endif not lint 10*25000Ssam 11*25000Ssam extern float scalex; 12*25000Ssam extern float scaley; 13*25000Ssam extern int scaleflag; 14*25000Ssam scale(i,x,y) 15*25000Ssam char i; 16*25000Ssam float x,y; 17*25000Ssam { 18*25000Ssam switch(i) { 19*25000Ssam default: 20*25000Ssam return; 21*25000Ssam case 'c': 22*25000Ssam x *= 2.54; 23*25000Ssam y *= 2.54; 24*25000Ssam case 'i': 25*25000Ssam x /= 200; 26*25000Ssam y /= 200; 27*25000Ssam case 'u': 28*25000Ssam scalex = 1/x; 29*25000Ssam scaley = 1/y; 30*25000Ssam } 31*25000Ssam scaleflag = 1; 32*25000Ssam } 33