From: Carl Sorensen <c_sorensen@byu.edu>
Date: Mon, 5 Apr 2010 00:15:04 +0000 (-0600)
Subject: Add sol head to shape note heads
X-Git-Tag: release/2.13.18-1~18^2~1^2~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=52f489278d62562445f8f57ac7926d145215a243;p=lilypond.git

Add sol head to shape note heads
---

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#);