X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-klef.mf;h=a759cc0e85df18468c3248590ccbd5ec04d65f73;hb=9661ba1fb275f3e14f8a69f2cee2f02a2f893e48;hp=579e555585d1b3d0aa8f82b1c2a816a15412cf05;hpb=fc828203ddce7202576ad5629195f8161842e076;p=lilypond.git

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index 579e555585..a759cc0e85 100644
--- 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;