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