1 /*- 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 10 #endif /* not lint */ 11 12 #include "aed.h" 13 14 /*--------------------------------------------------------- 15 * This routine places a label starting at the current 16 * position. 17 * 18 * Results: None. 19 * 20 * Side Effects: 21 * The string indicated by s starting at (curx, cury). 22 * The current position is updated accordingly. 23 *--------------------------------------------------------- 24 */ 25 label(s) 26 char *s; 27 { 28 setcolor("02"); 29 putc('Q', stdout); 30 outxy20(curx + (4096/scale), cury + (4096/scale)); 31 putc('\6', stdout); 32 fputs(s, stdout); 33 putc('\33', stdout); 34 (void) fflush(stdout); 35 curx += ((6*4096*strlen(s)) + 4000)/scale; 36 } 37