font.c (1532B)
1 # include "e.h" 2 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 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 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 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 }