[unix-history] / usr / src / lib / libplot / t4013 / scale.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char sccsid[] = "@(#)scale.c	5.1 (Berkeley) %G%";
#endif not lint

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