X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-timesig.mf;h=8d0ab9d45cfb2ba9216b9c6deba36cbfecf8135f;hb=150be05ab6c52ed8760d4dc1b05870355ce7b708;hp=0b6098a793ad8c754733efd2eaa2bc4254637d36;hpb=af42a04d7235bfc3cb2cd1a6df92153d8be7867f;p=lilypond.git

diff --git a/mf/parmesan-timesig.mf b/mf/parmesan-timesig.mf
index 0b6098a793..8d0ab9d45c 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 <matsb@s3.kth.se>,
+% (c) 1998--2009 Mats Bengtsson <matsb@s3.kth.se>,
 %		 Christian Mondrup <scancm@biobase.dk>
-% (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2002--2009 Juergen Reuter <reuter@ipd.uka.de>
 % 
 
 fet_begingroup ("timesig");
@@ -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;