release: 1.3.73

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

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index 579e555585d1b3d0aa8f82b1c2a816a15412cf05..a759cc0e85df18468c3248590ccbd5ec04d65f73 100644 (file)
--- a/mf/feta-klef.mf
+++ b/mf/feta-klef.mf
@@ -76,14 +76,14 @@ def draw_c_clef (expr reduction) =
 
 fet_beginchar ("C clef", "C", "altoclef")
        if test = 1:
-               draw_staff (-2,2);
+               draw_staff (-2,2, 0.0);
        fi;
        draw_c_clef (1.0);
 fet_endchar;
 
 fet_beginchar ("C clef", "C_change", "caltoclef")
        if test = 1:
-               draw_staff (-2,2);
+               draw_staff (-2,2, 0.0);
        fi;
        draw_c_clef (.8);
 fet_endchar;
@@ -108,7 +108,7 @@ def draw_bass_clef(expr exact_center, reduction) =
        set_char_box(left_space# +
                - xpart exact_center,
                right_space# +
-               xpart exact_center + ball_to_right#, 
+               xpart exact_center + ball_to_right# + 7/12 reduced_il#, 
                - ypart exact_center + 2.5 reduced_il#, 
                ypart exact_center +reduced_il#);
 
@@ -156,7 +156,7 @@ enddef;
 
 fet_beginchar("F clef ", "F", "bassclef")
        if test = 1:
-               draw_staff(-3,1);
+               draw_staff(-3,1, 0.0);
        fi;
        draw_bass_clef((.5 staff_space#, 0), 1.0);
 fet_endchar;
@@ -300,7 +300,7 @@ enddef;
 
 fet_beginchar("G clef", "G", "trebleclef")
        if test = 1:
-               draw_staff(-1,3);
+               draw_staff(-1,3, 0.0);
        fi;
        draw_gclef((1.7 staff_space#,0), 1.0);
 fet_endchar;