mf/feta-generic.mf

   1 %
   2 % feta-generic.mf -- implement generic stuff: include lots of files, but don't
   3 %  set dims.
   4 %
   5 % source file of the Feta (defintively not an abbreviation for Font-En-Tja)
   6 % music font
   7 %
   8 % (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   9 %
  10
  11
  12 if test = -1:
  13         mode := smoke;
  14 fi
  15
  16 staffsize# := design_size * pt#;
  17
  18 mode_setup;
  19
  20 input feta-macros;
  21
  22 input feta-params;
  23
  24 font_x_height staff_space#;
  25
  26 %% this is a fallback so we can run the font without including feta-bolletjes.
  27 black_notehead_width# := 1.0 staff_space#;
  28
  29
  30 fet_beginfont ("feta", design_size, "fetaMusic");
  31
  32 if test = 0:
  33         input feta-eindelijk;
  34         input feta-toevallig;
  35         input feta-arrow;
  36         input feta-puntje;
  37         input feta-bolletjes;
  38         input feta-schrift;
  39         input feta-banier;
  40         input feta-klef;
  41         input feta-timesig;
  42         input feta-pendaal;
  43         input feta-haak;
  44         input feta-accordion;
  45 else:
  46         input feta-test-generic.mf;
  47 fi
  48
  49 autometric_parameter ("staffsize", staffsize#);
  50 autometric_parameter ("stafflinethickness", stafflinethickness#);
  51 autometric_parameter ("staff_space", staff_space#);
  52 autometric_parameter ("linethickness", linethickness#);
  53 autometric_parameter ("black_notehead_width", black_notehead_width#);
  54 autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
  55 autometric_parameter ("blot_diameter", blot_diameter#);
  56
  57 fet_endfont;