mf/parmesan-generic.mf

   1 % -%-Fundamental-%- -*-Metafont-*-
   2 % parmesan-generic.mf -- implement generic stuff: include lots of files,
   3 % but don't set dimensions.
   4 %
   5 % source file of LilyPond's pretty-but-neat music font
   6 %
   7 % (c) 2002--2008 Juergen Reuter <reuter@ipd.uka.de>
   8 %
   9
  10
  11 if test = -1:
  12         mode := smoke;
  13 fi;
  14
  15 mode_setup;
  16
  17 staffsize# := design_size * pt#;
  18
  19 input feta-macros;
  20 input feta-params;
  21
  22 input parmesan-macros;
  23
  24
  25 font_x_height staff_space#;
  26
  27
  28 fet_beginfont ("parmesan", design_size, "parmesanMusic");
  29         if test = 0:
  30                 input parmesan-rests;
  31                 input parmesan-heads;
  32                 input parmesan-clefs;
  33                 input parmesan-custodes
  34                 input parmesan-accidentals;
  35                 input parmesan-flags;
  36                 input parmesan-timesig;
  37                 input parmesan-scripts;
  38                 input parmesan-dots;
  39         else:
  40
  41         fi;
  42 fet_endfont;