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