ref: 4d69aacea023546a7150d92e147e531c38de822f
dir: /sys/src/cmd/eqn/tuning.c/
#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; }