+% feta-din.mf
+%
+% from cmbxti10.mf
+%
+% feta dynamics
+% too easy now to use this copy from cm, but we might want to do ourselves
+%
+% 16pt staff: \font\dynfont=feta-din10 scaled \magstep1
+% 20pt staff: \font\dynfont=feta-din10 scaled \magstep2
+
+%
+% Computer Modern Bold Extended Text Italic 10 point
+%
+% font_identifier:="CMBXTI"; font_size 10pt#;
+%
+
+input cmbase;
+
+
+%
+% We bluntly multiply by font-size / 10pt#,
+% before we did plain scaling anyway.
+%
+
+M:=design_size/10;
+
+
+u#:=M*21.2/36pt#; % unit width
+width_adj#:=M*11/36pt#; % width adjustment for certain characters
+serif_fit#:=M*0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=M*7/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=M*11/36pt#; % extra space added to all sidebars
+
+body_height#:=M*270/36pt#; % height of tallest characters
+asc_height#:=M*250/36pt#; % height of lowercase ascenders
+cap_height#:=M*247/36pt#; % height of caps
+fig_height#:=M*232/36pt#; % height of numerals
+x_height#:=M*160/36pt#; % height of lowercase without ascenders
+math_axis#:=M*90/36pt#; % axis of symmetry for math symbols
+bar_height#:=M*85/36pt#; % height of crossbar in lowercase e
+comma_depth#:=M*70/36pt#; % depth of comma below baseline
+desc_depth#:=M*70/36pt#; % depth of lowercase descenders
+
+crisp#:=M*13/36pt#; % diameter of serif corners
+tiny#:=M*13/36pt#; % diameter of rounded corners
+fine#:=M*10/36pt#; % diameter of sharply rounded corners
+thin_join#:=M*10/36pt#; % width of extrafine details
+hair#:=M*20/36pt#; % lowercase hairline breadth
+stem#:=M*38/36pt#; % lowercase stem breadth
+curve#:=M*43/36pt#; % lowercase curve breadth
+ess#:=M*35/36pt#; % breadth in middle of lowercase s
+flare#:=M*42/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=M*53/36pt#; % diameter of dots
+cap_hair#:=M*22/36pt#; % uppercase hairline breadth
+cap_stem#:=M*49/36pt#; % uppercase stem breadth
+cap_curve#:=M*52/36pt#; % uppercase curve breadth
+cap_ess#:=M*50/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=M*.6pt#; % thickness of lines in math symbols
+
+dish#:=M*1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=M*10/36pt#; % vertical distance from serif base to tangent
+jut#:=M*27/36pt#; % protrusion of lowercase serifs
+cap_jut#:=M*39/36pt#; % protrusion of uppercase serifs
+beak_jut#:=M*10/36pt#; % horizontal protrusion of beak serifs
+beak#:=M*70/36pt#; % vertical protrusion of beak serifs
+vair#:=M*13/36pt#; % vertical diameter of hairlines
+notch_cut#:=M*10pt#; % maximum breadth above or below notches
+bar#:=M*17/36pt#; % lowercase bar thickness
+slab#:=M*17/36pt#; % serif and arm thickness
+cap_bar#:=M*17/36pt#; % uppercase bar thickness
+cap_band#:=M*17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=M*10pt#; % max breadth above/below uppercase notches
+serif_drop#:=M*3/36pt#; % vertical drop of sloped serifs
+stem_corr#:=M*2/36pt#; % for small refinements of stem breadth
+vair_corr#:=M*1.5/36pt#; % for small refinements of hairline height
+apex_corr#:=M*0pt#; % extra width at diagonal junctions
+
+o#:=M*6/36pt#; % amount of overshoot for curves
+apex_o#:=M*6/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=.25; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % 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:=true; % 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?
+
+
+
+
+% "f" obviously has a _lot_ bigger slant than "p" (see Wanske p.239)
+% however; perhaps we need two f symbols:
+% - a super-slanted one used in "f" "mf" "sfz" "sf", and
+% - a more normal-slanted in "ff" "fff" "fp" "fp" (see Wanske p.241)
+%
+% looking at professionally typeset music reveals that typesetters
+% are somewhat unsure about slanting in "mf", "fp", "sfz"
+
+% "f" and "p" (in any combination) are a lot (factor two) fatter than
+% "s", "m", and "z". sometimes the "m" and "z" are a bit fatter than
+% "s".
+
+slant:=.68; % tilt ratio $(\Delta x/\Delta y)$
+crisp#:=M*19/36pt#; % diameter of serif corners
+tiny#:=M*19/36pt#; % diameter of rounded corners
+fine#:=M*20/36pt#; % diameter of sharply rounded corners
+thin_join#:=M*20/36pt#; % width of extrafine details
+stem#:=M*72/36pt#; % lowercase stem breadth
+flare#:=M*52/36pt#; % diameter of bulbs or breadth of terminals
+
+mode_setup;
+font_setup;
+
+num=-1;
+xbar:=M*u;
+
+save fcode;
+
+fcode = 101;
+input feta-ital-f;
+
+bar#:=M*17/36pt#; % lowercase bar thickness
+slant:=.38; % tilt ratio $(\Delta x/\Delta y)$
+stem#:=M*58/36pt#; % lowercase stem breadth
+font_setup;
+xbar:=M*.4u;
+
+save fcode;
+
+fcode = 102;
+
+input feta-ital-f;
+stem#:=M*54/36pt#; % lowercase stem breadth
+hair#:=M*12/36pt#; % lowercase hairline breadth
+vair#:=M*7/36pt#; % vertical diameter of hairlines
+
+font_setup;
+
+input feta-ital-p;
+
+slant:=.28; % tilt ratio $(\Delta x/\Delta y)$
+stem#:=M*32/36pt#; % lowercase stem breadth
+ess#:=M*28/36pt#; % breadth in middle of lowercase s
+hair#:=M*14/36pt#; % lowercase hairline breadth
+vair#:=M*9/36pt#; % vertical diameter of hairlines
+flare#:=M*36/36pt#; % diameter of bulbs or breadth of terminals
+
+crisp#:=M*13/36pt#; % diameter of serif corners
+tiny#:=M*13/36pt#; % diameter of rounded corners
+fine#:=M*10/36pt#; % diameter of sharply rounded corners
+thin_join#:=M*10/36pt#; % width of extrafine details
+curve#:=M*43/36pt#; % lowercase curve breadth
+
+% Chester, Breitkopf suggest smaller sizes of these other chars,
+% using the x-height as reference point.
+x_height#:=M*135/36pt#; % height of lowercase without ascenders
+
+font_setup;
+
+input feta-ital-m;
+input feta-ital-r;
+input feta-ital-s;
+input feta-ital-z;
+
+font_slant slant;
+font_x_height x_height#;
+font_quad 18u#; % to have a working em unit
+
+%%fet_endfont("feta-din");
+