X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=a50e9dfb21234b63e39d309c30fa93decd057f2d;hb=39a0f77c7d03ff33ed5942b99c0b8b23cf1ff9d3;hp=ba5a800005c6853338f1a1cd6d30953281685892;hpb=5bf9ddc34e147ee0d7790243f19f84cee044f29b;p=lilypond.git

diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf
index ba5a800005..a50e9dfb21 100644
--- a/mf/parmesan-flags.mf
+++ b/mf/parmesan-flags.mf
@@ -1,10 +1,21 @@
-% -%-Fundamental-%- -*-Metafont-*-
-% parmesan-flags.mf -- implement ancient flags
-% 
-% source file of LilyPond's pretty-but-neat music font
-% 
-% (c) 2001--2006 Juergen Reuter <reuter@ipd.uka.de>
+% Feta (not the Font-En-Tja) music font --  ancient flags
+% This file is part of LilyPond, the GNU music typesetter.
+%
+% Copyright (C) 2001--2010 Juergen Reuter <reuter@ipd.uka.de>
 % 
+%
+% LilyPond is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% LilyPond is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 fet_begingroup ("flags");
 
@@ -32,17 +43,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 +97,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[];