123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153 |
- #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;
- 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;
- }
|