Files
Arquivotheca.Solaris-2.5/ucbcmd/plot/libplot/imagen/open.c
seta75D 7c4988eac0 Init
2021-10-11 19:38:01 -03:00

53 lines
1.1 KiB
C
Executable File

/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
#ident "@(#)open.c 1.1 90/08/19 SMI" /* SVr4.0 1.1 */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
/*
* Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
* All Rights Reserved.
*/
#include "imPcodes.h"
#include "imp.h"
openpl(){
putch(imP_SET_HV_SYSTEM);
putch((3<<3)|5);
putch(imP_SET_FAMILY);
putch(2);
setfont(imP_charset,imPcsize);
putch(imP_SET_IL);
putwd(imPcsize+3);
putch(imP_SET_SP);
putwd(imPcsize);
putch(imP_SET_PEN);
putch(2);
putch(imP_SET_ABS_H);
putwd(0);
putch(imP_SET_ABS_V);
putwd(0);
}
setfont(c, sz) char *c; int sz;
{
imPcsize = sz;
putch(imP_CREATE_FAMILY_TABLE);
putch(2);
putch(1);
putch(0);
fprintf(stdout, c);
putch(0);
}