1*22624Sdist /* 2*22624Sdist * Copyright (c) 1980 Regents of the University of California. 3*22624Sdist * All rights reserved. The Berkeley software License Agreement 4*22624Sdist * specifies the terms and conditions for redistribution. 5*22624Sdist */ 6*22624Sdist 717621Sjak #ifndef lint 8*22624Sdist static char sccsid[] = "@(#)scale.c 5.1 (Berkeley) 06/07/85"; 9*22624Sdist #endif not lint 1017621Sjak 1117621Sjak extern float scalex; 1217621Sjak extern float scaley; 1317621Sjak extern int scaleflag; 1417621Sjak scale(i,x,y) 1517621Sjak char i; 1617621Sjak float x,y; 1717621Sjak { 1817621Sjak switch(i) { 1917621Sjak default: 2017621Sjak return; 2117621Sjak case 'c': 2217621Sjak x *= 2.54; 2317621Sjak y *= 2.54; 2417621Sjak case 'i': 2517621Sjak x /= 200; 2617621Sjak y /= 200; 2717621Sjak case 'u': 2817621Sjak scalex = 1/x; 2917621Sjak scaley = 1/y; 3017621Sjak } 3117621Sjak scaleflag = 1; 3217621Sjak } 33