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.
(if (> fretval maxfret) (set! maxfret fretval))
(if (< fretval minfret) (set! minfret fretval))
(updatemax (cdr fret-list)))))
(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)))
(set! fret-range
(cons minfret
(let ((upfret (- (+ minfret my-fret-count) 1)))