-
-% -*-Fundamental-*-
-% parmesan-generic.mf -- implement generic stuff: include lots of files,
-% but don't set dims.
+% -%-Fundamental-%- -*-Metafont-*-
+% parmesan-generic.mf -- implement generic stuff: include lots of files,
+% but don't set dimensions.
%
% source file of LilyPond's pretty-but-neat music font
-%
-% (c) 2002--2003 Juergen Reuter <reuter@ipd.uka.de>
-%
+%
+% (c) 2002--2007 Juergen Reuter <reuter@ipd.uka.de>
+%
if test = -1:
mode := smoke;
-fi
+fi;
mode_setup;
-%
+
+staffsize# := design_size * pt#;
input feta-macros;
input feta-params;
-font_x_height staff_space#;
-font_coding_scheme "parmesan music";
+input parmesan-macros;
+
+
+font_x_height staff_space#;
-if test = 0:
- input parmesan-rests;
- input parmesan-heads;
- input parmesan-clefs;
- input parmesan-custodes
- input parmesan-accidentals;
- input parmesan-flags;
- input parmesan-timesig;
- input parmesan-scripts;
-else:
+fet_beginfont ("parmesan", design_size, "parmesanMusic");
+ if test = 0:
+ input parmesan-rests;
+ input parmesan-heads;
+ input parmesan-clefs;
+ input parmesan-custodes
+ input parmesan-accidentals;
+ input parmesan-flags;
+ input parmesan-timesig;
+ input parmesan-scripts;
+ input parmesan-dots;
+ else:
-fi
+ fi;
+fet_endfont;