blob: 74c02b091a45b6acb35abc46acba51fee5b2dde7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
/* -*-C-*- setfntnm.h */
/*-->setfntnm*/
/**********************************************************************/
/****************************** setfntnm ******************************/
/**********************************************************************/
void
setfntnm(k)
register INT32 k;
/***********************************************************************
This routine is used to specify the font to be used in printing future
characters.
***********************************************************************/
{
register struct font_entry *p;
p = hfontptr;
while ((p != (struct font_entry *)NULL) && (p->k != k))
p = p->next;
if (p == (struct font_entry *)NULL)
{
(void)sprintf(message,"setfntnm(): font %ld undefined", k);
(void)fatal(message);
}
else
fontptr = p;
#if (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2)
font_switched = TRUE;
#endif
}
|