Improved patch for bezier barre indicators

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index d86aeaf22024e94f4c4bdc1d52efb40addae7d92..4e1ebfa5d4a012c5a8fd1ba6dd957554bd8ee5cc 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -366,7 +366,7 @@ Line thickness is given by @var{th}, fret & string spacing by
                  (make-bezier-sandwich-list
                   (* size barre-start-string-coordinate)
                   (* size barre-end-string-coordinate)
                  (make-bezier-sandwich-list
                   (* size barre-start-string-coordinate)
                   (* size barre-end-string-coordinate)

-                  (* size (+ 1 (- top-fret  barre-fret-coordinate)))
+                   (* size (+ 2 (- top-fret (+ low-fret barre-fret-coordinate))))

                   (* size bezier-height)
                   (* size bezier-thick)
                   orientation)
                   (* size bezier-height)
                   (* size bezier-thick)
                   orientation)