1: /* 2: * Copyright (c) 1985 Regents of the University of California. 3: * All rights reserved. The Berkeley software License Agreement 4: * specifies the terms and conditions for redistribution. 5: */ 6: 7: #ifndef lint 8: static char sccsid[] = "@(#)label.c 5.1 (Berkeley) 9/21/85"; 9: #endif not lint 10: 11: #include "imPcodes.h" 12: #include "imp.h" 13: extern imPcsize; 14: label(s) 15: char *s; 16: { 17: register i,c; 18: putch(imP_SET_ABS_H); 19: putwd((int)((imPx-obotx)*scalex+botx)-imPcsize/2); 20: putch(imP_SET_ABS_V); 21: putwd((int)((imPy-oboty)*scaley+boty-(imPcsize/1.6))); 22: for(i=0; c=s[i]; i++) 23: { 24: imPx += imPcsize/scalex; 25: putch((c == ' ')?imP_SP:c); 26: } 27: }