X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=32a55df0e2fd9c4a808f36e71f029c80579a8362;hb=1f8f8075de6d90783386aea28af67755ed57da16;hp=ba5a800005c6853338f1a1cd6d30953281685892;hpb=5bf9ddc34e147ee0d7790243f19f84cee044f29b;p=lilypond.git diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf index ba5a800005..32a55df0e2 100644 --- a/mf/parmesan-flags.mf +++ b/mf/parmesan-flags.mf @@ -3,7 +3,7 @@ % % source file of LilyPond's pretty-but-neat music font % -% (c) 2001--2006 Juergen Reuter +% (c) 2001--2009 Juergen Reuter % fet_begingroup ("flags"); @@ -32,17 +32,16 @@ dir_down := -1; def draw_mensural_outermost_flare (expr staffline_adjustment, d_) = define_pixels (linethickness, staff_space); - save ellipse, pat; + save ellipse, pat, T; path ellipse, pat; + transform T; - pickup pencircle xscaled 1.00 linethickness - yscaled 0.22 staff_space - rotated -35; + T := identity xscaled 1.00 linethickness + yscaled 0.22 staff_space + rotated -35; + pickup pencircle transformed T; + ellipse := fullcircle transformed T; - ellipse := fullcircle xscaled 1.00 linethickness - yscaled 0.22 staff_space - rotated -35; - z11 = (+0.00 staff_space, -0.00 staff_space); z12 = (+0.15 staff_space, -0.00 staff_space); @@ -87,16 +86,15 @@ enddef; def draw_mensural_inner_flare (expr il_shift, idx, d_) = define_pixels (linethickness, staff_space); - save ellipse, pat; + save ellipse, pat, T; path ellipse, pat; + transform T; - pickup pencircle xscaled 1.00 linethickness - yscaled 0.22 staff_space - rotated -35; - - ellipse := fullcircle xscaled 1.00 linethickness - yscaled 0.22 staff_space - rotated -35; + T := identity xscaled 1.00 linethickness + yscaled 0.22 staff_space + rotated -35; + pickup pencircle transformed T; + ellipse := fullcircle transformed T; save i; numeric i[];