From: Trevor Daniels Date: Wed, 27 Jan 2010 00:16:06 +0000 (+0000) Subject: Fix residual unwanted whiteout in tablature X-Git-Tag: release/2.13.12-1~41 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6cf377378b908f695a04e2b7edee34b1f6e69abb;p=lilypond.git Fix residual unwanted whiteout in tablature --- diff --git a/scm/tablature.scm b/scm/tablature.scm index 702d15108b..a3efa78670 100644 --- a/scm/tablature.scm +++ b/scm/tablature.scm @@ -220,13 +220,15 @@ (tab-note-head-parenthesized (assoc-get 'parenthesize repeat-tied-properties #t))) (if tab-note-head-visible - ;; tab note head is visible - (if tab-note-head-parenthesized + ;; tab note head is visible + (if tab-note-head-parenthesized (ly:grob-set-property! tied-tab-note-head 'stencil (lambda (grob) (parenthesize-tab-note-head grob)))) ;; tab note head is invisible - (ly:grob-set-property! tied-tab-note-head 'transparent #t)))) + (begin + (ly:grob-set-property! tied-tab-note-head 'transparent #t) + (ly:grob-set-property! tied-tab-note-head 'whiteout #f))))) ;; the slurs should not be too far apart from the corresponding fret number, so ;; we move the slur towards the TabNoteHeads: