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) 09/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 } 28