1 /*
2  * Copyright (c) 1985 Regents of the University of California. All rights
3  * reserved.  The Berkeley software License Agreement specifies the terms and
4  * conditions for redistribution.
5  */
6 
7 #ifndef lint
8 static char	sccsid[] = "@(#)open.c	5.2 (Berkeley) 9/21/85";
9 #endif				/* not lint */
10 
11 #include "imPcodes.h"
12 #include "imp.h"
13 #include <plot.h>
14 
15 extern void	putwd(int w);
16 extern void	putch(int c);
17 
18 void
setfont(char * c,int sz)19 setfont(char *c, int sz)
20 {
21 	imPcsize = sz;
22 	putch(imP_CREATE_FAMILY_TABLE);
23 	putch(2);
24 	putch(1);
25 	putch(0);
26 	fprintf(stdout, "%s", c);
27 	putch(0);
28 }
29 
30 void
pl_openpl(void)31 pl_openpl(void)
32 {
33 	pl_openvt();
34 }
35 
36 void
pl_openvt(void)37 pl_openvt(void)
38 {
39 	putch(imP_SET_HV_SYSTEM);
40 	putch((3 << 3) | 5);
41 	putch(imP_SET_FAMILY);
42 	putch(2);
43 	setfont(imP_charset, imPcsize);
44 	putch(imP_SET_IL);
45 	putwd(imPcsize + 3);
46 	putch(imP_SET_SP);
47 	putwd(imPcsize);
48 	putch(imP_SET_PEN);
49 	putch(2);
50 	putch(imP_SET_ABS_H);
51 	putwd(0);
52 	putch(imP_SET_ABS_V);
53 	putwd(0);
54 }
55