Adjust FretBoards so all orientations share a common location

(cherry picked from commit 9e19a8c11a89a330ae20c077b01719d233790eed)

diff --git a/input/regression/fret-diagram-origins.ly b/input/regression/fret-diagram-origins.ly
index afba595b17ed94adacea9de62ae06c2fe4e27196..4042bf5ddd957a263f628a22c2b985968e37dc0e 100644 (file)
--- 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 70390d23148ca24e4a08503e841235180d3fae59..ce627b50fe137d2e218148aa101a61c1ab103d40 100644 (file)
--- 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