;; 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)
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
(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)))))