From f29be3cf2d0571eb281a3ba7761bcc993fd024e6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Torsten=20H=C3=A4mmerle?= Date: Sat, 29 Dec 2012 16:10:43 +0000 Subject: [PATCH] \fret-diagram-verbose with capo > 1 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Issue 2961 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. --- scm/fret-diagrams.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm index 83c4ee6b7a..bac631a63e 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))) -- 2.39.2