From: David Kastrup <dak@gnu.org>
Date: Mon, 6 Aug 2012 04:57:34 +0000 (+0200)
Subject: Issue 2714: item t:number (line thickness) in fret diagrams leads to scheme error
X-Git-Tag: release/2.15.95-1~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cb1ed5454505543b19643647ee156ffae3aca8cf;hp=bc573af397a1b54f35fb1f95b3ee2e5360d4152f;p=lilypond.git

Issue 2714: item t:number (line thickness) in fret diagrams leads to scheme error
---

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index cd734b2ecf..a6645dc762 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -821,6 +821,8 @@ a fret-indication list with the appropriate values"
            (case (car (string->list (substring test-string 0 1)))
              ((#\s) (let ((size (get-numeric-from-key test-string)))
                       (set! props (prepend-alist-chain 'size size props))))
+             ((#\t) (let ((th (get-numeric-from-key test-string)))
+                      (set! props (prepend-alist-chain 'thickness th props))))
              ((#\f) (let* ((finger-code (get-numeric-from-key test-string))
                            (finger-id (case finger-code
                                         ((0) 'none)
@@ -1029,8 +1031,9 @@ spaces).
 Default:@tie{}1.
 
 @item
-@code{t:}@var{number} -- Set the line thickness (in staff spaces).
-Default:@tie{}0.05.
+@code{t:}@var{number} -- Set the line thickness (relative to normal
+line thickness).
+Default:@tie{}0.5.
 
 @item
 @code{h:}@var{number} -- Set the height of the diagram in frets.