date and time created 83/06/27 14:19:26 by sam

SCCS-vsn: lib/libplot/t4014/scale.c 4.1

diff --git a/usr/src/lib/libplot/t4014/scale.c b/usr/src/lib/libplot/t4014/scale.c
new file mode 100644 (file)
index 0000000..344474f
--- /dev/null
+++ b/usr/src/lib/libplot/t4014/scale.c
@@ -0,0 +1,26 @@
+#ifndef lint
+static char sccsid[] = "@(#)scale.c    4.1 (Berkeley) %G%";
+#endif
+
+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;
+}