Index: scm/tablature.scm |
diff --git a/scm/tablature.scm b/scm/tablature.scm |
index d9a3676a1d6a60e3daa8afac7becaf0e29e775fc..2d473878ea4072727a5c4e42a7151ca887b71e77 100644 |
--- a/scm/tablature.scm |
+++ b/scm/tablature.scm |
@@ -85,14 +85,14 @@ |
(if (and (not (equal? X-extent empty-interval)) |
(= 1 (ly:grob-property grob 'duration-log))) |
- ;; yes -> return double stem X-extent |
- (let* ((single-stem-width (- (cdr X-extent) (car X-extent))) |
- (separation (ly:grob-property grob 'double-stem-separation 0.5)) |
- (total-width (+ single-stem-width separation)) |
- (half-width (/ total-width 2))) |
- (cons (- half-width) half-width)) |
- ;; no -> return simple stem X-extent |
- X-extent))) |
+ ;; yes -> return double stem X-extent |
+ (let* ((single-stem-width (- (cdr X-extent) (car X-extent))) |
+ (separation (ly:grob-property grob 'double-stem-separation 0.5)) |
+ (total-width (+ single-stem-width separation)) |
+ (half-width (/ total-width 2))) |
+ (cons (- half-width) half-width)) |
+ ;; no -> return simple stem X-extent |
+ X-extent))) |
(define-public (tabvoice::draw-double-stem-for-half-notes grob) |
(let ((stem-stencil (ly:stem::print grob))) |
@@ -100,14 +100,14 @@ |
(if (and (ly:stencil? stem-stencil) |
(= 1 (ly:grob-property grob 'duration-log))) |
- ;; yes -> draw double stem |
- (let* ((separation (ly:grob-property grob 'double-stem-separation 0.5)) |
- (half-separation (/ separation 2))) |
- (ly:stencil-add |
- (ly:stencil-translate-axis stem-stencil (- half-separation) X) |
- (ly:stencil-translate-axis stem-stencil half-separation X))) |
- ;; no -> draw simple stem (or none at all) |
- stem-stencil))) |
+ ;; yes -> draw double stem |
+ (let* ((separation (ly:grob-property grob 'double-stem-separation 0.5)) |
+ (half-separation (/ separation 2))) |
+ (ly:stencil-add |
+ (ly:stencil-translate-axis stem-stencil (- half-separation) X) |
+ (ly:stencil-translate-axis stem-stencil half-separation X))) |
+ ;; no -> draw simple stem (or none at all) |
+ stem-stencil))) |
;; as default, the glissando line between fret numbers goes |
;; upwards, here we have a function to correct this behavior: |