X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftablature.scm;h=5dd774aac83f58d397caab89ee0156bb8a917bbf;hb=297e9f6f16be3a451f2381c00e7f44ac61232154;hp=c26af257c8df13b1c14161a7314a6c201ffd99a7;hpb=2f320e9722ec20d6f13ec567d007763cc912c5da;p=lilypond.git

diff --git a/scm/tablature.scm b/scm/tablature.scm
index c26af257c8..5dd774aac8 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -78,6 +78,16 @@
 
 ;; if stems are drawn, it is nice to have a double stem for
 ;; (dotted) half notes to distinguish them from quarter notes:
+(define-public (tabvoice::make-double-stem-width-for-half-notes grob)
+  (let ((X-extent (ly:stem::width grob)))
+
+    ;; is the note a (dotted) half note?
+    (if (= 1 (ly:grob-property grob 'duration-log))
+        ;; yes -> return double stem width
+        (cons (car X-extent) (+ 0.5 (* 2 (cdr X-extent))))
+        ;; no -> return simple stem width
+        X-extent)))
+
 (define-public (tabvoice::draw-double-stem-for-half-notes grob)
   (let ((stem (ly:stem::print grob)))