xref: /original-bsd/lib/libplot/t4014/label.c (revision 6219b5e8)
1 #ifndef lint
2 static char sccsid[] = "@(#)label.c	4.1 (Berkeley) 06/27/83";
3 #endif
4 
5 #define N 0104
6 #define E 0101
7 #define NE 0105
8 #define S 0110
9 #define W 0102
10 #define SW 0112
11 /*	arrange by incremental plotting that an initial
12  *	character such as +, X, *, etc will fall
13  *	right on the point, and undo it so that further
14  *	labels will fall properly in place
15  */
16 char lbl_mv[] = {
17 	036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
18 };
19 char lbl_umv[] = {
20 	036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
21 };
22 label(s)
23 char *s;
24 {
25 	register i,c;
26 	for(i=0; c=lbl_mv[i]; i++)
27 		putch(c);
28 	for(i=0; c=s[i]; i++)
29 		putch(c);
30 	for(i=0; c=lbl_umv[i]; i++)
31 		putch(c);
32 }
33