/*- * Copyright (c) 1985, 1993 * The Regents of the University of California. All rights reserved. * * This module is believed to contain source code proprietary to AT&T. * Use and redistribution is subject to the Berkeley Software License * Agreement and your Software Agreement with AT&T (Western Electric). */ #ifndef lint static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 6/4/93"; #endif /* not lint */ #include "imPcodes.h" #include "imp.h" extern imPcsize; label(s) char *s; { register i,c; putch(imP_SET_ABS_H); putwd((int)((imPx-obotx)*scalex+botx)-imPcsize/2); putch(imP_SET_ABS_V); putwd((int)((imPy-oboty)*scaley+boty-(imPcsize/1.6))); for(i=0; c=s[i]; i++) { imPx += imPcsize/scalex; putch((c == ' ')?imP_SP:c); } }