%% Do not edit this file; it is auto-generated from input/new
-\version "2.11.35"
+%% This file is in the public domain.
+%% Note: this file works from version 2.12.0
+\version "2.13.1"
\header {
+ lsrtags = "staff-notation,fretted-strings"
+
+ texidoc = "Tablature can be formatted using letters instead of
+numbers."
doctitle = "Letter tablature formatting"
- lsrtags = "guitar"
- texidoc = "
-You can format a tablature with letters instead of numbers - so that
-0->a, 1->b, 2->c, etc.
+} % begin verbatim
+
-BROKEN IN 2.11, COMMENTED OUT."
+#(define (letter-tablature-format str context event)
+ (let*
+ ((tuning (ly:context-property context 'stringTunings))
+ (pitch (ly:event-property event 'pitch)))
+ (make-whiteout-markup
+ (make-vcenter-markup
+ (string (integer->char
+ (+ (char->integer #\a)
+ (- (ly:pitch-semitones pitch)
+ (list-ref tuning (- str 1))))))))))
+
+music = \relative c {
+ c4 d e f
+ g4 a b c
+ d4 e f g
}
-{ c'4 }
+
+<<
+ \new Staff {
+ \clef "G_8"
+ \music
+ }
+ \new TabStaff \with {
+ tablatureFormat = #letter-tablature-format
+ }
+ {
+ \music
+ }
+>>