X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=bb1a5c5cb50a9c83b4663dcc4ad913b51c1d4484;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=bdfd5aac0910c2b0cc975be04ca04de7fcc0baab;hpb=2ef0f6a17cfe1fe8b5be70a1c53212c20f6e3f30;p=lilypond.git

diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf
index bdfd5aac09..bb1a5c5cb5 100644
--- a/mf/parmesan-flags.mf
+++ b/mf/parmesan-flags.mf
@@ -1,12 +1,33 @@
-% -*-Fundamental-*-
-% parmesan-flags.mf -- implement ancient flags
-% 
-% source file of LilyPond's pretty-but-neat music font
-% 
-% (c) 2001--2002 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--2015 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");
+
+save between_staff_lines, on_staff_line, anywhere;
 
-fet_begingroup ("flags")
+between_staff_lines := 0;
+on_staff_line := 1;
+anywhere := 2;
+
+save dir_up, dir_down;
+
+dir_up := 1;
+dir_down := -1;
 
 
 %%%%%%%%
@@ -18,357 +39,282 @@ fet_begingroup ("flags")
 %
 %
 
-def draw_mensural_outermost_flag_i =
-	define_pixels(stafflinethickness, staff_space)
-
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
-
-	save za, zb, zc, zd, ze;
-	pair za, zb, zc, zd, ze;
+def draw_mensural_outermost_flare (expr staffline_adjustment, d_) =
+    save flag_end, flag_right;
+
+	if staffline_adjustment = between_staff_lines:
+		flag_end := 1.9;
+		flag_right := 0.6;
+	elseif staffline_adjustment = on_staff_line:
+		flag_end := 1.4;
+		flag_right := 0.5;
+	else: % staffline_adjustment = anywhere
+		flag_end := 1.7;
+		flag_right := 0.6;
+	fi;
+
+	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));
 
-	za = (+0.00 staff_space, -0.00 staff_space);
-	zb = (+0.15 staff_space, -0.00 staff_space);
-	zc = (+0.45 staff_space, -0.35 staff_space);
-	zd = (+0.45 staff_space, -0.85 staff_space);
-	ze = (+0.00 staff_space, -2.00 staff_space);
-
-	draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
 enddef;
 
-def draw_mensural_outermost_flag_ii =
-	define_pixels(stafflinethickness, staff_space)
-
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
-
-	save za, zb, zc, zd, ze;
-	pair za, zb, zc, zd, ze;
 
