From 52f489278d62562445f8f57ac7926d145215a243 Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Sun, 4 Apr 2010 18:15:04 -0600
Subject: [PATCH] Add sol head to shape note heads

---
 mf/feta-noteheads.mf | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf
index e66a392212..c413eac33e 100644
--- a/mf/feta-noteheads.mf
+++ b/mf/feta-noteheads.mf
@@ -1360,6 +1360,32 @@ fet_beginchar ("Quarter fa down head", "d2fa");
 fet_endchar;
 
 
+def draw_sol_head (expr filled) =
+	draw_outside_ellipse (1.53 - puff_up_factor / 3.0, 34, 0.66, 0.17);
+        if not filled:
+	  undraw_inside_ellipse (3.25, 33, 0.81, 2.5 stafflinethickness#);
+        fi
+        draw_staff (-2, 2, 0);
+enddef;
+
+fet_beginchar ("Whole solhead", "s0sol");
+	draw_sol_head ( false);
+fet_endchar;
+
+
+fet_beginchar ("Half solhead", "s1sol");
+	draw_sol_head ( false);
+fet_endchar;
+
+
+fet_beginchar ("Quart solhead", "s2sol");
+	draw_sol_head ( true);
+fet_endchar;
+
+
+
+
+
 def draw_la_head (expr width_factor) =
 	set_char_box (0, width_factor * solfa_base_notewidth#,
 		      0.5 solfa_noteheight#, 0.5 solfa_noteheight#);
-- 
2.39.5