From 3f38de41bb8636534fb5175b863dec951b0526ba Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Sun, 4 Apr 2010 21:15:59 -0600 Subject: [PATCH] Update \sacredHarpHeads and \aikenHeads to use new sol head --- ly/property-init.ly | 4 ++-- mf/feta-noteheads.mf | 12 ++++++------ 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/ly/property-init.ly b/ly/property-init.ly index 613ea51134..4238dd14e0 100644 --- 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 c413eac33e..4581e8f8aa 100644 --- 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 -- 2.39.2