X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftablature.scm;h=71b453c0fb7de0608038cfdef0d5e29e1d183802;hb=889f14a45c6bded8a0e0652af1de0381bfb0072b;hp=8d15fceeb406b6fcf38b65344b28cecc8ca55fbc;hpb=d9a5eddeaf8968204e605bc2201be888a834455a;p=lilypond.git

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 8d15fceeb4..71b453c0fb 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2009 Marc Hohl <marc@hohlart.de>
+;;;; Copyright (C) 2009--2010 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
@@ -22,7 +22,7 @@
 (define-public guitar-drop-d-tuning '(4 -1 -5 -10 -15 -22))
 (define-public guitar-open-g-tuning '(2 -1 -5 -10 -17 -22))
 (define-public guitar-open-d-tuning '(2 -3 -6 -10 -15 -22))
-(define-public guitar-dadgad-tuning '(2 -3 -7 -10 -15 -22))
+(define-public guitar-dadgad-tuning '(2 -3 -5 -10 -15 -22))
 (define-public guitar-lute-tuning '(4 -1 -6 -10 -15 -20))
 (define-public guitar-asus4-tuning '(4 -3 -8 -10 -15 -20))
 ;; bass tunings
@@ -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: