Adjust FretBoards so all orientations share a common location

[lilypond.git] / scm / fret-diagrams.scm

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