X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-flats.mf;h=b7470e2fece0dbd05a57140ca55f4f91a84a6059;hb=acae40c266a7df9b4882f937c733745c803ac9e4;hp=e7b3402df26e4d57268a537176854cc1dd4f7cf5;hpb=4d370c0ffa938be9177455bef0e324846bd0fea9;p=lilypond.git

diff --git a/mf/feta-flats.mf b/mf/feta-flats.mf
index e7b3402df2..b7470e2fec 100644
--- a/mf/feta-flats.mf
+++ b/mf/feta-flats.mf
@@ -187,57 +187,37 @@ fet_beginchar ("Flat", "flat");
 				false, false);
 	penlabels (range 0 thru 11);
 
-	remember_pic := currentpicture;
-
-        draw_staff_if_debugging (-2, 2, 0);
+        draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
-draw_shifted_too;
-
-
 fet_beginchar ("Arrowed Flat (arrow up)", "flat.arrowup");
-	draw_arrowed_meta_flat (0, 0.8 staff_space#, 0.31 staff_space,
-				true, false);
-	penlabels (range 0 thru 23);
-
-	remember_pic := currentpicture;
+        draw_arrowed_meta_flat (0, 0.8 staff_space#, 0.31 staff_space,
+                                true, false);
+        penlabels (range 0 thru 23);
 
-	draw_staff_if_debugging (-2, 2, 0);
+        draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
-draw_shifted_too;
-
-
 fet_beginchar ("Arrowed Flat (arrow down)", "flat.arrowdown");
-	draw_arrowed_meta_flat (0, 0.8 staff_space#, 0.31 staff_space,
-				false, true);
-	penlabels (range 0 thru 23);
-
-	remember_pic := currentpicture;
+        draw_arrowed_meta_flat (0, 0.8 staff_space#, 0.31 staff_space,
+                                false, true);
+        penlabels (range 0 thru 23);
 
-	draw_staff_if_debugging (-2, 2, 0);
+        draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
-draw_shifted_too;
-
-
 fet_beginchar ("Arrowed Flat (arrow up and down)", "flat.arrowboth");
 	draw_arrowed_meta_flat (0, 0.8 staff_space#, 0.31 staff_space,
 				true, true);
 	penlabels (range 0 thru 23);
 
-	remember_pic := currentpicture;
-
-	draw_staff_if_debugging (-2, 2, 0);
+        draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
-draw_shifted_too;
-
-
 fet_beginchar ("Flat (slashed)", "flat.slash");
 	set_char_box (.4 staff_space#, .8 staff_space#,
 		      0.6 staff_space#, 1.9 staff_space#);
@@ -271,9 +251,7 @@ fet_beginchar ("Flat (slashed)", "flat.slash");
 	penlabels (12, 13);
 	labels (14, 15);
 
-	remember_pic := currentpicture;
-
-	draw_staff_if_debugging (-2, 2, 0);
+	draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
@@ -331,9 +309,7 @@ fet_beginchar ("Flat (slashed twice)", "flat.slashslash");
 	penlabels (22, 23);
 	labels (24, 25);
 
-	remember_pic := currentpicture;
-
-	draw_staff_if_debugging (-2, 2, 0);
+	draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
@@ -447,15 +423,10 @@ fet_beginchar ("Flatflat (mirrored)", "mirroredflat.flat");
 
 	currentpicture := currentpicture shifted (w/2, 0);
 
-	remember_pic := currentpicture;
-
-	draw_staff_if_debugging (-2, 2, 0);
+	draw_staff_if_debugging (-2, 2);
 fet_endchar;
 
 
-draw_shifted_too;
-
-
 fet_beginchar ("Semi flat", "mirroredflat");
 	set_char_box (1.2 stafflinethickness#, .8 staff_space#,
 		      0.6 staff_space#, 1.9 staff_space#);
@@ -560,10 +531,5 @@ fet_beginchar ("3/4 Flat", "flatflat.slash");
 	penlabels (12, 13);
 	labels (14, 15);
 
-	remember_pic := currentpicture;
-
-	draw_staff_if_debugging (-2, 2, 0);
+	draw_staff_if_debugging (-2, 2);
 fet_endchar;
-
-
-draw_shifted_too;