From 69db1861b7a13e3e4a081005bc0121816af0b406 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 12 Dec 2006 17:25:18 +0100 Subject: [PATCH] fix typo in banjo SCM code. Add regtest. --- input/regression/tablature-banjo.ly | 18 ++++++++++++++++++ scm/output-lib.scm | 2 +- 2 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 input/regression/tablature-banjo.ly diff --git a/input/regression/tablature-banjo.ly b/input/regression/tablature-banjo.ly new file mode 100644 index 0000000000..7e8dea3013 --- /dev/null +++ b/input/regression/tablature-banjo.ly @@ -0,0 +1,18 @@ +\version "2.10.0" + +\header +{ + texidoc = "Tablature may also be tuned for banjo." +} + +\new TabStaff << + \set TabStaff.tablatureFormat = #fret-number-tablature-format-banjo + \set TabStaff.stringTunings = #banjo-open-g-tuning + { + \stemDown + g8 d' g'\5 a b g e d' | + g4 d''8\5 b' a'\2 g'\5 e'\2 d' | + g4 + } +>> + diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 9075abd86f..91e5c42e25 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -87,7 +87,7 @@ (define-public (fret-number-tablature-format-banjo string context event) (let* - ((tuning (ly:context-property context 'stringTuning)) + ((tuning (ly:context-property context 'stringTunings)) (pitch (ly:event-property event 'pitch)) ) (make-whiteout-markup -- 2.39.2