From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 31 Mar 2009 19:10:08 +0000 (-0600)
Subject: Adjust FretBoards so all orientations share a common location
X-Git-Tag: release/2.12.3-1~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b14ca8cd4fd50af455590377c4fab5c504506635;p=lilypond.git

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