Update \sacredHarpHeads and \aikenHeads to use new sol head

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 613ea511341373b98732761eb3ab6ae140e9d61d..4238dd14e03d772758d1cce3aba263ef8746009a 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -342,8 +342,8 @@ predefinedFretboardsOn =
 
 %% shape note heads
 
-aikenHeads      = \set shapeNoteStyles = #'#(do re mi fa #f la ti)
-sacredHarpHeads = \set shapeNoteStyles = #'#(fa #f la fa #f la mi)
+aikenHeads      = \set shapeNoteStyles = #'#(do re mi fa sol la ti)
+sacredHarpHeads = \set shapeNoteStyles = #'#(fa sol la fa sol la mi)
 
 
 %% shifts

diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf
index c413eac33e7635d7e1b7a43dcb9495f120f0c54c..4581e8f8aac10209823e2cab8a4b42579b43d7f2 100644 (file)
--- a/mf/feta-noteheads.mf
+++ b/mf/feta-noteheads.mf
@@ -1004,12 +1004,12 @@ fi;
 %
 
 save solfa_pen_thick;
-solfa_pen_thick# = 1.75 stafflinethickness#;
+solfa_pen_thick# = 1.5 stafflinethickness#;
 define_blacker_pixels (solfa_pen_thick);
 
 
 save solfa_base_notewidth;
-solfa_base_notewidth# := black_notehead_width#;
+solfa_base_notewidth# := half_notehead_width#;
 
 solfa_whole_width := 1.0;
 solfa_half_width := 1.0;
@@ -1407,10 +1407,10 @@ def draw_la_head (expr width_factor) =
 
        labels (range 1 thru 4);
 
-       p_in := (z1 + 0.5 solfa_pen_thick * (1, -1))
-               -- (z2 + 0.5 solfa_pen_thick * (-1, -1))
-               -- (z3 + 0.5 solfa_pen_thick * (-1, 1))
-               -- (z4 + 0.5 solfa_pen_thick * (1, 1))
+       p_in := (z1 + 0.5 solfa_pen_thick * (1, -2.5))
+               -- (z2 + 0.5 solfa_pen_thick * (-1, -2.5))
+               -- (z3 + 0.5 solfa_pen_thick * (-1, 2.5))
+               -- (z4 + 0.5 solfa_pen_thick * (1, 2.5))
                -- cycle;
 
        p_out := top z1