X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=0b1f2a2ea78fd52bce237d3765059cf09b555668;hb=a06cb0b0d9593ba110e001f2b0f44b8bef084693;hp=4238dd14e03d772758d1cce3aba263ef8746009a;hpb=b275aa092642adb798079f7853309e2f5e4383ce;p=lilypond.git

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 4238dd14e0..0b1f2a2ea7 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -342,8 +342,15 @@ predefinedFretboardsOn =
 
 %% shape note heads
 
-aikenHeads      = \set shapeNoteStyles = #'#(do re mi fa sol la ti)
+aikenHeads      = \set shapeNoteStyles = #'#(do re miMirror fa sol la ti)
+aikenHeadsMinor = \set shapeNoteStyles = #'#(la ti do re miMirror fa sol)
 sacredHarpHeads = \set shapeNoteStyles = #'#(fa sol la fa sol la mi)
+sacredHarpHeadsMinor = \set shapeNoteStyles = #'#(la mi fa sol la fa sol)
+southernHarmonyHeads = 
+  \set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
+southernHarmonyHeadsMinor =
+  \set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)
+
 
 
 %% shifts