Bugfix: copy aclocal.m4, autogen.sh also if

[lilypond.git] / mf / parmesan-flags.mf

diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf
index 63a5ded432c57c24b6616f5e56a701fab6fcc4b4..5cd48dc78716a565ae2589932622a999212a3155 100644 (file)
--- a/mf/parmesan-flags.mf
+++ b/mf/parmesan-flags.mf
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
+% (c)  2001--2003 Juergen Reuter <reuter@ipd.uka.de>
 % 
 
 fet_begingroup ("flags")
@@ -89,11 +89,15 @@ def draw_mensural_flag (expr staffline_adjustment, flares, direction) =
        fi;
        char_box_adjust = flare_shift+0.5;
        if direction = dir_up:
-               set_char_box(0, 0.60 staff_space#,
-                            (1.00+char_box_adjust)*staff_space#, 0)
+               set_char_box(0,
+                            0.60 staff_space#,
+                            (flares+char_box_adjust)*staff_space#,
+                            0.10 staff_space#)
        else: % direction = dir_down
-               set_char_box(0.60 staff_space#, 0,
-                            (1.00+char_box_adjust)*staff_space#, 0)
+               set_char_box(0.60 staff_space#,
+                            0,
+                            0.10 staff_space#,
+                            (flares+char_box_adjust)*staff_space#)
        fi;
        draw_mensural_outermost_flare (staffline_adjustment)
        for flare_count := 2 step 1 until 4: