From 6cf377378b908f695a04e2b7edee34b1f6e69abb Mon Sep 17 00:00:00 2001
From: Trevor Daniels <t.daniels@treda.co.uk>
Date: Wed, 27 Jan 2010 00:16:06 +0000
Subject: [PATCH] Fix residual unwanted whiteout in tablature
---
scm/tablature.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
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:
--
2.39.5