X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-timesig.mf;h=538016d9eacdb9005f9b0552039c3e1df82cdf71;hb=f68991986ca3298af5275c7db043ed4b075d45d5;hp=307811a402e38c7e9dc301f24d8a908ab157df46;hpb=b9bc91e33a4c786d952012a98c771a0427c5482e;p=lilypond.git diff --git a/mf/parmesan-timesig.mf b/mf/parmesan-timesig.mf index 307811a402..538016d9ea 100644 --- a/mf/parmesan-timesig.mf +++ b/mf/parmesan-timesig.mf @@ -3,9 +3,9 @@ % % source file of LilyPond's pretty-but-neat music font % -% (c) 1998--2006 Mats Bengtsson , +% (c) 1998--2007 Mats Bengtsson , % Christian Mondrup -% (c) 2002--2006 Juergen Reuter +% (c) 2002--2007 Juergen Reuter % fet_begingroup ("timesig"); @@ -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; @@ -249,16 +249,20 @@ def neomensural_timesig (expr verbose_name, internal_name, .5 (neomensural_Cdiameter# + neomensural_Cthickness#)); if slashed: + pickup penrazor scaled neomensural_Cthickness; + + save t; + t := neomensural_Cthickness / 2; + if (full_circle or dotted): - draw_block ((-neomensural_Cthickness / 2, - -d + neomensural_Cthickness / 2), - (neomensural_Cthickness / 2, - h - neomensural_Cthickness / 2)); + draw (0, -d + t) + -- (0, h - t); + elseif reverse_circle: + draw (t, -d + t) + -- (t, h - t); else: - draw_block ((-neomensural_Cthickness, - -d + neomensural_Cthickness / 2), - (0, - h - neomensural_Cthickness / 2)); + draw (-t, -d + t) + -- (-t, h - t); fi; fi;