Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(2956)

Unified Diff: scm/tablature.scm

Issue 555490045: Run find -name \*.scm -exec scripts/auxiliar/fixscm.sh {} + (Closed)
Patch Set: Created 4 years ago
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « scm/stencil.scm ('k') | scm/time-signature-settings.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
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:
« no previous file with comments | « scm/stencil.scm ('k') | scm/time-signature-settings.scm » ('j') | no next file with comments »

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b