From 1f6615cb36f0ba45702eabcddeb833e531f9ec1d Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Wed, 30 Jul 2008 21:45:34 -0600
Subject: [PATCH] Fix bug in curved barre location for fret-diagrams

---
 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 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)
-- 
2.39.5