release: 0.1.24

[lilypond.git] / mf / feta-bolletjes.mf

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index d558cf751a409b1f3af49375e560ec4ed08a7d80..c9ffb7ca377dc0c6545f31dc35fd687d525ad6f4 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -6,14 +6,14 @@
 % These examples are inspired by [Wanske], see literature list
 
 
+save black_notehead_width;
+numeric black_notehead_width;
+
 fet_begingroup("balls");
 
 noteheight#:=interline#+ (1 + overdone_heads) *stafflinethickness#;
-
 define_pixels(noteheight);
 
-
-
 def draw_brevis =
        save beamheight, head_width;
        save holeheight, stem_width;
@@ -191,6 +191,7 @@ fet_beginchar("Quart notehead", "2", "quartball")
        a_w:=1.09;
 
        notehead_calc;
+       black_notehead_width# := wd#;
        notehead_draw;
 fet_endchar;
 
@@ -199,3 +200,4 @@ fet_endchar;
 
 fet_endgroup("balls");
 
+define_pixels(black_notehead_width);