Add accidentals with arrows in *both* directions

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index dff69a25cbc53c7d53f976b38303246e43b2d2fb..8a8ca64ebf7a85154316429f630c3bfb9086a1ef 100644 (file)
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -266,6 +266,14 @@ fet_endchar;
 draw_shifted_too;
 
 
+fet_beginchar ("Arrowed Sharp (arrow down)", "sharp.arrowboth");
+       draw_sharp (true, true);
+fet_endchar;
+
+
+draw_shifted_too;
+
+
 fet_beginchar ("1/2 Sharp", "sharp.slashslash.stem");
        save stem, stemwidth;
        save outer_space, interbeam;
@@ -605,6 +613,14 @@ fet_endchar;
 draw_shifted_too;
 
 
+fet_beginchar ("Natural", "natural.arrowboth");
+       draw_natural (true, true);
+fet_endchar;
+
+
+draw_shifted_too;
+
+
 %
 % Dedicated to my mom.    (3/10/97)
 %
@@ -823,6 +839,19 @@ fet_endchar;
 draw_shifted_too;
 
 
+fet_beginchar ("Arrowed Flat (down-arrow)", "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 (-2, 2, 0.0);
+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#);