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