patch::: 0.1.34: vroeg

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

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index 2175bc1b3acd5e42b4247fe4bd5cd4a254acab56..385f6dffb3361155188f022a33eee5b0b74a2a48 100644 (file)
--- a/mf/feta-klef.mf
+++ b/mf/feta-klef.mf
@@ -33,7 +33,7 @@ def draw_c_clef (expr reduction) =
        xoff=3/4norm+7/2hair;
        penpos1(hair,-90);
        z1l=(xoff+norm+hair,h);
-       penpos2(norm-hair,180);
+       penpos2(norm-3/2hair,180);
        z2l=(w,h/2);
        penpos3(hair,90);
        z3=(((w-xoff)/2)+xoff,2hair);
@@ -60,8 +60,8 @@ def draw_c_clef (expr reduction) =
        penlabels (1,2,3,4,5,6);
 
        % ugh, should be bulb, not flare?
-       draw_flare(z1l,180,90,hair,norm-1/4hair);
-       draw_flare(z7r,180,-90,hair,norm-1/4hair);
+       draw_flare(z1l,180,90,hair,norm-1/2hair);
+       draw_flare(z7r,180,-90,hair,norm-1/2hair);
        enddef;
 
 fet_beginchar ("C clef", "alto", "altoclef")