From: David Kastrup <dak@gnu.org>
Date: Sun, 12 May 2013 19:26:26 +0000 (+0200)
Subject: Change spacing of chord flats to correspond to state before issue 3330
X-Git-Tag: release/2.17.19-1~5^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2ac8e9aebacf7ffab6bee799fcb345ae4bc28ecf;p=lilypond.git

Change spacing of chord flats to correspond to state before issue 3330
---

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 9823d8a08b..606d806660 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -46,7 +46,7 @@
       (make-line-markup (list empty-markup))
       (conditional-kern-before
        (alteration->text-accidental-markup alteration)
-       (= alteration FLAT) 0.2)))
+       (= alteration FLAT) 0.094725)))
 
 (define (accidental->markup-italian alteration)
   "Return accidental markup for ALTERATION, for use after an italian chord root name."
@@ -54,7 +54,7 @@
       (make-hspace-markup 0.2)
       (make-line-markup
        (list
-        (make-hspace-markup (if (= alteration FLAT) 0.7 0.5))
+        (make-hspace-markup (if (= alteration FLAT) 0.57285385 0.5))
 	(make-raise-markup 0.7 (alteration->text-accidental-markup alteration))
 	(make-hspace-markup (if (= alteration SHARP) 0.2 0.1))
 	))))