date and time created 85/09/21 15:05:57 by sam

SCCS-vsn: lib/libplot/imagen/scale.c 5.1

diff --git a/usr/src/lib/libplot/imagen/scale.c b/usr/src/lib/libplot/imagen/scale.c
new file mode 100644 (file)
index 0000000..dac60f3
--- /dev/null
+++ b/usr/src/lib/libplot/imagen/scale.c
@@ -0,0 +1,32 @@
+/*
+ * Copyright (c) 1985 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;
+}