X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=41d3fa922fcd8c538e02337c3cc200aa7cd68989;hb=9e781b7dc83b60a543ce218aa1a5f139f74c760f;hp=737a39b65fb9865c29d5047a2181e7b77594b5e9;hpb=d4ba37c298813e0f7008ef8388e126c34d8f8dd3;p=lilypond.git

diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf
index 737a39b65f..41d3fa922f 100644
--- a/mf/parmesan-flags.mf
+++ b/mf/parmesan-flags.mf
@@ -1,10 +1,20 @@
-% -%-Fundamental-%- -*-Metafont-*-
-% parmesan-flags.mf -- implement ancient flags
-% 
-% source file of LilyPond's pretty-but-neat music font
-% 
-% (c) 2001--2007 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--2014 Juergen Reuter <reuter@ipd.uka.de>
 % 
+% The LilyPond font 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, or under the SIL Open Font License.
+%
+% 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");
 
@@ -30,56 +40,39 @@ dir_down := -1;
 %
 
 def draw_mensural_outermost_flare (expr staffline_adjustment, d_) =
-	define_pixels (linethickness, staff_space);
-
-	save ellipse, pat, T;
-	path ellipse, pat;
-	transform T;
-
-	T := identity xscaled 1.00 linethickness
-		      yscaled 0.22 staff_space
-		      rotated -35;
-	pickup pencircle transformed T;
-	ellipse := fullcircle transformed T;	
-
-	z11 = (+0.00 staff_space, -0.00 staff_space);
-	z12 = (+0.15 staff_space, -0.00 staff_space);
+    save flag_end, flag_right;
 
 	if staffline_adjustment = between_staff_lines:
-		z13 = (+0.45 staff_space, -0.35 staff_space);
-		z14 = (+0.45 staff_space, -0.85 staff_space);
-		z15 = (+0.00 staff_space, -2.00 staff_space);
+		flag_end := 1.9;
+		flag_right := 0.6;
 	elseif staffline_adjustment = on_staff_line:
-		z13 = (+0.20 staff_space, -0.05 staff_space);
-		z14 = (+0.20 staff_space, -1.15 staff_space);
-		z15 = (+0.00 staff_space, -1.40 staff_space);
+		flag_end := 1.4;
+		flag_right := 0.5;
 	else: % staffline_adjustment = anywhere
-		z13 = (+0.33 staff_space, -0.20 staff_space);
-		z14 = (+0.33 staff_space, -1.00 staff_space);
-		z15 = (+0.00 staff_space, -1.70 staff_space);
+		flag_end := 1.7;
+		flag_right := 0.6;
 	fi;
 
-	pat := z13{z13 - z12}
-	       .. {z15 - z14}z14;
-
-	fill get_subpath (ellipse, z11 - z12, z12 - z11, z11)
-	     -- get_subpoint (ellipse, z12 - z11, z12)
-	     -- get_subpoint (ellipse, z13 - z12, z12)
-	     -- get_subpoint (ellipse, direction 0 of pat, z13)
-		  {direction 0 of pat}
-	     .. {direction 1 of pat}
-		  get_subpoint (ellipse, direction 1 of pat, z14)
-	     -- get_subpath (ellipse, z15 - z14, z14 - z15, z15)
-	     -- get_subpoint (ellipse, -direction 1 of pat, z14)
-		  {-direction 1 of pat}
-	     .. {-direction 0 of pat}
-		  get_subpoint (ellipse, -direction 0 of pat, z13)
-	     -- get_subpath (ellipse, z12 - z13, z11 - z12, z12)
-	     -- cycle;
+	penpos1 (0.25 staff_space, 90);
+	penpos2 (0.2 staff_space, 0);
+	penpos3 (0.1 staff_space, -35);
+	z1r = (0, 0);
+	z2r = (flag_right * staff_space, -0.4 staff_space);
+	z3l = (0, -1.0 * flag_end * staff_space);
+	fill z1l
+	     .. tension 2.0
+	     .. z2l
+	     .. tension 3.0
+	     .. { dir -125 }z3l{ dir -125 }
+	     .. { dir 55 }z3r{dir 55 }
+	     .. tension 3.0
+	     .. z2r
+	     .. tension 2.0
+	     .. z1r
+	     -- cycle ;
+	draw_square_block ((-0.5 stemthickness_rounded, 0),
+			   (0, -0.25 staff_space));
 
-	if d_ = dir_up:
-		labels (11, 12, 13, 14, 15);
-	fi;
 enddef;
 
 
@@ -174,7 +167,8 @@ def draw_mensural_flag (expr staffline_adjustment, flares, d_) =
 
 	if d_ = dir_down:
 		currentpicture := currentpicture xscaled -1
-						 yscaled -1;
+						 yscaled -1
+						 shifted (-0.5 stemthickness_rounded, 0);
 	fi;
 enddef;