-	za = (+0.00 staff_space, -0.00 staff_space);
-	zb = (+0.15 staff_space, -0.00 staff_space);
-	zc = (+0.20 staff_space, -0.05 staff_space);
-	zd = (+0.20 staff_space, -1.15 staff_space);
-	ze = (+0.00 staff_space, -1.40 staff_space);
-
-	draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
+def draw_mensural_inner_flare (expr il_shift, idx, 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;	
+
+	save i;
+	numeric i[];
+
+	i0 := idx * 10;
+	i1 := idx * 10 + 1;
+	i2 := idx * 10 + 2;
+	i3 := idx * 10 + 3;
+	i4 := idx * 10 + 4;
+
+	z[i0] = (0, -il_shift * staff_space);
+	z[i1] = z[i0] + (+0.00 staff_space, -0.10 staff_space);
+	z[i2] = z[i0] + (+0.33 staff_space, -0.30 staff_space);
+	z[i3] = z[i0] + (+0.33 staff_space, -0.70 staff_space);
+	z[i4] = z[i0] + (+0.00 staff_space, -0.90 staff_space);
+
+	pat := z[i1]{2, 1}
+	       .. z[i2]
+	       .. z[i3]
+	       .. {-2, -1}z[i4];
+
+	% we avoid cusps originally present in `draw pat'
+	fill get_subpath (ellipse,
+			  -direction 0 of pat, direction 0 of pat, z[i1])
+	     .. get_subpoint (ellipse, direction 1 of pat, z[i2])
+		  {direction 1 of pat}
+	     .. get_subpoint (ellipse, direction 2 of pat, z[i3])
+		  {direction 2 of pat}
+	     .. get_subpath (ellipse,
+			     direction 3 of pat, -direction 3 of pat, z[i4])
+	     .. get_subpoint (ellipse, -direction 2 of pat, z[i3])
+		  {-direction 2 of pat}
+	     .. get_subpoint (ellipse, -direction 1 of pat, z[i2])
+		  {-direction 1 of pat}
+	     .. cycle;
+
+	if d_ = dir_up:
+		labels ([i0], [i1], [i2], [i3], [i4]);
+	fi;
 enddef;
 
-def draw_mensural_inner_flag(expr il_shift) =
-	define_pixels(stafflinethickness, staff_space)
-
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
-
-	save zs, za, zb, zc, zd;
-	pair zs, za, zb, zc, zd;
-
-	zs = (0, -il_shift * staff_space);
-	za = zs + (+0.00 staff_space, -0.10 staff_space);
-	zb = zs + (+0.33 staff_space, -0.30 staff_space);
-	zc = zs + (+0.33 staff_space, -0.70 staff_space);
-	zd = zs + (+0.00 staff_space, -0.90 staff_space);
 
-	draw za{2,1} .. zb .. zc .. {-2,-1}zd;
+def draw_mensural_flag (expr staffline_adjustment, flares, d_) =
+	save char_box_adjust, flare_shift;
+
+	if staffline_adjustment = between_staff_lines:
+		flare_shift := 0.5;
+	elseif staffline_adjustment = on_staff_line:
+		flare_shift := 0.0;
+	else: % staffline_adjustment = anywhere
+		flare_shift := 0.25;
+	fi;
+
+	char_box_adjust := flare_shift + 0.5;
+
+	if d_ = dir_up:
+		set_char_box (0,
+			      0.60 staff_space#,
+			      (flares + char_box_adjust) * staff_space#,
+			      0.10 staff_space#);
+	else: % d_ = dir_down
+		set_char_box (0.60 staff_space#,
+			      0,
+			      0.10 staff_space#,
+			      (flares + char_box_adjust) * staff_space#);
+	fi;
+
+	draw_mensural_outermost_flare (staffline_adjustment, d_);
+
+	for flare_count := 2 step 1 until 4:
+		if flares >= flare_count:
+			draw_mensural_inner_flare (flare_shift
+						   + flare_count - 0.5,
+						   flare_count, d_);
+		fi;
+	endfor;
+
+	if d_ = dir_down:
+		currentpicture := currentpicture xscaled -1
+						 yscaled -1
+						 shifted (-0.5 stemthickness_rounded, 0);
+	fi;
 enddef;
 
-fet_beginchar("8th Mensural Flag (up)", "mensuralu03", "menseighthflag")
-	set_char_box(0, 0.60 staff_space#, 2.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-fet_endchar;
 
-fet_beginchar("8th Mensural Flag (up)", "mensuralu13", "mens1eighthflag")
-	set_char_box(0, 0.60 staff_space#, 1.50 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
+% 8th mensural flag, upwards, between staff lines
+fet_beginchar ("8th Mensural Flag (up)", "mensuralu03");
+	draw_mensural_flag (between_staff_lines, 1, dir_up);
 fet_endchar;
 
-fet_beginchar("8th Mensural Flag (down)", "mensurald03", "mensdeighthflag")
-	set_char_box(0.60 staff_space#, 0, 0, 2.00 staff_space#)
-	draw_mensural_outermost_flag_i
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("8th Mensural Flag (down)", "mensurald13", "mensd1eighthflag")
-	set_char_box(0.60 staff_space#, 0, 0, 1.50 staff_space#)
-	draw_mensural_outermost_flag_ii
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 8th mensural flag, upwards, on staff line
+fet_beginchar ("8th Mensural Flag (up)", "mensuralu13");
+	draw_mensural_flag (on_staff_line, 1, dir_up);
 fet_endchar;
 
-fet_beginchar("16th Mensural Flag (up)", "mensuralu04", "menssixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-fet_endchar;
 
-fet_beginchar("16th Mensural Flag (up)", "mensuralu14", "mens1sixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
+% 8th mensural flag, upwards, anywhere
+fet_beginchar ("8th Mensural Flag (up)", "mensuralu23");
+	draw_mensural_flag (anywhere, 1, dir_up);
 fet_endchar;
 
-fet_beginchar("16th Mensural Flag (down)", "mensurald04", "mensdsixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("16th Mensural Flag (down)", "mensurald14", "mensd1sixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 8th mensural flag, downwards, between staff lines
+fet_beginchar ("8th Mensural Flag (down)", "mensurald03");
+	draw_mensural_flag (between_staff_lines, 1, dir_down);
 fet_endchar;
 
-fet_beginchar("32th Mensural Flag (up)", "mensuralu05", "mensthirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	draw_mensural_inner_flag(3.0)
-fet_endchar;
 
-fet_beginchar("32th Mensural Flag (up)", "mensuralu15", "mens1thirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
+% 8th mensural flag, downwards, on staff line
+fet_beginchar ("8th Mensural Flag (down)", "mensurald13");
+	draw_mensural_flag (on_staff_line, 1, dir_down);
 fet_endchar;
 
-fet_beginchar("32th Mensural Flag (down)", "mensurald05", "mensdthirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	draw_mensural_inner_flag(3.0)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("32th Mensural Flag (down)", "mensurald15", "mensd1thirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 8th mensural flag, downwards, anywhere
+fet_beginchar ("8th Mensural Flag (down)", "mensurald23");
+	draw_mensural_flag (anywhere, 1, dir_down);
 fet_endchar;
 
-fet_beginchar("64th Mensural Flag (up)", "mensuralu06", "menssixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	draw_mensural_inner_flag(3.5)
-fet_endchar;
 
-fet_beginchar("64th Mensural Flag (up)", "mensuralu16", "mens1sixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.17)
-	draw_mensural_inner_flag(2.08)
-	draw_mensural_inner_flag(3.00)
+% 16th mensural flag, upwards, between staff lines
+fet_beginchar ("16th Mensural Flag (up)", "mensuralu04");
+	draw_mensural_flag (between_staff_lines, 2, dir_up);
 fet_endchar;
 
-fet_beginchar("64th Mensural Flag (down)", "mensurald06", "mensdsixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	draw_mensural_inner_flag(3.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("64th Mensural Flag (down)", "mensurald16", "mensd1sixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.17)
-	draw_mensural_inner_flag(2.08)
-	draw_mensural_inner_flag(3.00)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 16th mensural flag, upwards, on staff line
+fet_beginchar ("16th Mensural Flag (up)", "mensuralu14");
+	draw_mensural_flag (on_staff_line, 2, dir_up);
 fet_endchar;
 
-%%%%%%%%
-%
-%
-%
-% Mensural Notation
-%
-%
-%
-
-def draw_mensural_outermost_flag_i =
-	define_pixels(stafflinethickness, staff_space)
 
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
+% 16th mensural flag, upwards, anywhere
+fet_beginchar ("16th Mensural Flag (up)", "mensuralu24");
+	draw_mensural_flag (anywhere, 2, dir_up);
+fet_endchar;
 
-	save za, zb, zc, zd, ze;
-	pair za, zb, zc, zd, ze;
 
-	za = (+0.00 staff_space, -0.00 staff_space);
-	zb = (+0.15 staff_space, -0.00 staff_space);
-	zc = (+0.45 staff_space, -0.35 staff_space);
-	zd = (+0.45 staff_space, -0.85 staff_space);
-	ze = (+0.00 staff_space, -2.00 staff_space);
+% 16th mensural flag, downwards, between staff lines
+fet_beginchar ("16th Mensural Flag (down)", "mensurald04");
+	draw_mensural_flag (between_staff_lines, 2, dir_down);
+fet_endchar;
 
-	draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
-enddef;
 
-def draw_mensural_outermost_flag_ii =
-	define_pixels(stafflinethickness, staff_space)
+% 16th mensural flag, downwards, on staff line
+fet_beginchar ("16th Mensural Flag (down)", "mensurald14");
+	draw_mensural_flag (on_staff_line, 2, dir_down);
+fet_endchar;
 
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
 
-	save za, zb, zc, zd, ze;
-	pair za, zb, zc, zd, ze;
+% 16th mensural flag, downwards, anywhere
+fet_beginchar ("16th Mensural Flag (down)", "mensurald24");
+	draw_mensural_flag (anywhere, 2, dir_down);
+fet_endchar;
 
-	za = (+0.00 staff_space, -0.00 staff_space);
-	zb = (+0.15 staff_space, -0.00 staff_space);
-	zc = (+0.20 staff_space, -0.05 staff_space);
-	zd = (+0.20 staff_space, -1.15 staff_space);
-	ze = (+0.00 staff_space, -1.40 staff_space);
 
-	draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
-enddef;
+% 32th mensural flag, upwards, between staff lines
+fet_beginchar ("32th Mensural Flag (up)", "mensuralu05");
+	draw_mensural_flag (between_staff_lines, 3, dir_up);
+fet_endchar;
 
-def draw_mensural_inner_flag(expr il_shift) =
-	define_pixels(stafflinethickness, staff_space)
 
-	pickup pencircle
-		xscaled 1.00 stafflinethickness
-		yscaled 0.22 staff_space
-		rotated -35;
+% 32th mensural flag, upwards, on staff line
+fet_beginchar ("32th Mensural Flag (up)", "mensuralu15");
+	draw_mensural_flag (on_staff_line, 3, dir_up);
+fet_endchar;
 
-	save zs, za, zb, zc, zd;
-	pair zs, za, zb, zc, zd;
 
-	zs = (0, -il_shift * staff_space);
-	za = zs + (+0.00 staff_space, -0.10 staff_space);
-	zb = zs + (+0.33 staff_space, -0.30 staff_space);
-	zc = zs + (+0.33 staff_space, -0.70 staff_space);
-	zd = zs + (+0.00 staff_space, -0.90 staff_space);
+% 32th mensural flag, upwards, anywhere
+fet_beginchar ("32th Mensural Flag (up)", "mensuralu25");
+	draw_mensural_flag (anywhere, 3, dir_up);
+fet_endchar;
 
-	draw za{2,1} .. zb .. zc .. {-2,-1}zd;
-enddef;
 
-fet_beginchar("8th Mensural Flag (up)", "mensuralu03", "menseighthflag")
-	set_char_box(0, 0.60 staff_space#, 2.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
+% 32th mensural flag, downwards, between staff lines
+fet_beginchar ("32th Mensural Flag (down)", "mensurald05");
+	draw_mensural_flag (between_staff_lines, 3, dir_down);
 fet_endchar;
 
-fet_beginchar("8th Mensural Flag (up)", "mensuralu13", "mens1eighthflag")
-	set_char_box(0, 0.60 staff_space#, 1.50 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-fet_endchar;
 
-fet_beginchar("8th Mensural Flag (down)", "mensurald03", "mensdeighthflag")
-	set_char_box(0.60 staff_space#, 0, 0, 2.00 staff_space#)
-	draw_mensural_outermost_flag_i
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 32th mensural flag, downwards, on staff line
+fet_beginchar ("32th Mensural Flag (down)", "mensurald15");
+	draw_mensural_flag (on_staff_line, 3, dir_down);
 fet_endchar;
 
-fet_beginchar("8th Mensural Flag (down)", "mensurald13", "mensd1eighthflag")
-	set_char_box(0.60 staff_space#, 0, 0, 1.50 staff_space#)
-	draw_mensural_outermost_flag_ii
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("16th Mensural Flag (up)", "mensuralu04", "menssixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
+% 32th mensural flag, downwards, anywhere
+fet_beginchar ("32th Mensural Flag (down)", "mensurald25");
+	draw_mensural_flag (anywhere, 3, dir_down);
 fet_endchar;
 
-fet_beginchar("16th Mensural Flag (up)", "mensuralu14", "mens1sixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-fet_endchar;
 
-fet_beginchar("16th Mensural Flag (down)", "mensurald04", "mensdsixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 64th mensural flag, upwards, between staff lines
+fet_beginchar ("64th Mensural Flag (up)", "mensuralu06");
+	draw_mensural_flag (between_staff_lines, 4, dir_up);
 fet_endchar;
 
-fet_beginchar("16th Mensural Flag (down)", "mensurald14", "mensd1sixteenthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("32th Mensural Flag (up)", "mensuralu05", "mensthirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	draw_mensural_inner_flag(3.0)
+% 64th mensural flag, upwards, on staff line
+fet_beginchar ("64th Mensural Flag (up)", "mensuralu16");
+	draw_mensural_flag (on_staff_line, 4, dir_up);
 fet_endchar;
 
-fet_beginchar("32th Mensural Flag (up)", "mensuralu15", "mens1thirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-fet_endchar;
 
-fet_beginchar("32th Mensural Flag (down)", "mensurald05", "mensdthirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(2.0)
-	draw_mensural_inner_flag(3.0)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 64th mensural flag, upwards, anywhere
+fet_beginchar ("64th Mensural Flag (up)", "mensuralu26");
+	draw_mensural_flag (anywhere, 4, dir_up);
 fet_endchar;
 
-fet_beginchar("32th Mensural Flag (down)", "mensurald15", "mensd1thirtysecondflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
-fet_endchar;
 
-fet_beginchar("64th Mensural Flag (up)", "mensuralu06", "menssixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	draw_mensural_inner_flag(3.5)
+% 64th mensural flag, downwards, between staff lines
+fet_beginchar ("64th Mensural Flag (down)", "mensurald06");
+	draw_mensural_flag (between_staff_lines, 4, dir_down);
 fet_endchar;
 
-fet_beginchar("64th Mensural Flag (up)", "mensuralu16", "mens1sixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.17)
-	draw_mensural_inner_flag(2.08)
-	draw_mensural_inner_flag(3.00)
-fet_endchar;
 
-fet_beginchar("64th Mensural Flag (down)", "mensurald06", "mensdsixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_i
-	draw_mensural_inner_flag(1.5)
-	draw_mensural_inner_flag(2.5)
-	draw_mensural_inner_flag(3.5)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+% 64th mensural flag, downwards, on staff line
+fet_beginchar ("64th Mensural Flag (down)", "mensurald16");
+	draw_mensural_flag (on_staff_line, 4, dir_down);
 fet_endchar;
 
-fet_beginchar("64th Mensural Flag (down)", "mensurald16", "mensd1sixtyfourthflag")
-	set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
-	draw_mensural_outermost_flag_ii
-	draw_mensural_inner_flag(1.17)
-	draw_mensural_inner_flag(2.08)
-	draw_mensural_inner_flag(3.00)
-	currentpicture := currentpicture xscaled -1 yscaled -1;
+
+% 64th mensural flag, downwards, anywhere
+fet_beginchar ("64th Mensural Flag (down)", "mensurald26");
+	draw_mensural_flag (anywhere, 4, dir_down);
 fet_endchar;
 
-fet_endgroup ("flags")
+
+fet_endgroup ("flags");