#ifndef lint
static char sccsid[] = "@(#)tuning.c	3.1 (CWI) 87/12/21";
#endif lint

/*

This file contains parameter values for many of the
tuning parameters in eqn.  Ideally, these should be
settable dynamically, but getting them into a single
file is at least a step in the right direction.

Strings are plugged in verbatim.
Floats are usually in ems.

There are also routine(s) here for installing strange values
as the default. Driven by settype() in main.c

*/

/* In main.c: */

float	BeforeSub = 1.2;	/* line space before a subscript */
float	AfterSub  = 0.2;	/* line space after a subscript */

/* diacrit.c: */

float	Dvshift	= 0.25;		/* vertical shift for diacriticals on tall letters */
float	Dhshift = 0.025;	/* horizontal shift for tall letters */
float	Dh2shift = 0.05;	/* horizontal shift for small letters */
float	Dheight	= 0.25;		/* increment to height for diacriticals */
float	Barv	= 0.68;		/* vertical shift for bar */
float	Barh	= 0.05;		/* 1/2 horizontal shrink for bar */
char	*Vec	= "\\v'-.45m'\\s-1\\(->\\s0\\v'.45m'";
char	*Dyad	= "\\v'-.45m'\\s-1\\z\\(<-\\|\\(->\\s0\\v'.45m'";
char	*Hat	= "\\v'-.1m'\\s+1^\\s0\\v'.1m'";
char	*Tilde	= "\\v'-.1m'\\s+1~\\s0\\v'.1m'";
char	*Dot	= "\\v'-.67m'.\\v'.67m'";
char	*Dotdot	= "\\v'-.67m'..\\v'.67m'";
char	*Utilde	= "\\v'1.0m'\\s+2~\\s-2\\v'-1.0m'";

/* eqnbox.c: */

char	*IRspace = "\\^";	/* space between italic & roman boxes */

/* fat.c: */

float	Fatshift = 0.05;	/* fattening shifts by Fatshift ems */

/* funny.c: */

char	*Sum		= "\\v'.3m'\\s+5\\(*S\\s-5\\v'-.3m'";
char	*jetJSum	= "\\(SM";
char	*Union		= "\\v'.3m'\\s+5\\(cu\\s-5\\v'-.3m'";
char	*Inter		= "\\v'.3m'\\s+5\\(ca\\s-5\\v'-.3m'";
char	*Prod		= "\\v'.3m'\\s+5\\(*P\\s-5\\v'-.3m'";
int	Funnyps	= 5;		/* point size change (== 5 above) */
float	Funnyht = 0.2;		/* height correction */
float	Funnybase = 0.3;	/* base correction */

/* integral.c: */

char	*Integral	= "\\v'.1m'\\s+4\\(is\\s-4\\v'-.1m'";
int	Intps	= 4;		/* point size change for integral (== 4 above) */
float	Intht	= 1.15;		/* ht of integral in ems */
float	Intbase	= 0.3;		/* base in ems */
float	Int1h	= 0.4;		/* lower limit left */
float	Int1v	= 0.2;		/* lower limit down */
float	Int2h	= 0.08;		/* upper limit right */
float	Int2v	= 0.1;		/* upper limit up */

/* matrix.c: */

char	*Matspace = "\\ \\ ";	/* space between matrix columns */

/* over.c: */

float	Overgap	= 0.3;		/* gap between num and denom */
float	Overwid	= 0.5;		/* extra width of box */
float	Overline = 0.1;		/* extra length of fraction bar */

/* paren.c* */

float	Parenbase = 0.4;	/* shift of base for even count */

#include "paren.h"

/*
 *	Tops and bottoms of the various sorts of brackets
 *	J_* versions are for the HP Laserjet's Maths fontpack which has
 *	spindly square brackets.
 *	B_INTEGRAL is for the Sanders, which isn't supported any more anyway.
 */
