% The files paramsa.mf and paramsb.mf contain most of the configurable
% parameters of the GOOE fonts. The parameters in paramsa.mf are special
% to GOOE. The parameters in paramsb.mf are general parameters of the
% Computer Modern Roman Typefaces. They control the appearance of the
% numerals on the stones.
%
% Consult ``Introduction to the Parameters'' from Computer Modern
% Typefaces, by Donald Knuth, for more information.
%
%
% Begin with the defaults from cmss10:
u#:=20/36pt#; % unit width
width_adj#:=15/36pt#; % width adjustment for certain characters
serif_fit#:=-7/36pt#; % extra sidebar near lowercase serifs
cap_serif_fit#:=-10/36pt#; % extra sidebar near uppercase serifs
letter_fit#:=0pt#; % extra space added to all sidebars
body_height#:=270/36pt#; % height of tallest characters
asc_height#:=250/36pt#; % height of lowercase ascenders
cap_height#:=250/36pt#; % height of caps
fig_height#:=236/36pt#; % height of numerals
x_height#:=160/36pt#; % height of lowercase without ascenders
math_axis#:=90/36pt#; % axis of symmetry for math symbols
bar_height#:=79/36pt#; % height of crossbar in lowercase e
comma_depth#:=45/36pt#; % depth of comma below baseline
desc_depth#:=70/36pt#; % depth of lowercase descenders
crisp#:=0pt#; % diameter of serif corners
tiny#:=0pt#; % diameter of rounded corners
fine#:=0pt#; % diameter of sharply rounded corners
thin_join#:=17/36pt#; % width of extrafine details
hair#:=28/36pt#; % lowercase hairline breadth
stem#:=28/36pt#; % lowercase stem breadth
curve#:=28/36pt#; % lowercase curve breadth
ess#:=28/36pt#; % breadth in middle of lowercase s
flare#:=25/36pt#; % diameter of bulbs or breadth of terminals
dot_size#:=30/36pt#; % diameter of dots
cap_hair#:=28/36pt#; % uppercase hairline breadth
cap_stem#:=32/36pt#; % uppercase stem breadth
cap_curve#:=32/36pt#; % uppercase curve breadth
cap_ess#:=32/36pt#; % breadth in middle of uppercase s
rule_thickness#:=.4pt#; % thickness of lines in math symbols
dish#:=0pt#; % amount erased at top or bottom of serifs
bracket#:=0pt#; % vertical distance from serif base to tangent
jut#:=0pt#; % protrusion of lowercase serifs
cap_jut#:=0pt#; % protrusion of uppercase serifs
beak_jut#:=0pt#; % horizontal protrusion of beak serifs
beak#:=.5/36pt#; % vertical protrusion of beak serifs
vair#:=22/36pt#; % vertical diameter of hairlines
notch_cut#:=18/36pt#; % maximum breadth above or below notches
bar#:=21/36pt#; % lowercase bar thickness
slab#:=23/36pt#; % serif and arm thickness
cap_bar#:=22/36pt#; % uppercase bar thickness
cap_band#:=20/36pt#; % uppercase thickness above/below lobes
cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
serif_drop#:=2/36pt#; % vertical drop of sloped serifs
stem_corr#:=1/36pt#; % for small refinements of stem breadth
vair_corr#:=1/36pt#; % for small refinements of hairline height
apex_corr#:=5/36pt#; % extra width at diagonal junctions
o#:=8/36pt#; % amount of overshoot for curves
apex_o#:=0pt#; % amount of overshoot for diagonal junctions
slant:=0; % tilt ratio $(\Delta x/\Delta y)$
fudge:=.96; % factor applied to weights of heavy characters
math_spread:=0; % extra openness of math symbols
superness:=1/sqrt 2; % parameter for superellipses
superpull:=1/20; % extra openness inside bowls
beak_darkness:=0; % fraction of triangle inside beak serifs
ligs:=2; % level of ligatures to be included
square_dots:=true; % should dots be square?
hefty:=true; % should we try hard not to be overweight?
serifs:=false; % should serifs and bulbs be attached?
monospace:=false; % should all characters have the same width?
variant_g:=false; % should an italic-style g be used?
low_asterisk:=false; % should the asterisk be centered at the axis?
math_fitting:=false; % should math-mode spacing be used?
%%%
%
% Parameter modifications for the double-digit stones
u#:=15/36pt#; % unit width
fig_height#:=210/36pt#; % height of numerals
notch_cut#:=96/36pt#; % increased to fix 4's
fine#:=17/36pt#; % fattens the thinnest stems.
font_setup;
input romandg;
picture smone; smone=one;
picture smtwo; smtwo=two;
picture smthree; smthree=three;
picture smfour; smfour=four;
picture smfive; smfive=five;
picture smsix; smsix=six;
picture smseven; smseven=seven;
picture smeight; smeight=eight;
picture smnine; smnine=nine;
picture smzero; smzero=zero;
%%%
%
% Parameter modification for the three-digit stones
u#:=14/36pt#;
fig_height#:=190/36pt#;
font_setup;
input romandg;
picture smmone; smmone=one;
picture smmtwo; smmtwo=two;
picture smmthree; smmthree=three;
picture smmfour; smmfour=four;
picture smmfive; smmfive=five;
picture smmsix; smmsix=six;
picture smmseven; smmseven=seven;
picture smmeight; smmeight=eight;
picture smmnine; smmnine=nine;
picture smmzero; smmzero=zero;
%%%
%
% Parameter modifications for the single-digit stones
u#:=23/36pt#;
fig_height#:=220/36pt#;
font_setup;
input romandg;