1 /*- 2 * Copyright (c) 1985, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)open.c 8.1 (Berkeley) 06/04/93"; 10 #endif /* not lint */ 11 12 #include "imPcodes.h" 13 #include "imp.h" 14 15 openpl(){ 16 17 putch(imP_SET_HV_SYSTEM); 18 putch((3<<3)|5); 19 putch(imP_SET_FAMILY); 20 putch(2); 21 setfont(imP_charset,imPcsize); 22 putch(imP_SET_IL); 23 putwd(imPcsize+3); 24 putch(imP_SET_SP); 25 putwd(imPcsize); 26 putch(imP_SET_PEN); 27 putch(2); 28 putch(imP_SET_ABS_H); 29 putwd(0); 30 putch(imP_SET_ABS_V); 31 putwd(0); 32 } 33 setfont(c, sz) char *c; int sz; 34 { 35 imPcsize = sz; 36 putch(imP_CREATE_FAMILY_TABLE); 37 putch(2); 38 putch(1); 39 putch(0); 40 fprintf(stdout, c); 41 putch(0); 42 } 43