-\version "2.1.22"
+\version "2.17.6"
+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(
+{
+ <>\startGraceSlur
+}
+
+stopAppoggiaturaMusic = {
+ <>\stopGraceSlur
+}
+
+startAcciaccaturaMusic = {
+ <>\startGraceSlur
+ \temporary \override Flag.stroke-style = #"grace"
}
-stopAppoggiaturaMusic = \notes {
- \context Voice \applycontext #set-stop-grace-properties
- s1*0)
+stopAcciaccaturaMusic = {
+ \revert Flag.stroke-style
+ <>\stopGraceSlur
}
-startAcciaccaturaMusic = \notes {
- \context Voice \applycontext #set-start-grace-properties
- s1*0(
- \override Stem #'stroke-style = #"grace"
+startSlashedGraceMusic = {
+ \temporary \override Flag.stroke-style = #"grace"
}
-stopAcciaccaturaMusic = \notes {
- \revert Stem #'stroke-style
- \context Voice \applycontext #set-stop-grace-properties
- s1*0)
+stopSlashedGraceMusic = {
+ \revert Flag.stroke-style
}