if unknown cmbase: input cmbase fi
input ygotbase;   % -sl   15-3-1991

font_identifier:="ygoth"; font_size 10pt#;

u#:=20/36pt#;    % unit width
width_adj#:=0pt#;    % width adjustment for certain characters
serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
cap_serif_fit#:=5/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#:=246/36pt#;    % height of caps
fig_height#:=232/36pt#;    % height of numerals
x_height#:=170/36pt#;  % height of lowercase without ascenders
%x_height#:=155/36pt#;  % height of lowercase without ascenders
math_axis#:=90/36pt#;  % axis of symmetry for math symbols
bar_height#:=87/36pt#;   % height of crossbar in lowercase e
comma_depth#:=70/36pt#;    % depth of comma below baseline
desc_depth#:=70/36pt#;   % depth of lowercase descenders

crisp#:=0pt#;    % diameter of serif corners
tiny#:=8/36pt#;      % diameter of rounded corners
fine#:=7/36pt#;      % diameter of sharply rounded corners
thin_join#:=7/36pt#;    % width of extrafine details
hair#:=8/36pt#;      % lowercase hairline breadth
%hair#:=9/36pt#;      % lowercase hairline breadth
%stem#:=25/36pt#;    % lowercase stem breadth
stem#:=30/36pt#;    % lowercase stem breadth
curve#:=30/36pt#;    % lowercase curve breadth
ess#:=27/36pt#;      % breadth in middle of lowercase s
flare#:=33/36pt#;    % diameter of bulbs or breadth of terminals
dot_size#:=38/36pt#;    % diameter of dots
%cap_hair#:=11/36pt#;    % uppercase hairline breadth
cap_hair#:=8/36pt#;
cap_amount#:=8/36pt#;
%cap_stem#:=32/36pt#;    % uppercase stem breadth
cap_stem#:=36/36pt#;    
cap_curve#:=37/36pt#;  % uppercase curve breadth
cap_ess#:=35/36pt#;    % breadth in middle of uppercase s
rule_thickness#:=.4pt#;    % thickness of lines in math symbols

dish#:=1/36pt#;      % amount erased at top or bottom of serifs
bracket#:=20/36pt#;    % vertical distance from serif base to tangent
jut#:=28/36pt#;      % protrusion of lowercase serifs
cap_jut#:=37/36pt#;    % protrusion of uppercase serifs
beak_jut#:=10/36pt#;    % horizontal protrusion of beak serifs
beak#:=70/36pt#;    % vertical protrusion of beak serifs
vair#:=8/36pt#;      % vertical diameter of hairlines
notch_cut#:=10pt#;    % maximum breadth above or below notches
bar#:=11/36pt#;      % lowercase bar thickness
slab#:=11/36pt#;    % serif and arm thickness
cap_bar#:=11/36pt#;    % uppercase bar thickness
cap_band#:=11/36pt#;    % uppercase thickness above/below lobes
cap_notch_cut#:=10pt#;   % max breadth above/below uppercase notches
serif_drop#:=4/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#:=0pt#;    % extra width at diagonal junctions

o#:=8/36pt#;   % amount of overshoot for curves
apex_o#:=8/36pt#;    % amount of overshoot for diagonal junctions

slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
fudge:=1;      % factor applied to weights of heavy characters
math_spread:=0;      % extra openness of math symbols
superness:=1/sqrt2;    % parameter for superellipses
superpull:=1/6;      % extra openness inside bowls
beak_darkness:=11/30;  % fraction of triangle inside beak serifs
ligs:=2;      % level of ligatures to be included

square_dots:=false;    % should dots be square?
hefty:=false;    % should we try hard not to be overweight?
serifs:=true;    % 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?

mode_setup;
font_setup;
cap_amount:=8/36pt;
foot:=27/36pt;
num_height:=1.242x_height;
boolean ligature; ligature:=false;


%readfrom("ygothbase");       % -sl   15-3-1991
%readfrom("ygothgen_l");      % -sl   15-3-1991
input ygothgen                % -sl   15-3-1991
%generate ycurrent;     % switch to the driver file%
%generate ygothupper;    % switch to the driver file
generate ygothupp;            % -sl   15-3-1991
%generate ygothlower;
generate ygothlow;            % -sl   15-3-1991
generate ygothlig;
generate ygothnum;
%generate ygothmisc;
generate ygothmis;            % -sl   15-3-1991

font_slant slant; font_x_height x_height#;
font_normal_space 6u#+2letter_fit#;
 font_normal_stretch 3u#; font_normal_shrink 2u#;
 font_quad 18u#+4letter_fit#;
 font_extra_space 2u#;

ligtable oct"140": "s"=:oct"052", "t"=:oct"075", "`"=:oct"137";
ligtable oct"052": "i"=:oct"057";
ligtable "a": "e"=:oct"032";
ligtable "b": "e"=:oct"001", "a"=:oct"000", "o"=:oct"002";
ligtable "c": "h"=:oct"003", "k"=:oct"004", "t"=:oct"005";
ligtable "d": "e"=:oct"007", "a"=:oct"006", "o"=:oct"010";
ligtable "h": "e"=:oct"012", "a"=:oct"011", "o"=:oct"022";
ligtable "i": "j"=:oct"026";
ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015";
 %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
ligtable oct"013": "i"=:oct"016", "l"=:oct"017";
 %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
ligtable "l": "l"=:oct"035";
ligtable "p": "p"=:oct"043", "e"=:oct"024","a"=:oct"023","o"=:oct"025";
ligtable "q": "q"=:oct"044", "z"=:oct"027";
ligtable "s": "s"=:oct"046", "t"=:oct"074", "z"=:oct"031", ":"=:oct"140",
"i" kern -u#;
ligtable "o": "e"=:oct"033";
ligtable oct"046": "i"=:oct"053";
ligtable "t": "z"=:oct"076";
ligtable "v": "e"=:oct"036", "a"=:oct"030", "u"=:oct"037";
ligtable "-": "-"=:oct"173";
ligtable oct"173": "-"=:oct"174";
ligtable "'": "'"=:oct"042";
ligtable oct"042": "a"=:oct"133", "e"=:oct"134", "o"=:oct"135", "u"=:oct"136",
"s"=:oct"031";
end.
