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

SCCS-vsn: lib/libplot/vt0/subr.c 4.1

diff --git a/usr/src/lib/libplot/vt0/subr.c b/usr/src/lib/libplot/vt0/subr.c
new file mode 100644 (file)
index 0000000..37b6eaa
--- /dev/null
+++ b/usr/src/lib/libplot/vt0/subr.c
@@ -0,0 +1,20 @@
+#ifndef lint
+static char sccsid[] = "@(#)subr.c     4.1 (Berkeley) %G%";
+#endif
+
+extern float obotx;
+extern float oboty;
+extern float boty;
+extern float botx;
+extern float scalex;
+extern float scaley;
+xsc(xi){
+       int xa;
+       xa = (xi-obotx)*scalex+botx;
+       return(xa);
+}
+ysc(yi){
+       int ya;
+       ya = (yi-oboty)*scaley+boty;
+       return(ya);
+}