|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.