From bc73875f9964366e9ee642a51658085ca4c475dd Mon Sep 17 00:00:00 2001 From: Torsten Date: Fri, 16 Nov 2012 15:09:55 +0100 Subject: [PATCH] Issue 2961: \fret-diagram-verbose with capo > 1 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Even if all dots and barrés fit in the default fret-range, the fret-range will have to be shifted if capo-fret > 1 in order to make sure that the capo will be the lowest fret in the fret diagram. See Issue 2961 for further information and an example. --- scm/fret-diagrams.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm index 83c4ee6..bac631a 100644 --- a/scm/fret-diagrams.scm +++ b/scm/fret-diagrams.scm @@ -229,7 +229,7 @@ with magnification @var{mag} of the string @var{text}." (if (> fretval maxfret) (set! maxfret fretval)) (if (< fretval minfret) (set! minfret fretval)) (updatemax (cdr fret-list))))) - (if (> maxfret my-fret-count) + (if (or (> maxfret my-fret-count) (> capo-fret 1)) (set! fret-range (cons minfret (let ((upfret (- (+ minfret my-fret-count) 1))) -- 1.7.0.4