static char *B_top[] = {
	"\\(lt",	/* 0	B_LCURLY */
	"\\(rt",	/* 1	B_RCURLY */
	"\\(bv",	/* 2	B_LFLOOR */
	"\\(bv",	/* 3	B_RFLOOR */
	"\\(lc",	/* 4	B_LCEILING */
	"\\(rc",	/* 5	B_RCEILING */
	"\\(lc",	/* 6	B_LSQUARE */
	"\\(rc",	/* 7	B_RSQUARE */
	"\\(lt",	/* 8	B_LROUND */
	"\\(rt",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(ti",	/* 11	B_INTEGRAL */
};
static char *J_top[] = {
	"\\(lt",	/* 0	B_LCURLY */
	"\\(rt",	/* 1	B_RCURLY */
	"\\(tv",	/* 2	B_LFLOOR */
	"\\(tv",	/* 3	B_RFLOOR */
	"\\(lc",	/* 4	B_LCEILING */
	"\\(rc",	/* 5	B_RCEILING */
	"\\(lc",	/* 6	B_LSQUARE */
	"\\(rc",	/* 7	B_RSQUARE */
	"\\(lt",	/* 8	B_LROUND */
	"\\(rt",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(ti",	/* 11	B_INTEGRAL */
};
char **b_top = B_top;

/* Centre only applies to B_LCURLY and B_RCURLY */
char *b_centre[] = {
	"\\(lk",	/* 0	B_LCURLY */
	"\\(rk",	/* 1	B_RCURLY */
};

/*
 *	Table of characters to use for the long vertical bits.
 *	Necessitated by the Laserjet's varying needs.
 */
static char *B_riser[] = {
	"\\(bv",	/* 0	B_LCURLY */
	"\\(bv",	/* 1	B_RCURLY */
	"\\(bv",	/* 2	B_LFLOOR */
	"\\(bv",	/* 3	B_RFLOOR */
	"\\(bv",	/* 4	B_LCEILING */
	"\\(bv",	/* 5	B_RCEILING */
	"\\(bv",	/* 6	B_LSQUARE */
	"\\(bv",	/* 7	B_RSQUARE */
	"\\(bv",	/* 8	B_LROUND */
	"\\(bv",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(bv",	/* 11	B_INTEGRAL */
};
static char *J_riser[] = {
	"\\(bv",	/* 0	B_LCURLY */
	"\\(bv",	/* 1	B_RCURLY */
	"\\(tv",	/* 2	B_LFLOOR */
	"\\(tv",	/* 3	B_RFLOOR */
	"\\(tv",	/* 4	B_LCEILING */
	"\\(tv",	/* 5	B_RCEILING */
	"\\(tv",	/* 6	B_LSQUARE */
	"\\(tv",	/* 7	B_RSQUARE */
	"\\(bv",	/* 8	B_LROUND */
	"\\(bv",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(bv",	/* 11	B_INTEGRAL */
};
char **b_riser = B_riser;

static char *B_bottom[] = {
	"\\(lb",	/* 0	B_LCURLY */
	"\\(rb",	/* 1	B_RCURLY */
	"\\(lf",	/* 2	B_LFLOOR */
	"\\(rf",	/* 3	B_RFLOOR */
	"\\(bv",	/* 4	B_LCEILING */
	"\\(bv",	/* 5	B_RCEILING */
	"\\(lf",	/* 6	B_LSQUARE */
	"\\(rf",	/* 7	B_RSQUARE */
	"\\(lb",	/* 8	B_LROUND */
	"\\(rb",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(bi",	/* 11	B_INTEGRAL */
};
static char *J_bottom[] = {
	"\\(lb",	/* 0	B_LCURLY */
	"\\(rb",	/* 1	B_RCURLY */
	"\\(lf",	/* 2	B_LFLOOR */
	"\\(rf",	/* 3	B_RFLOOR */
	"\\(tv",	/* 4	B_LCEILING */
	"\\(tv",	/* 5	B_RCEILING */
	"\\(lf",	/* 6	B_LSQUARE */
	"\\(rf",	/* 7	B_RSQUARE */
	"\\(lb",	/* 8	B_LROUND */
	"\\(rb",	/* 9	B_RROUND */
	"\\(bv",	/* 10	B_BAR */
	"\\(bi",	/* 11	B_INTEGRAL */
};
char **b_bottom = B_bottom;

/* pile.c: */

float	Pilegap	= 0.4;		/* gap between pile elems */
float	Pilebase = 0.5;		/* shift base of even # of piled elems */

/* shift.c: */

float	Subbase	= 0.2;		/* subscript base belowe main base */
float	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 */

/* setup routines */

jetJsetup()
{
	/* Set up the world for a LaserJet with the "J" font cartridge */

	/* First the bracket pieces */
	b_top = J_top;
	b_riser = J_riser;
	b_bottom = J_bottom;

	/* then the summation symbol */
	Sum = jetJSum;
}