fret-diagram with barre returns weird output

issue 4428

take the fret-settings from barre into account

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index f8ccb59a111886ce250590d822c6f7bb9624aa6e..5b6580d650a31932236c951c1018ef9f4ca7c1a1 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -261,6 +261,9 @@ 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)))))
+      ;; take frets of 'barre-settings into account
+      (if (not (null? barre-list))
+          (set! minfret (apply min minfret (map last barre-list))))
       (if (or (> maxfret my-fret-count) (> capo-fret 1))
           (set! fret-range
                 (cons minfret