148502Sbostic /*- 2*61327Sbostic * Copyright (c) 1983, 1993 3*61327Sbostic * The Regents of the University of California. All rights reserved. 448502Sbostic * 548502Sbostic * %sccs.include.proprietary.c% 648502Sbostic */ 748502Sbostic 815519Sralph #ifndef lint 9*61327Sbostic static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 1048502Sbostic #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 */ label(s)2515519Sralphlabel(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