1 /* $MirOS: src/usr.bin/oldroff/neqn/font.c,v 1.2 2008/11/08 23:04:36 tg Exp $ */
2
3 /*-
4 * Copyright (c) 1979, 1980, 1981, 1986, 1988, 1990, 1991, 1992
5 * The Regents of the University of California.
6 * Copyright (C) Caldera International Inc. 2001-2002.
7 * Copyright (c) 2003, 2004
8 * Thorsten "mirabilos" Glaser <tg@mirbsd.org>
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms,
12 * with or without modification, are permitted provided
13 * that the following conditions are met:
14 *
15 * Redistributions of source code and documentation must retain
16 * the above copyright notice, this list of conditions and the
17 * following disclaimer. Redistributions in binary form must
18 * reproduce the above copyright notice, this list of conditions
19 * and the following disclaimer in the documentation and/or other
20 * materials provided with the distribution.
21 *
22 * All advertising materials mentioning features or use of this
23 * software must display the following acknowledgement:
24 * This product includes software developed or owned by
25 * Caldera International, Inc.
26 *
27 * Neither the name of Caldera International, Inc. nor the names
28 * of other contributors may be used to endorse or promote products
29 * derived from this software without specific prior written permission.
30 *
31 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
32 * INTERNATIONAL, INC. AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
33 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
34 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
35 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
36 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
37 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
38 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
39 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
40 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
41 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
42 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
43 */
44
45 #ifndef lint
46 static char sccsid[] = "@(#)font.c 4.4 (Berkeley) 4/17/91";
47 #endif
48
49 # include "e.h"
50
setfont(ch1)51 setfont(ch1) char ch1; {
52 /* use number '1', '2', '3' for roman, italic, bold */
53 yyval = ft;
54 if (ch1 == 'r' || ch1 == 'R')
55 ft = ROM;
56 else if (ch1 == 'i' || ch1 == 'I')
57 ft = ITAL;
58 else if (ch1 == 'b' || ch1 == 'B')
59 ft = BLD;
60 else
61 ft = ch1;
62 printf(".ft %c\n", ft);
63 #ifndef NEQN
64 if(dbg)printf(".\tsetfont %c %c\n", ch1, ft);
65 #else
66 if(dbg)printf(".\tsetfont %c\n", ft);
67 #endif
68 }
69
font(p1,p2)70 font(p1, p2) int p1, p2; {
71 /* old font in p1, new in ft */
72 yyval = p2;
73 lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM;
74 if(dbg)printf(".\tb:fb: S%d <- \\f%c S%d \\f%c b=%d,h=%d,lf=%c,rf=%c\n",
75 yyval, ft, p2, p1, ebase[yyval], eht[yyval], lfont[yyval], rfont[yyval]);
76 printf(".ds %d \\f%c\\*(%d\\f%c\n",
77 yyval, ft, p2, p1);
78 ft = p1;
79 printf(".ft %c\n", ft);
80 }
81
fatbox(p)82 fatbox(p) int p; {
83 int sh;
84
85 yyval = p;
86 sh = ps / 4;
87 nrwid(p, ps, p);
88 printf(".ds %d \\*(%d\\h'-\\n(%du+%du'\\*(%d\n", p, p, p, sh, p);
89 if(dbg)printf(".\tfat %d, sh=%d\n", p, sh);
90 }
91
globfont()92 globfont() {
93 char temp[20];
94
95 getstr(temp, 20);
96 yyval = eqnreg = 0;
97 gfont = temp[0];
98 switch (gfont) {
99 case 'r': case 'R':
100 gfont = '1';
101 break;
102 case 'i': case 'I':
103 gfont = '2';
104 break;
105 case 'b': case 'B':
106 gfont = '3';
107 break;
108 }
109 printf(".ft %c\n", gfont);
110 ft = gfont;
111 }
112