-\version "1.9.1"
+\version "2.14.0"
+startGraceSlur = #(make-music 'SlurEvent 'span-direction START 'spanner-id "grace")
+stopGraceSlur = #(make-music 'SlurEvent 'span-direction STOP 'spanner-id "grace")
-startGraceMusic = \notes {
- \context Voice \applycontext #set-start-grace-properties
+
+startGraceMusic = {
}
-stopGraceMusic = \notes {
- \context Voice \applycontext #set-stop-grace-properties
+stopGraceMusic = {
}
startAppoggiaturaMusic =
-\notes {
- \context Voice \applycontext #set-start-grace-properties
- s1*0(
+ {
+ s1*0\startGraceSlur
}
-stopAppoggiaturaMusic = \notes {
- \context Voice \applycontext #set-stop-grace-properties
- s1*0)
+stopAppoggiaturaMusic = {
+ s1*0\stopGraceSlur
}
-startAccacciaturaMusic = \notes {
- \context Voice \applycontext #set-start-grace-properties
- s1*0(
- \property Voice.Stem \override #'stroke-style = #"grace"
+startAcciaccaturaMusic = {
+ s1*0\startGraceSlur
+ \override Stem #'stroke-style = #"grace"
}
-stopAccacciaturaMusic = \notes {
- \property Voice.Stem \revert #'stroke-style
- \context Voice \applycontext #set-stop-grace-properties
- s1*0)
+stopAcciaccaturaMusic = {
+ \revert Stem #'stroke-style
+ s1*0\stopGraceSlur
}