1*14485Ssam #ifndef lint 2*14485Ssam static char sccsid[] = "@(#)font.c 4.3 08/11/83"; 3*14485Ssam #endif 411002Sshannon 511002Sshannon # include "e.h" 611002Sshannon 711002Sshannon setfont(ch1) char ch1; { 811002Sshannon /* use number '1', '2', '3' for roman, italic, bold */ 911002Sshannon yyval = ft; 1011002Sshannon if (ch1 == 'r' || ch1 == 'R') 1111002Sshannon ft = ROM; 1211002Sshannon else if (ch1 == 'i' || ch1 == 'I') 1311002Sshannon ft = ITAL; 1411002Sshannon else if (ch1 == 'b' || ch1 == 'B') 1511002Sshannon ft = BLD; 1611002Sshannon else 1711002Sshannon ft = ch1; 1811002Sshannon printf(".ft %c\n", ft); 1911023Sshannon #ifndef NEQN 2011002Sshannon if(dbg)printf(".\tsetfont %c %c\n", ch1, ft); 2111023Sshannon #else NEQN 2211023Sshannon if(dbg)printf(".\tsetfont %c\n", ft); 2311023Sshannon #endif NEQN 2411002Sshannon } 2511002Sshannon 2611002Sshannon font(p1, p2) int p1, p2; { 2711002Sshannon /* old font in p1, new in ft */ 2811002Sshannon yyval = p2; 2911002Sshannon lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM; 3011002Sshannon if(dbg)printf(".\tb:fb: S%d <- \\f%c S%d \\f%c b=%d,h=%d,lf=%c,rf=%c\n", 3111002Sshannon yyval, ft, p2, p1, ebase[yyval], eht[yyval], lfont[yyval], rfont[yyval]); 3211002Sshannon printf(".ds %d \\f%c\\*(%d\\f%c\n", 3311002Sshannon yyval, ft, p2, p1); 3411002Sshannon ft = p1; 3511002Sshannon printf(".ft %c\n", ft); 3611002Sshannon } 3711002Sshannon 3811002Sshannon fatbox(p) int p; { 3911002Sshannon int sh; 4011002Sshannon 4111002Sshannon yyval = p; 4211002Sshannon sh = ps / 4; 4311002Sshannon nrwid(p, ps, p); 4411002Sshannon printf(".ds %d \\*(%d\\h'-\\n(%du+%du'\\*(%d\n", p, p, p, sh, p); 4511002Sshannon if(dbg)printf(".\tfat %d, sh=%d\n", p, sh); 4611002Sshannon } 4711002Sshannon 4811002Sshannon globfont() { 4911002Sshannon char temp[20]; 5011002Sshannon 5111002Sshannon getstr(temp, 20); 5211002Sshannon yyval = eqnreg = 0; 5311002Sshannon gfont = temp[0]; 5411002Sshannon switch (gfont) { 5511002Sshannon case 'r': case 'R': 5611002Sshannon gfont = '1'; 5711002Sshannon break; 5811002Sshannon case 'i': case 'I': 5911002Sshannon gfont = '2'; 6011002Sshannon break; 6111002Sshannon case 'b': case 'B': 6211002Sshannon gfont = '3'; 6311002Sshannon break; 6411002Sshannon } 6511002Sshannon printf(".ft %c\n", gfont); 6611002Sshannon ft = gfont; 6711002Sshannon } 68