Doc-de: rebirth of usage.tely

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

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 21644f2d71582dd8c808ea215715002ee1f1b636..0b1f2a2ea78fd52bce237d3765059cf09b555668 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -8,10 +8,10 @@
 
 %% common definition for all note head styles reverting
 %% (palm mute, harmonics, dead notes, ...)
-defaultNoteHeads=
+defaultNoteHeads =
 #(define-music-function (parser location) ()
    (_i "Revert to the default note head style.")
-   (revert-head-style 'NoteHead))
+   (revert-head-style '(NoteHead TabNoteHead)))
 
 
 
@@ -342,8 +342,15 @@ 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 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