From: Mats Bengtsson <mats.bengtsson@s3.kth.se>
Date: Wed, 14 Apr 2004 13:08:34 +0000 (+0000)
Subject: 	* ly/engraver-init.ly (Score:graceSettings): Increase
X-Git-Tag: release/2.3.1~84
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6a10bd37818894389a4f1bc65a3de71030076cbd;p=lilypond.git

	* ly/engraver-init.ly (Score:graceSettings): Increase
	beamed-lengths, especially for 32nd notes.
---

diff --git a/ChangeLog b/ChangeLog
index 0e3dc09006..9d453f27c8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-04-14  Mats Bengtsson  <mabe@drongo.s3.kth.se>
 
+	* ly/engraver-init.ly (Score:graceSettings): Increase
+	beamed-lengths, especially for 32nd notes.
+
 	* Documentation/user/notation.itely (Grace notes): Correct the
 	syntax for add-grace-property example.
 
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 5d23a0f808..19be19f652 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -542,7 +542,7 @@ AncientRemoveEmptyStaffContext = \context {
 	(Voice NoteHead  font-size -3)
 	(Voice Dots  font-size -3)
 	(Voice Stem beamed-lengths  
-	 ,(map (lambda (x) (* 0.8 x)) '(3.26)))
+	 ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
 	(Voice Stem beamed-minimum-free-lengths  
 	 ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
 	(Voice Stem beamed-extreme-minimum-free-lengths