From b14ca8cd4fd50af455590377c4fab5c504506635 Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 31 Mar 2009 13:10:08 -0600
Subject: [PATCH] Adjust FretBoards so all orientations share a common location
 (cherry picked from commit 9e19a8c11a89a330ae20c077b01719d233790eed)

---
 input/regression/fret-diagram-origins.ly | 6 +++---
 scm/fret-diagrams.scm                    | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/input/regression/fret-diagram-origins.ly b/input/regression/fret-diagram-origins.ly
index afba595b17..4042bf5ddd 100644
--- a/input/regression/fret-diagram-origins.ly
+++ b/input/regression/fret-diagram-origins.ly
@@ -30,9 +30,9 @@ of the topmost fret or string.
   }
 
   \new Voice {
-    c1 |
-    c1 |
-    c
+    c'1 |
+    c'1 |
+    c'
  }
 >>
 
diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 70390d2314..ce627b50fe 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -286,7 +286,8 @@ with magnification @var{mag} of the string @var{text}."
       in stencil coordinate system."
       (cond
         ((eq? orientation 'landscape)
-         (cons fret-coordinate string-coordinate))
+         (cons fret-coordinate
+               (- string-coordinate (1- string-count))))
         ((eq? orientation 'opposing-landscape)
          (cons (- fret-coordinate) (- string-coordinate)))
         (else
-- 
2.39.2