]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/parmesan-clefs.mf
Docs-fr: fix committish
[lilypond.git] / mf / parmesan-clefs.mf
index 986839d5aac4938635f943da5f12baf290798e4c..5b6d21f802179c7af9080718195c39d94cea61b8 100644 (file)
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 %
-% (c) 2001--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2001--2007 Juergen Reuter <reuter@ipd.uka.de>
 %
 
 fet_begingroup ("clefs");
@@ -1040,7 +1040,8 @@ def draw_petrucci_f_clef (expr exact_center, reduction) =
        pickup pencircle transformed T;
        ellipse := fullcircle transformed T;
 
-       rt z8 = (xoffs + reduced_il, yoffs - 4 reduced_slt);
+       rt x8 = xoffs + reduced_il;
+       y8 = y3;
        rt z9 = (xoffs + reduced_il, yoffs - 4 reduced_il);
 
        penpos8 (stem_width, 0);