]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/grace-init.ly
release: 1.5.48
[lilypond.git] / ly / grace-init.ly
index c03ea803d421a182205bca33853e8acc3dadd68b..858e4d005793ad48ec5c9e0e864d03bf4f662f53 100644 (file)
@@ -10,7 +10,6 @@ startGraceMusic = {
         #(map (lambda (x) (* 0.8 x)) '(0.0 1.5 1.25 1.0))
     \property Voice.Stem \override #'no-stem-extend = ##t
     \property Voice.Stem \override #'flag-style  = #"grace"
-
     \property Voice.Beam \override #'thickness = #0.384
     
     % Can't use Staff.fontSize, since time sigs, keys sigs, etc. will
@@ -18,9 +17,11 @@ startGraceMusic = {
 
     \property Voice.fontSize = #-2
     \property Staff.Accidentals \override #'font-relative-size = #-2
+    \property Voice.Slur \override #'direction = #-1
 }
 
 stopGraceMusic = {
+    \property Voice.Slur \revert #'direction
     \property Staff.Accidentals \revert #'font-relative-size
     \property Voice.Beam \revert #'thickness