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

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

diff --git a/usr/src/lib/libplot/t4014/label.c b/usr/src/lib/libplot/t4014/label.c
new file mode 100644 (file)
index 0000000..ae38c85
--- /dev/null
+++ b/usr/src/lib/libplot/t4014/label.c
@@ -0,0 +1,32 @@
+#ifndef lint
+static char sccsid[] = "@(#)label.c    4.1 (Berkeley) %G%";
+#endif
+
+#define N 0104
+#define E 0101
+#define NE 0105
+#define S 0110
+#define W 0102
+#define SW 0112
+/*     arrange by incremental plotting that an initial
+ *     character such as +, X, *, etc will fall
+ *     right on the point, and undo it so that further
+ *     labels will fall properly in place
+ */
+char lbl_mv[] = {
+       036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
+};
+char lbl_umv[] = {
+       036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
+};
+label(s)
+char *s;
+{
+       register i,c;
+       for(i=0; c=lbl_mv[i]; i++)
+               putch(c);
+       for(i=0; c=s[i]; i++)
+               putch(c);
+       for(i=0; c=lbl_umv[i]; i++)
+               putch(c);
+}