%
% 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");
.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;