From: Carl Sorensen <c_sorensen@byu.edu>
Date: Mon, 22 Nov 2010 23:48:06 +0000 (-0700)
Subject: Fretboards -- add open strings to tab based on predefined diagram
X-Git-Tag: release/2.13.41-1~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=88bb870e3ca6c4f87866c629fa157847ea80bede;p=lilypond.git

Fretboards -- add open strings to tab based on predefined diagram
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 5380d67054..683f2aaae4 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -228,8 +228,11 @@ dot placement entries."
 
   (define (placement-list->string-frets placement-list)
     "Convert @var{placement-list} to string-fret list."
-    (map (lambda (x) (cdr x))
-         (filter (lambda (l) (eq? (car l) 'place-fret)) placement-list)))
+    (map (lambda (x) (if (eq? (car x) 'place-fret)
+                         (cdr x)
+                         (list (cadr x) 0)))
+         (filter (lambda (l) (or (eq? (car l) 'place-fret)
+                                 (eq? (car l) 'open))) placement-list)))
 
 
   (define (get-predefined-fretboard predefined-fret-table tuning pitches)