Added beamlet length tweak.

2010-12-30 15:32:42 +01:00 · 2010-12-30 15:32:42 +01:00 · ef54f70802
parent 281962f036
commit ef54f70802
1 changed files with 3 additions and 1 deletions
--- a/bagpipe_new.ly
+++ b/bagpipe_new.ly
@ -139,10 +139,12 @@ marchTime = {
  \quarterBeaming
 }

+% Add appropriate tweaks needed for piping grace notes to look great.
 pgrace = #(define-music-function (parser location notes) (ly:music?)
  #{ \override Score.GraceSpacing #'spacing-increment = #0
-     % \override Score.Beam #'gap = #2.0
+     \override Score.Stem #'beamlet-default-length = #'(0.6 . 0.6)
     \grace $notes
+     \revert Score.Stem #'beamlet-default-length
  #}
 )