X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-clefs.mf;h=a291e3613afc8f8604291c115ecf986c36dd5170;hb=a6a51abfd0195a3cf7d6ea095cf69808852f21ce;hp=ec6561dc8e50a0cc001e6135c63a6b4caae99f23;hpb=e006ca2d6ca00d360c74ee6ef5d6afa3b469ee4a;p=lilypond.git

diff --git a/mf/parmesan-clefs.mf b/mf/parmesan-clefs.mf
index ec6561dc8e..a291e3613a 100644
--- a/mf/parmesan-clefs.mf
+++ b/mf/parmesan-clefs.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font --  ancient clefs
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 2001--2012 Juergen Reuter <reuter@ipd.uka.de>
+% 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
@@ -125,9 +125,7 @@ enddef;
 
 
 fet_beginchar ("Ed. Vat. do clef", "vaticana.do");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_vaticana_do_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -194,9 +192,7 @@ enddef;
 
 
 fet_beginchar ("Ed. Vat. fa clef", "vaticana.fa");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_vaticana_fa_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -282,9 +278,7 @@ enddef;
 
 
 fet_beginchar ("Ed. Med. do clef", "medicaea.do");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_medicaea_do_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -352,9 +346,7 @@ enddef;
 
 
 fet_beginchar ("Ed. Med. fa clef", "medicaea.fa");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_medicaea_fa_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -589,9 +581,7 @@ enddef;
 
 
 fet_beginchar ("neo-mensural c clef", "neomensural.c");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_neomensural_c_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -696,9 +686,7 @@ enddef;
 
 
 fet_beginchar ("petrucci c1 clef", "petrucci.c1");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_c_clef ((0, 0), +2, 1.0);
 fet_endchar;
 
@@ -709,9 +697,7 @@ fet_endchar;
 
 
 fet_beginchar ("petrucci c2 clef", "petrucci.c2");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_c_clef ((0, 0), +1, 1.0);
 fet_endchar;
 
@@ -722,9 +708,7 @@ fet_endchar;
 
 
 fet_beginchar ("petrucci c3 clef", "petrucci.c3");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_c_clef ((0, 0), 0, 1.0);
 fet_endchar;
 
@@ -735,9 +719,7 @@ fet_endchar;
 
 
 fet_beginchar ("petrucci c4 clef", "petrucci.c4");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_c_clef ((0, 0), -1, 1.0);
 fet_endchar;
 
@@ -748,9 +730,7 @@ fet_endchar;
 
 
 fet_beginchar ("petrucci c5 clef", "petrucci.c5");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_c_clef ((0, 0), -2, 1.0);
 fet_endchar;
 
@@ -840,9 +820,7 @@ enddef;
 
 
 fet_beginchar ("mensural c clef", "mensural.c");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_mensural_c_clef ((0, 0), 1.0, true);
 fet_endchar;
 
@@ -853,9 +831,7 @@ fet_endchar;
 
 
 fet_beginchar ("black mensural c clef", "blackmensural.c");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_mensural_c_clef ((0, 0), 1.0, false);
 fet_endchar;
 
@@ -1034,9 +1010,7 @@ enddef;
 
 
 fet_beginchar ("petrucci f clef", "petrucci.f");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_f_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1142,9 +1116,7 @@ enddef;
 
 
 fet_beginchar ("mensural f clef", "mensural.f");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_mensural_f_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1374,9 +1346,7 @@ enddef;
 
 
 fet_beginchar ("petrucci g clef", "petrucci.g");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_g_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1408,9 +1378,7 @@ enddef;
 % until the code for the mensural g clef will be rewritten.
 %
 fet_beginchar ("mensural g clef", "mensural.g");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_petrucci_g_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1499,9 +1467,7 @@ enddef;
 
 
 fet_beginchar ("Hufnagel do clef", "hufnagel.do");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_hufnagel_do_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1595,9 +1561,7 @@ enddef;
 
 
 fet_beginchar ("Hufnagel fa clef", "hufnagel.fa");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_hufnagel_fa_clef ((0, 0), 1.0);
 fet_endchar;
 
@@ -1619,9 +1583,7 @@ enddef;
 
 
 fet_beginchar ("Hufnagel do/fa clef", "hufnagel.do.fa");
-	if test = 1:
-		draw_staff (-1, 3, 0.0);
-	fi;
+	draw_staff_if_debugging (-1, 3);
 	draw_hufnagel_do_fa_clef ((0, 0), 1.0);
 fet_endchar;