1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
#include "e.h"
/*
This file contains parameter values for many of the
tuning parameters in eqn. Names are defined words.
Strings are plugged in verbatim.
Floats are usually in ems.
*/
/* In main.c: */
double BeforeSub = 1.2; /* line space before a subscript */
double AfterSub = 0.2; /* line space after a subscript */
/* diacrit.c: */
double Dvshift = 0.25; /* vertical shift for diacriticals on tall letters */
double Dhshift = 0.025; /* horizontal shift for tall letters */
double Dh2shift = 0.05; /* horizontal shift for small letters */
double Dheight = 0.25; /* increment to height for diacriticals */
double Barv = 0.68; /* vertical shift for bar */
double Barh = 0.05; /* 1/2 horizontal shrink for bar */
double Ubarv = 0.1; /* shift underbar up this much ems */
double Ubarh = 0.05; /* 1/2 horizontal shrink for underbar */
/* Also:
Vec, Dyad, Hat, Tilde, Dot, Dotdot, Utilde */
/* eqnbox.c: */
char *IRspace = "\\^"; /* space between italic & roman boxes */
/* fat.c: */
double Fatshift = 0.05; /* fattening shifts by Fatshift ems */
/* funny.c: */
int Funnyps = 5; /* point size change (== 5 above) */
double Funnyht = 0.2; /* height correction */
double Funnybase = 0.3; /* base correction */
/* integral.c: */
int Intps = 4; /* point size change for integral (== 4 above) */
double Intht = 1.15; /* ht of integral in ems */
double Intbase = 0.3; /* base in ems */
double Int1h = 0.4; /* lower limit left */
double Int1v = 0.2; /* lower limit down */
double Int2h = 0.05; /* upper limit right was 8 */
double Int2v = 0.1; /* upper limit up */
/* matrix.c: */
char *Matspace = "\\ \\ "; /* space between matrix columns */
/* over.c: */
double Overgap = 0.3; /* gap between num and denom */
double Overwid = 0.5; /* extra width of box */
double Overline = 0.1; /* extra length of fraction bar */
/* paren.c* */
double Parenbase = 0.4; /* shift of base for even count */
double Parenshift = 0.13; /* how much to shift parens down in left ... */
/* ignored unless postscript */
double Parenheight = 0.3; /* extra height above builtups */
/* pile.c: */
double Pilegap = 0.4; /* gap between pile elems */
double Pilebase = 0.5; /* shift base of even # of piled elems */
/* shift.c: */
double Subbase = 0.2; /* subscript base belowe main base */
double Supshift = 0.4; /* superscript .4 up main box */
char *Sub1space = "\\|"; /* italic sub roman space */
char *Sup1space = "\\|"; /* italic sup roman space */
char *Sub2space = "\\^"; /* space after subscripted thing */
char *SS1space = "\\^"; /* space before sub in x sub i sup j */
char *SS2space = "\\^"; /* space before sup */
/* sqrt.c: */
/* sqrt is hard! punt for now. */
/* part of the problem is that every typesetter does it differently */
/* and we have several typesetters to run. */
/* text.c: */
/* ought to be done by a table */
struct tune {
char *name;
char *cval;
} tune[] ={
/* diacrit.c */
{ "vec_def", "\\f1\\v'-.5m'\\s-3\\(->\\s0\\v'.5m'\\fP" }, /* was \s-2 & .45m */
{ "dyad_def", "\\f1\\v'-.5m'\\s-3\\z\\(<-\\|\\(->\\s0\\v'.5m'\\fP" },
{ "hat_def", "\\f1\\v'-.05m'\\s+1^\\s0\\v'.05m'\\fP" }, /* was .1 */
{ "tilde_def", "\\f1\\v'-.05m'\\s+1~\\s0\\v'.05m'\\fP" },
{ "dot_def", "\\f1\\v'-.67m'.\\v'.67m'\\fP" },
{ "dotdot_def", "\\f1\\v'-.67m'..\\v'.67m'\\fP" },
{ "utilde_def", "\\f1\\v'1.0m'\\s+2~\\s-2\\v'-1.0m'\\fP" },
/* funny.c */
{ "sum_def", "\\|\\v'.3m'\\s+5\\(*S\\s-5\\v'-.3m'\\|" },
{ "union_def", "\\|\\v'.3m'\\s+5\\(cu\\s-5\\v'-.3m'\\|" },
{ "inter_def", "\\|\\v'.3m'\\s+5\\(ca\\s-5\\v'-.3m'\\|" },
{ "prod_def", "\\|\\v'.3m'\\s+5\\(*P\\s-5\\v'-.3m'\\|" },
/* integral.c */
{ "int_def", "\\v'.1m'\\s+4\\(is\\s-4\\v'-.1m'" },
{ 0, 0 }
};
tbl *ftunetbl[TBLSIZE]; /* user-defined names */
char *ftunes[] ={ /* this table intentionally left small */
"Subbase",
"Supshift",
0
};
void init_tune(void)
{
int i;
for (i = 0; tune[i].name != NULL; i++)
install(deftbl, tune[i].name, tune[i].cval, 0);
for (i = 0; ftunes[i] != NULL; i++)
install(ftunetbl, ftunes[i], (char *) 0, 0);
}
#define eq(s, t) (strcmp(s,t) == 0)
void ftune(char *s, char *t) /* brute force for now */
{
double f = atof(t);
double *target;
target = (double *) 0; /* gcc */
while (*t == ' ' || *t == '\t')
t++;
if (eq(s, "Subbase"))
target = &Subbase;
else if (eq(s, "Supshift"))
target = &Supshift;
if (t[0] == '+' || t[0] == '-')
*target += f;
else
*target = f;
}
|