mf/dyn10.mf

   1 % dyn10.mf
   2 % from cmbxti10.mf
   3 %
   4 % music dynamics font
   5 %
   6 % 16pt staff: \font\dynfont=dyn10 scaled \magstep1
   7 % 20pt staff: \font\dynfont=dyn10 scaled \magstep2
   8
   9 % Computer Modern Bold Extended Text Italic 10 point
  10 % if unknown cmbase: input cmbase fi
  11
  12 % font_identifier:="CMBXTI"; font_size 10pt#;
  13
  14 input cmbase;
  15 font_identifier:="DYN"; font_size 10pt#;
  16
  17 u#:=21.2/36pt#;      % unit width
  18 width_adj#:=11/36pt#;    % width adjustment for certain characters
  19 serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
  20 cap_serif_fit#:=7/36pt#;  % extra sidebar near uppercase serifs
  21 letter_fit#:=11/36pt#;    % extra space added to all sidebars
  22
  23 body_height#:=270/36pt#;  % height of tallest characters
  24 asc_height#:=250/36pt#;    % height of lowercase ascenders
  25 cap_height#:=247/36pt#;    % height of caps
  26 fig_height#:=232/36pt#;    % height of numerals
  27 x_height#:=160/36pt#;    % height of lowercase without ascenders
  28 math_axis#:=90/36pt#;    % axis of symmetry for math symbols
  29 bar_height#:=85/36pt#;    % height of crossbar in lowercase e
  30 comma_depth#:=70/36pt#;    % depth of comma below baseline
  31 desc_depth#:=70/36pt#;    % depth of lowercase descenders
  32
  33 crisp#:=13/36pt#;    % diameter of serif corners
  34 tiny#:=13/36pt#;    % diameter of rounded corners
  35 fine#:=10/36pt#;    % diameter of sharply rounded corners
  36 thin_join#:=10/36pt#;    % width of extrafine details
  37 hair#:=20/36pt#;    % lowercase hairline breadth
  38 stem#:=38/36pt#;    % lowercase stem breadth
  39 curve#:=43/36pt#;    % lowercase curve breadth
  40 ess#:=35/36pt#;      % breadth in middle of lowercase s
  41 flare#:=42/36pt#;    % diameter of bulbs or breadth of terminals
  42 dot_size#:=53/36pt#;    % diameter of dots
  43 cap_hair#:=22/36pt#;    % uppercase hairline breadth
  44 cap_stem#:=49/36pt#;    % uppercase stem breadth
  45 cap_curve#:=52/36pt#;    % uppercase curve breadth
  46 cap_ess#:=50/36pt#;    % breadth in middle of uppercase s
  47 rule_thickness#:=.6pt#;    % thickness of lines in math symbols
  48
  49 dish#:=1/36pt#;      % amount erased at top or bottom of serifs
  50 bracket#:=10/36pt#;    % vertical distance from serif base to tangent
  51 jut#:=27/36pt#;      % protrusion of lowercase serifs
  52 cap_jut#:=39/36pt#;    % protrusion of uppercase serifs
  53 beak_jut#:=10/36pt#;    % horizontal protrusion of beak serifs
  54 beak#:=70/36pt#;    % vertical protrusion of beak serifs
  55 vair#:=13/36pt#;    % vertical diameter of hairlines
  56 notch_cut#:=10pt#;    % maximum breadth above or below notches
  57 bar#:=17/36pt#;      % lowercase bar thickness
  58 slab#:=17/36pt#;    % serif and arm thickness
  59 cap_bar#:=17/36pt#;    % uppercase bar thickness
  60 cap_band#:=17/36pt#;    % uppercase thickness above/below lobes
  61 cap_notch_cut#:=10pt#;    % max breadth above/below uppercase notches
  62 serif_drop#:=3/36pt#;    % vertical drop of sloped serifs
  63 stem_corr#:=2/36pt#;    % for small refinements of stem breadth
  64 vair_corr#:=1.5/36pt#;    % for small refinements of hairline height
  65 apex_corr#:=0pt#;    % extra width at diagonal junctions
  66
  67 o#:=6/36pt#;      % amount of overshoot for curves
  68 apex_o#:=6/36pt#;    % amount of overshoot for diagonal junctions
  69
  70 slant:=.25;      % tilt ratio $(\Delta x/\Delta y)$
  71 fudge:=1;      % factor applied to weights of heavy characters
  72 math_spread:=.5;    % extra openness of math symbols
  73 superness:=8/11;    % parameter for superellipses
  74 superpull:=1/8;      % extra openness inside bowls
  75 beak_darkness:=.4;    % fraction of triangle inside beak serifs
  76 ligs:=2;      % level of ligatures to be included
  77
  78 square_dots:=false;    % should dots be square?
  79 hefty:=false;      % should we try hard not to be overweight?
  80 serifs:=true;      % should serifs and bulbs be attached?
  81 monospace:=false;    % should all characters have the same width?
  82 variant_g:=true;    % should an italic-style g be used?
  83 low_asterisk:=false;    % should the asterisk be centered at the axis?
  84 math_fitting:=false;    % should math-mode spacing be used?
  85
  86 % generate textit      % switch to the driver file
  87
  88 % mode_setup; font_setup;
  89
  90 % "f" obviously has a _lot_ bigger slant than "p" (see Wanske p.239)
  91 % however; perhaps we need two f symbols:
  92 %  - a super-slanted one used in "f" "mf" "sfz" "sf", and
  93 %  - a more normal-slanted in "ff" "fff" "fp" "fp" (see Wanske p.241)
  94 %
  95 % looking at professionally typeset music reveals that typesetters
  96 % are somewhat unsure about slanting in "mf", "fp", "sfz"
  97
  98 % "f" and "p" (in any combination) are a lot (factor two) fatter than
  99 % "s", "m", and "z".  sometimes the "m" and "z" are a bit fatter than
 100 % "s".
 101
 102 slant:=.68;      % tilt ratio $(\Delta x/\Delta y)$
 103 crisp#:=19/36pt#;    % diameter of serif corners
 104 tiny#:=19/36pt#;    % diameter of rounded corners
 105 fine#:=20/36pt#;    % diameter of sharply rounded corners
 106 thin_join#:=20/36pt#;    % width of extrafine details
 107 stem#:=72/36pt#;    % lowercase stem breadth
 108 %curve#:=64/36pt#;    % lowercase curve breadth
 109 flare#:=52/36pt#;    % diameter of bulbs or breadth of terminals
 110
 111 %  mode_setup; font_setup;
 112 mode_setup;
 113 font_setup;
 114
 115 input autometric;
 116 fet_beginfont("dyn", 10);
 117
 118 num=-1;
 119 input ital-f;
 120
 121 slant:=.38;      % tilt ratio $(\Delta x/\Delta y)$
 122 stem#:=58/36pt#;    % lowercase stem breadth
 123 font_setup;
 124
 125 input ital-f;
 126 stem#:=54/36pt#;    % lowercase stem breadth
 127 hair#:=12/36pt#;    % lowercase hairline breadth
 128 vair#:=7/36pt#;    % vertical diameter of hairlines
 129
 130 % mode_setup; font_setup;
 131 font_setup;
 132
 133 input ital-p;
 134
 135 slant:=.28;      % tilt ratio $(\Delta x/\Delta y)$
 136 stem#:=26/36pt#;    % lowercase stem breadth
 137 ess#:=24/36pt#;      % breadth in middle of lowercase s
 138 hair#:=9/36pt#;    % lowercase hairline breadth
 139 vair#:=6/36pt#;    % vertical diameter of hairlines
 140 flare#:=32/36pt#;    % diameter of bulbs or breadth of terminals
 141
 142 crisp#:=13/36pt#;    % diameter of serif corners
 143 tiny#:=13/36pt#;    % diameter of rounded corners
 144 fine#:=10/36pt#;    % diameter of sharply rounded corners
 145 thin_join#:=10/36pt#;    % width of extrafine details
 146 % hair#:=20/36pt#;    % lowercase hairline breadth
 147 % stem#:=38/36pt#;    % lowercase stem breadth
 148 curve#:=43/36pt#;    % lowercase curve breadth
 149 % flare#:=42/36pt#;    % diameter of bulbs or breadth of terminals
 150 % ess#:=35/36pt#;      % breadth in middle of lowercase s
 151 % vair#:=13/36pt#;    % vertical diameter of hairlines
 152
 153 % mode_setup; font_setup;
 154 font_setup;
 155
 156 input ital-m;
 157 input ital-r;
 158 input ital-s;
 159 input ital-z;
 160
 161 font_slant slant; font_x_height x_height#;
 162
 163 fet_endfont("dyn");
 164 end.