From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 13 Aug 2002 15:00:45 +0000 (+0000)
Subject: * ly/grace-init.ly (startGraceMusic):
X-Git-Tag: release/1.5.73~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8d3f3d14334a3fcb6b764d4d876748ca6dd33853;p=lilypond.git

* 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 2edaa77875..0b178a19e1 100644
--- 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 d5f2290863..4aadd3fe6e 100644
--- 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 =