From 88bb870e3ca6c4f87866c629fa157847ea80bede Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Mon, 22 Nov 2010 16:48:06 -0700 Subject: [PATCH] Fretboards -- add open strings to tab based on predefined diagram --- scm/translation-functions.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) -- 2.39.5