Run sort-lines on .gitignore.

[lilypond.git] / mf / parmesan-flags.mf

diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf
index ba5a800005c6853338f1a1cd6d30953281685892..737a39b65fb9865c29d5047a2181e7b77594b5e9 100644 (file)
--- 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 <reuter@ipd.uka.de>
+% (c) 2001--2007 Juergen Reuter <reuter@ipd.uka.de>
 % 
 
 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[];