From ef54f7080247aa3d0b4c0cfcf2e45ade817837f3 Mon Sep 17 00:00:00 2001
From: Sven Axelsson <sven@fronter.com>
Date: Thu, 30 Dec 2010 15:32:42 +0100
Subject: [PATCH] Added beamlet length tweak.

---
 bagpipe_new.ly | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bagpipe_new.ly b/bagpipe_new.ly
index 286059b..b19488f 100644
--- 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
   #}
 )