1 /*- 2 * Copyright (c) 1983 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)label.c 4.2 (Berkeley) 04/22/91"; 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 }; 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