meta/lib4014/label.c

#ifndef lint
static const char       RCSid[] = "$Id: label.c,v 1.2 2003/11/15 02:13:37 schorsch Exp $";
#endif

#include "local4014.h"
#include "lib4014.h"

#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
};

extern void
label(
        char *s
)
{
        register int 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.3
Committed:	Fri Nov 5 17:51:17 2004 UTC (19 years, 6 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	Removed plotout and lib4014 it depends on
#	Content
1	#ifndef lint
2	static const char RCSid[] = "$Id: label.c,v 1.2 2003/11/15 02:13:37 schorsch Exp $";
3	#endif
4
5	#include "local4014.h"
6	#include "lib4014.h"
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
26	extern void
27	label(
28	char *s
29	)
30	{
31	register int i,c;
32	for(i=0; (c=lbl_mv[i]); i++)
33	putch(c);
34	for(i=0; (c=s[i]); i++)
35	putch(c);
36	for(i=0; (c=lbl_umv[i]); i++)
37	putch(c);
38	}