From: fred Date: Sun, 24 Mar 2002 20:00:41 +0000 (+0000) Subject: lilypond-0.1.24 X-Git-Tag: release/1.5.59~3711 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c61d1921795f8b3113997711e5786c6a06d54cf2;p=lilypond.git lilypond-0.1.24 --- diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf index d558cf751a..c9ffb7ca37 100644 --- 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);