meta/lib4014/label.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
#ifndef lint
static char sccsid[] = "@(#)label.c     4.1 (Berkeley) 6/27/83";
#endif

#define N 0104
#define E 0101
#define NE 0105
#define S 0110
#define W 0102
#define SW 0112
/*      arrange by incremental plotting that an initial
 *      character such as +, X, *, etc will fall
 *      right on the point, and undo it so that further
 *      labels will fall properly in place
 */
char lbl_mv[] = {
        036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
};
char lbl_umv[] = {
        036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
};
label(s)
char *s;
{
        register i,c;
        for(i=0; c=lbl_mv[i]; i++)
                putch(c);
        for(i=0; c=s[i]; i++)
                putch(c);
        for(i=0; c=lbl_umv[i]; i++)
                putch(c);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 3 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			#ifndef lint
5			static char sccsid[] = "@(#)label.c 4.1 (Berkeley) 6/27/83";
6			#endif
7
8			#define N 0104
9			#define E 0101
10			#define NE 0105
11			#define S 0110
12			#define W 0102
13			#define SW 0112
14			/* arrange by incremental plotting that an initial
15			* character such as +, X, *, etc will fall
16			* right on the point, and undo it so that further
17			* labels will fall properly in place
18			*/
19			char lbl_mv[] = {
20			036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
21			};
22			char lbl_umv[] = {
23			036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
24			};
25			label(s)
26			char *s;
27			{
28			register i,c;
29			for(i=0; c=lbl_mv[i]; i++)
30			putch(c);
31			for(i=0; c=s[i]; i++)
32			putch(c);
33			for(i=0; c=lbl_umv[i]; i++)
34			putch(c);
35			}