1*48502Sbostic /*- 2*48502Sbostic * Copyright (c) 1983 The Regents of the University of California. 3*48502Sbostic * All rights reserved. 4*48502Sbostic * 5*48502Sbostic * %sccs.include.proprietary.c% 6*48502Sbostic */ 7*48502Sbostic 815519Sralph #ifndef lint 9*48502Sbostic static char sccsid[] = "@(#)label.c 5.2 (Berkeley) 04/22/91"; 10*48502Sbostic #endif /* not lint */ 1115519Sralph 1215519Sralph #include "aed.h" 1315519Sralph 1415519Sralph /*--------------------------------------------------------- 1515519Sralph * This routine places a label starting at the current 1615519Sralph * position. 1715519Sralph * 1815519Sralph * Results: None. 1915519Sralph * 2015519Sralph * Side Effects: 2115519Sralph * The string indicated by s starting at (curx, cury). 2215519Sralph * The current position is updated accordingly. 2315519Sralph *--------------------------------------------------------- 2415519Sralph */ 2515519Sralph label(s) 2615519Sralph char *s; 2715519Sralph { 2815519Sralph setcolor("02"); 2915519Sralph putc('Q', stdout); 3015519Sralph outxy20(curx + (4096/scale), cury + (4096/scale)); 3115519Sralph putc('\6', stdout); 3215519Sralph fputs(s, stdout); 3315519Sralph putc('\33', stdout); 3415519Sralph (void) fflush(stdout); 3515519Sralph curx += ((6*4096*strlen(s)) + 4000)/scale; 3615519Sralph } 37