Improve overlapping in `petrucci f clef'

diff --git a/mf/parmesan-clefs.mf b/mf/parmesan-clefs.mf
index 986839d5aac4938635f943da5f12baf290798e4c..92722121577ae6eae20de2edc470747f6ed82518 100644 (file)
--- a/mf/parmesan-clefs.mf
+++ b/mf/parmesan-clefs.mf
@@ -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);