%
% 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");
x6 = x4;
y5 = y6 = y2 - 2 mensural_Cthickness;
- pickup pencircle scaled round;
-
fill bot z1{right}
.. rt z1{up}
-- rt z5{up}
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;
.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;