X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-clefs.mf;h=a291e3613afc8f8604291c115ecf986c36dd5170;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=8cc936380ef113c632d7acc0d0d0ad460f4572e4;hpb=f89ecc29759ba32c7610f2fab25f3d752de3596f;p=lilypond.git

diff --git a/mf/parmesan-clefs.mf b/mf/parmesan-clefs.mf
index 8cc936380e..a291e3613a 100644
--- a/mf/parmesan-clefs.mf
+++ b/mf/parmesan-clefs.mf
@@ -1,13 +1,12 @@
 % 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>
 %
-%
-% LilyPond is free software: you can redistribute it and/or modify
+% 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.
+% (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
@@ -126,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;
 
@@ -195,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;
 
@@ -283,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;
 
@@ -353,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;
 
@@ -590,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;
 
@@ -697,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;
 
@@ -710,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;
 
@@ -723,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;
 
@@ -736,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;
 
@@ -749,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;
 
@@ -841,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;
 
@@ -854,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;
 
@@ -1035,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;
 
@@ -1143,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;
 
@@ -1375,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;
 
@@ -1409,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;
 
@@ -1500,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;
 
@@ -1596,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;
 
@@ -1620,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;