Issue 1060 -- add Funk and Walker noteheads to shape notes

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index c05bba4d184a2d30baade6bcfbcfa362c08b1c72..109166270574e26a9de09338cad3116c5ff2a51f 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -344,13 +344,20 @@ predefinedFretboardsOn =
 
 aikenHeads      = \set shapeNoteStyles = #'#(do re miMirror fa sol la ti)
 aikenHeadsMinor = \set shapeNoteStyles = #'#(la ti do re miMirror fa sol)
+funkHeads =
+  \set shapeNoteStyles = #'#(doFunk reFunk miFunk faFunk solFunk laFunk tiFunk)
+funkHeadsMinor =
+  \set shapeNoteStyles = #'#(laFunk tiFunk doFunk reFunk miFunk faFunk solFunk)
 sacredHarpHeads = \set shapeNoteStyles = #'#(fa sol la fa sol la mi)
 sacredHarpHeadsMinor = \set shapeNoteStyles = #'#(la mi fa sol la fa sol)
-southernHarmonyHeads = 
+southernHarmonyHeads =
   \set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
 southernHarmonyHeadsMinor =
   \set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)
-
+walkerHeads =
+  \set shapeNoteStyles = #'#(doWalker reWalker miWalker faWalker solFunk laWalker tiWalker)
+walkerHeadsMinor =
+  \set shapeNoteStyles = #'#(laWalker tiWalker doWalker reWalker miWalker faWalker solFunk)
 
 
 %% shifts