summaryrefslogtreecommitdiff
path: root/dviware/beebe/src/setfntnm.h
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

}