Merge branch 'master' into dev/texi2html

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

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 89219139c31790cf1d3455fadac8b012b3d29325..6537ece10c07d192dede7892980e65a902f7e934 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -147,7 +147,7 @@ fret & string spacing by @var{size}. Orientation is given by @var{orientation}"
          (y1 (- half-thick))
          (y2 (+ top-fret-thick half-thick))
          (x-extent (cons (- x1) x2))
-         (y-extent (cons 0 y2)))
+         (y-extent (cons sth top-fret-thick)))
     (if (eq? orientation 'normal)
         (ly:make-stencil (list 'round-filled-box x1 x2 y1 y2 sth)
                          x-extent y-extent)
@@ -551,8 +551,6 @@ indications per string.
          (ly:stencil-add
           (draw-strings string-count fret-range th size orientation)
           (draw-frets fret-range string-count th size orientation))))
-;    (display "PROPS \n") (display props) (display "\n")
-;    (display "DETAILS \n") (display details) (display "\n")
     (if (not (null? barre-list))
        (set! fret-diagram-stencil
              (ly:stencil-add