From 43f9d1a1edfa1a15600f7b8f52d32f7c10b591c6 Mon Sep 17 00:00:00 2001
From: Maximilian Albert <maximilian.albert@gmail.com>
Date: Sat, 8 Nov 2008 16:21:26 +0100
Subject: [PATCH] Add accidentals with arrows in *both* directions

---
 mf/feta-toevallig.mf | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index dff69a25cb..8a8ca64ebf 100644
--- 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#);
-- 
2.39.5