148519Sbostic /*- 2*61397Sbostic * Copyright (c) 1985, 1993 3*61397Sbostic * The Regents of the University of California. All rights reserved. 448519Sbostic * 548519Sbostic * %sccs.include.proprietary.c% 624995Ssam */ 724995Ssam 824995Ssam #ifndef lint 9*61397Sbostic static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 1048519Sbostic #endif /* not lint */ 1124995Ssam 1224995Ssam #include "imPcodes.h" 1324995Ssam #include "imp.h" 1424995Ssam extern imPcsize; label(s)1524995Ssamlabel(s) 1624995Ssam char *s; 1724995Ssam { 1824995Ssam register i,c; 1924995Ssam putch(imP_SET_ABS_H); 2024995Ssam putwd((int)((imPx-obotx)*scalex+botx)-imPcsize/2); 2124995Ssam putch(imP_SET_ABS_V); 2224995Ssam putwd((int)((imPy-oboty)*scaley+boty-(imPcsize/1.6))); 2324995Ssam for(i=0; c=s[i]; i++) 2424995Ssam { 2524995Ssam imPx += imPcsize/scalex; 2624995Ssam putch((c == ' ')?imP_SP:c); 2724995Ssam } 2824995Ssam } 29