1 /*-
2 * Copyright (c) 1983, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.proprietary.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93";
10 #endif /* not lint */
11
12 #define N 0104
13 #define E 0101
14 #define NE 0105
15 #define S 0110
16 #define W 0102
17 #define SW 0112
18 /* arrange by incremental plotting that an initial
19 * character such as +, X, *, etc will fall
20 * right on the point, and undo it so that further
21 * labels will fall properly in place
22 */
23 char lbl_mv[] = {
24 036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
25 };
26 char lbl_umv[] = {
27 036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
28 };
label(s)29 label(s)
30 char *s;
31 {
32 register i,c;
33 for(i=0; c=lbl_mv[i]; i++)
34 putch(c);
35 for(i=0; c=s[i]; i++)
36 putch(c);
37 for(i=0; c=lbl_umv[i]; i++)
38 putch(c);
39 }
40