From 2ffdb375f96a2ba33fea05ef14a0e6b1770611bf Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Sat, 26 May 2007 10:24:38 +0200 Subject: [PATCH] Simplify slash in `neomensural_timesig'. --- mf/parmesan-timesig.mf | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/mf/parmesan-timesig.mf b/mf/parmesan-timesig.mf index 0b6098a793..68036229a9 100644 --- a/mf/parmesan-timesig.mf +++ b/mf/parmesan-timesig.mf @@ -249,21 +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_block ((0, - -d + neomensural_Cthickness / 2), - (neomensural_Cthickness, - h - neomensural_Cthickness / 2)); + 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; -- 2.39.5