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