;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2009--2014 Marc Hohl <marc@hohlart.de>
+;;;; Copyright (C) 2009--2015 Marc Hohl <marc@hohlart.de>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
(let ((style (ly:grob-property grob 'style)))
(case style
- ((cross slash) (stencil-whiteout (ly:note-head::print grob)))
+ ((cross slash) (stencil-whiteout-box (ly:note-head::print grob)))
(else (tab-note-head::print grob)))))
;; definitions for the "moderntab" clef:
;; 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)
(offset-factor (assoc-get 'head-offset details 3/5))
(column-offset (* offset-factor
(interval-length
- (ly:stencil-extent
- (grob-interpret-markup grob "8")
- X)))))
+ (ly:stencil-extent ref-grob X)))))
(if (is-harmonic? grob)
(set! output-grob (harmonic-proc output-grob
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