Merge branch 'master' of git://git.sv.gnu.org/lilypond

[lilypond.git] / mf / parmesan-timesig.mf

diff --git a/mf/parmesan-timesig.mf b/mf/parmesan-timesig.mf
index 307811a402e38c7e9dc301f24d8a908ab157df46..0b6098a793ad8c754733efd2eaa2bc4254637d36 100644 (file)
--- a/mf/parmesan-timesig.mf
+++ b/mf/parmesan-timesig.mf
@@ -53,8 +53,6 @@ def draw_nail (expr bottom_left, top_right) =
        x6 = x4;
        y5 = y6 = y2 - 2 mensural_Cthickness;
 
-       pickup pencircle scaled round;
-
        fill bot z1{right}
             .. rt z1{up}
             -- rt z5{up}
@@ -84,6 +82,8 @@ def mensural_timesig (expr verbose_name, internal_name,
                        if (full_circle or dotted):
                                draw_nail ((-mensural_Cthickness / 2, -d),
                                           (mensural_Cthickness / 2, h));
+                       elseif reverse_circle:
+                               draw_nail ((0, -d), (mensural_Cthickness, h));
                        else:
                                draw_nail ((-mensural_Cthickness, -d), (0, h));
                        fi;
@@ -254,6 +254,11 @@ def neomensural_timesig (expr verbose_name, internal_name,
                                             -d + neomensural_Cthickness / 2),
                                            (neomensural_Cthickness / 2,
                                             h - neomensural_Cthickness / 2));
+                       elseif reverse_circle:
+                               draw_block ((0,
+                                            -d + neomensural_Cthickness / 2),
+                                           (neomensural_Cthickness,
+                                            h - neomensural_Cthickness / 2));
                        else:
                                draw_block ((-neomensural_Cthickness,
                                             -d + neomensural_Cthickness / 2),