|
|
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)label.c 4.1 (Berkeley) 6/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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.