date and time created 86/08/29 15:06:28 by sklower

SCCS-vsn: lib/libplot/grn/subr.c 6.1

diff --git a/usr/src/lib/libplot/grn/subr.c b/usr/src/lib/libplot/grn/subr.c
new file mode 100644 (file)
index 0000000..f6233f4
--- /dev/null
+++ b/usr/src/lib/libplot/grn/subr.c
@@ -0,0 +1,54 @@
+/*
+ * Copyright (c) 1980, 1986 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[] = "@(#)subr.c     6.1 (Berkeley) %G%";
+#endif not lint
+
+
+#include "grnplot.h"
+
+
+/*---------------------------------------------------------
+ *     This local routine outputs an x-y coordinate pair in the standard
+ *     format required by the grn file.
+ *
+ *     Results:        None.
+ *     
+ *     Side Effects:
+ *
+ *     Errors:         None.
+ *---------------------------------------------------------
+ */
+outxy(x, y)
+int x, y;                      /* The coordinates to be output.  Note:
+                                * these are world coordinates, not screen
+                                * ones.  We scale in this routine.
+                                */
+{
+    printf("%.2f %.2f\n", (x - xbot)*scale,(y - ybot)*scale);
+}
+
+outcurxy()
+{
+       outxy(curx,cury);
+}
+
+startvector()
+{
+       if (!ingrnfile) erase();
+       if (invector) return;
+       invector = 1;
+       printf("VECTOR\n");
+       outcurxy();
+}
+
+endvector()
+{
+       if (!invector) return;
+       invector = 0;
+       printf("*\n%d 0\n0\n",linestyle);
+}