X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-generic.mf;h=8b7080a6fd779d33b82cd1cad3552e9bba95d55a;hb=712e575fb12d02d58e04553a3474afb9f6d2391b;hp=365f26c54cecbca0e6d55e3756e464dbfd5a0516;hpb=dcb8f596283022b8fdc4385c5f9f72d48c6b46fa;p=lilypond.git

diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf
index 365f26c54c..8b7080a6fd 100644
--- a/mf/feta-generic.mf
+++ b/mf/feta-generic.mf
@@ -1,49 +1,66 @@
-% 
-% feta-generic.mf --  implement generic stuff: include lots of files, but don't
-%  set dims.
+% Feta (not the Font-En-Tja) music font --  generic stuff: include lots of files, but don't
+% This file is part of LilyPond, the GNU music typesetter.
 %
-% source file of the Feta (defintively not an abbreviation for Font-En-Tja)
-% music font
-% 
-% (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+% Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 % 
+%
+% LilyPond is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% LilyPond is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 
 if test = -1:
 	mode := smoke;
 fi
 
+staffsize# := design_size * pt#;
+
 mode_setup;
-%
 
 input feta-macros;
 
-make_pen_stack;
-make_picture_stack;
 input feta-params;
 
-font_x_height  staff_space#;
+font_x_height staff_space#;
+
+%% this is a fallback so we can run the font without including feta-noteheads.
+black_notehead_width# := 1.0 staff_space#;
+
+
+fet_beginfont ("feta", design_size, "fetaMusic");
 
 if test = 0: 
-	input feta-eindelijk;
-	input feta-toevallig;
-	input feta-puntje;
-	input feta-bolletjes;
-	input feta-schrift;
-	input feta-banier;
-	input feta-klef;
-	input feta-timesig;
-	input feta-pendaal;
+	input feta-rests;
+	input feta-accidentals;
+	input feta-arrowheads;
+	input feta-dots;
+	input feta-noteheads;
+	input feta-scripts;
+	input feta-flags;
+	input feta-clefs;
+	input feta-timesignatures;
+	input feta-pedals;
+	input feta-brackettips;
 	input feta-accordion;
 else:
-%	input feta-bolletjes;	
-%	input feta-banier;
-%	input feta-eindelijk;
-%	input feta-klef;
-%	input feta-toevallig;
-	input feta-schrift;
-%	input feta-haak;
-%	input feta-timesig;
-%	input feta-pendaal;
-%	input feta-accordion;
+	input feta-test-generic.mf;
 fi
+
+autometric_parameter ("staffsize", staffsize#);
+autometric_parameter ("stafflinethickness", stafflinethickness#);
+autometric_parameter ("staff_space", staff_space#);
+autometric_parameter ("linethickness", linethickness#);
+autometric_parameter ("black_notehead_width", black_notehead_width#);
+autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
+autometric_parameter ("blot_diameter", blot_diameter#);
+
+fet_endfont;