From 2ac8e9aebacf7ffab6bee799fcb345ae4bc28ecf Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 12 May 2013 21:26:26 +0200 Subject: [PATCH] Change spacing of chord flats to correspond to state before issue 3330 --- scm/chord-name.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) )))) -- 2.39.5