1 5cedca1b 2004-05-15 devnull # include "e.h"
 2 5cedca1b 2004-05-15 devnull 
 3 5cedca1b 2004-05-15 devnull void setfont(char *ch1)
 4 5cedca1b 2004-05-15 devnull {
 5 5cedca1b 2004-05-15 devnull 	yyval = ft;
 6 5cedca1b 2004-05-15 devnull 	if (strcmp(ch1, "I") == 0) {	/* I and italic mean merely position 2 */
 7 5cedca1b 2004-05-15 devnull 		*ch1 = '2';
 8 5cedca1b 2004-05-15 devnull 		ft = ITAL;
 9 5cedca1b 2004-05-15 devnull 	} else if (strcmp(ch1, "B") == 0) {	/* and similarly for B & bold */
10 5cedca1b 2004-05-15 devnull 		*ch1 = '3';
11 5cedca1b 2004-05-15 devnull 		ft = BLD;
12 5cedca1b 2004-05-15 devnull 	} else if (strcmp(ch1, "R") == 0) {	/* and R and roman */
13 5cedca1b 2004-05-15 devnull 		*ch1 = '1';
14 5cedca1b 2004-05-15 devnull 		ft = ROM;
15 5cedca1b 2004-05-15 devnull 	} else {
16 5cedca1b 2004-05-15 devnull 		ft = ROM;	/* assume it's a roman style */
17 5cedca1b 2004-05-15 devnull 	}
18 5cedca1b 2004-05-15 devnull 	ftp++;
19 5cedca1b 2004-05-15 devnull 	if (ftp >= &ftstack[10])
20 5cedca1b 2004-05-15 devnull 		ERROR "font stack overflow (10)" FATAL;
21 5cedca1b 2004-05-15 devnull 	ftp->ft = ft;
22 5cedca1b 2004-05-15 devnull 	if (ch1[1] == 0) {	/* 1-char name */
23 5cedca1b 2004-05-15 devnull 		ftp->name[0] = *ch1;
24 5cedca1b 2004-05-15 devnull 		ftp->name[1] = '\0';
25 5cedca1b 2004-05-15 devnull 	} else
26 5cedca1b 2004-05-15 devnull 		sprintf(ftp->name, "(%s", ch1);
27 5cedca1b 2004-05-15 devnull 	dprintf(".\tsetfont %s %c\n", ch1, ft);
28 5cedca1b 2004-05-15 devnull }
29 5cedca1b 2004-05-15 devnull 
30 5cedca1b 2004-05-15 devnull void font(int p1, int p2)
31 5cedca1b 2004-05-15 devnull {
32 5cedca1b 2004-05-15 devnull 		/* old font in p1, new in ft */
33 5cedca1b 2004-05-15 devnull 	yyval = p2;
34 5cedca1b 2004-05-15 devnull 	lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM;
35 5cedca1b 2004-05-15 devnull 	ftp--;
36 5cedca1b 2004-05-15 devnull 	ft = p1;
37 5cedca1b 2004-05-15 devnull }
38 5cedca1b 2004-05-15 devnull 
39 5cedca1b 2004-05-15 devnull void globfont(void)
40 5cedca1b 2004-05-15 devnull {
41 5cedca1b 2004-05-15 devnull 	char temp[20];
42 5cedca1b 2004-05-15 devnull 
43 5cedca1b 2004-05-15 devnull 	getstr(temp, sizeof(temp));
44 5cedca1b 2004-05-15 devnull 	yyval = eqnreg = 0;
45 5cedca1b 2004-05-15 devnull 	if (strcmp(temp, "I") == 0 || strncmp(temp, "it", 2) == 0) {
46 5cedca1b 2004-05-15 devnull 		ft = ITAL;
47 5cedca1b 2004-05-15 devnull 		strcpy(temp, "2");
48 5cedca1b 2004-05-15 devnull 	} else if (strcmp(temp, "B") == 0 || strncmp(temp, "bo", 2) == 0) {
49 5cedca1b 2004-05-15 devnull 		ft = BLD;
50 5cedca1b 2004-05-15 devnull 		strcpy(temp, "3");
51 5cedca1b 2004-05-15 devnull 	} else if (strcmp(temp, "R") == 0 || strncmp(temp, "ro", 2) == 0) {
52 5cedca1b 2004-05-15 devnull 		ft = ROM;
53 5cedca1b 2004-05-15 devnull 		strcpy(temp, "1");
54 fa325e9b 2020-01-10 cross 	} else {
55 5cedca1b 2004-05-15 devnull 		ft = ROM;	/* assume it's a roman style */
56 5cedca1b 2004-05-15 devnull 	}
57 5cedca1b 2004-05-15 devnull 	ftstack[0].ft = ft;
58 5cedca1b 2004-05-15 devnull 	if (temp[1] == 0)	/* 1-char name */
59 5cedca1b 2004-05-15 devnull 		strcpy(ftstack[0].name, temp);
60 5cedca1b 2004-05-15 devnull 	else
61 5cedca1b 2004-05-15 devnull 		sprintf(ftstack[0].name, "(%.2s", temp);
62 5cedca1b 2004-05-15 devnull }
63 5cedca1b 2004-05-15 devnull 
64 5cedca1b 2004-05-15 devnull void fatbox(int p)
65 5cedca1b 2004-05-15 devnull {
66 5cedca1b 2004-05-15 devnull 	extern double Fatshift;
67 5cedca1b 2004-05-15 devnull 
68 5cedca1b 2004-05-15 devnull 	yyval = p;
69 5cedca1b 2004-05-15 devnull 	printf(".ds %d \\*(%d\\h'-\\w'\\*(%d'u+%gm'\\*(%d\n", p, p, p, Fatshift, p);
70 5cedca1b 2004-05-15 devnull }