Fix 1390: Add slashedGrace function (graces with slashed stems but no slur, e.g....

diff --git a/input/regression/grace-slashed-no-slur.ly b/input/regression/grace-slashed-no-slur.ly
new file mode 100644 (file)
index 0000000..b7873e1
--- /dev/null
+++ b/input/regression/grace-slashed-no-slur.ly
@@ -0,0 +1,11 @@
+\version "2.15.6"
+
+\header
+{
+  texidoc = "Create grace notes with slashed stem, but no slur. That can be used
+  when the grace note is tied to the next note.
+"
+}
+\relative {
+  \slashedGrace c16~ c1
+}

diff --git a/ly/grace-init.ly b/ly/grace-init.ly
index b9729f3e9360735d3f4a29aa772801a45acb4240..6850541afaeb1c8bb209c42208f0a68b1955ffdd 100644 (file)
--- a/ly/grace-init.ly
+++ b/ly/grace-init.ly
@@ -28,3 +28,11 @@ stopAcciaccaturaMusic =  {
     \revert Stem #'stroke-style
     s1*0\stopGraceSlur
 }
+
+startSlashedGraceMusic =  {
+  \override Stem  #'stroke-style = #"grace"
+}
+
+stopSlashedGraceMusic =  {
+  \revert Stem #'stroke-style
+}

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index b627c43a9779161555389e4e458cee24a32c229b..8fb4010f4e1be852db2aa8514476b9df8251a7f5 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -868,6 +868,11 @@ shiftDurations =
     (lambda (x)
       (shift-one-duration-log x dur dots)) arg))
 
+slashedGrace =
+#(def-grace-function startSlashedGraceMusic stopSlashedGraceMusic
+   (_i "Create slashed graces (slashes through stems, but no slur) from
+the following music expression"))
+
 spacingTweaks =
 #(define-music-function (parser location parameters) (list?)
    (_i "Set the system stretch, by reading the 'system-stretch property of