From: David Kastrup <dak@gnu.org>
Date: Mon, 21 Sep 2015 16:01:35 +0000 (+0200)
Subject: Issue 4615: Don't center letter fret labels but align them at their baseline
X-Git-Tag: release/2.19.31-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3b322e2bf09b761f165c09a7f5ee83e282dcd1d2;p=lilypond.git

Issue 4615: Don't center letter fret labels but align them at their baseline
---

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 9d5fdd2233..97f688c1d1 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -235,7 +235,7 @@
 
 ;; a callback for custom fret labels
 (define ((tab-note-head::print-custom-fret-label fret) grob)
-  (ly:grob-set-property! grob 'text fret)
+  (ly:grob-set-property! grob 'text (make-vcenter-markup fret))
   (tab-note-head::print grob))
 (export tab-note-head::print-custom-fret-label)
 
@@ -280,9 +280,10 @@
                                            cautionary-width
                                            cautionary-angularity
                                            cautionary-padding)))
-    (ly:stencil-translate-axis (centered-stencil output-grob)
-                               column-offset
-                               X)))
+    (ly:stencil-translate-axis
+     (ly:stencil-aligned-to output-grob X CENTER)
+     column-offset
+     X)))
 
 ;; Harmonic definitions
 
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 2a3701ea16..7413f6875e 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -569,7 +569,7 @@ chords.  Returns a placement-list."
 (define-public (fret-letter-tablature-format
                 context string-number fret-number)
   (let ((labels (ly:context-property context 'fretLabels)))
-    (make-vcenter-markup
+    (make-translate-scaled-markup '(0 . -0.5)
      (cond
       ((= 0 (length labels))
        (string (integer->char (+ fret-number (char->integer #\a)))))