* ly/grace-init.ly (startGraceMusic):

* scm/grob-description.scm (beamed-lengths): Subtract half a beam
thickness, to fix most ugly beams.  See input/test/stem.ly and
baerenreiter-sarabande.ly.

diff --git a/ChangeLog b/ChangeLog
index 2edaa77875258a4219715f882bac62da792eb304..0b178a19e1fe3a46eb34ac022e54c1573857be23 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,9 +3,10 @@
        * lily/beam.cc (least_squares): Fix asymmetry and scary float
        comparison.
 
-       * lily/stem.cc (calc_stem_info): Moved, documented, cleaned up and
-       fixed up-to-stem feature.
+       * lily/stem.cc (calc_stem_info): Move, document, clean up and fix
+       up-to-stem feature.
 
+       * ly/grace-init.ly (startGraceMusic):
        * scm/grob-description.scm (beamed-lengths): Subtract half a beam
        thickness, to fix most ugly beams.  See input/test/stem.ly and
        baerenreiter-sarabande.ly.

diff --git a/ly/grace-init.ly b/ly/grace-init.ly
index d5f2290863675c222a6a335ea8939d0270ab57af..4aadd3fe6e3d93dc50d9921d121f7527c158bd66 100644 (file)
--- a/ly/grace-init.ly
+++ b/ly/grace-init.ly
@@ -6,7 +6,7 @@ startGraceMusic = {
     \property Voice.Stem \override #'lengths = 
         #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
     \property Voice.Stem \override #'beamed-lengths =
-        #(map (lambda (x) (* 0.8 x)) '(3.5))
+        #(map (lambda (x) (* 0.8 x)) '(3.26))
     \property Voice.Stem \override #'beamed-minimum-free-lengths =
         #(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5))
     \property Voice.Stem \override #'beamed-extreme-minimum-free-lengths =