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