% 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;