From: Carl Sorensen <c_sorensen@byu.edu>
Date: Thu, 31 Jul 2008 03:45:34 +0000 (-0600)
Subject: Fix bug in curved barre location for fret-diagrams
X-Git-Tag: release/2.11.55-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1f6615cb36f0ba45702eabcddeb833e531f9ec1d;p=lilypond.git

Fix bug in curved barre location for fret-diagrams
---

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 6537ece10c..d86aeaf220 100644
--- 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)
-		   (* size (+ 1 (- top-fret fret) barre-fret-coordinate))
+		   (* size (+ 1 (- top-fret  barre-fret-coordinate)))
 		   (* size bezier-height)
 		   (* size bezier-thick)
 		   orientation)