4 lsrtags = "staff-notation,fretted-strings"
6 texidoc = "Tablature can be formatted using letters instead of
8 doctitle = "Letter tablature formatting"
11 #(define (letter-tablature-format str context event)
13 ((tuning (ly:context-property context 'stringTunings))
14 (pitch (ly:event-property event 'pitch)))
17 (string (integer->char
18 (+ (char->integer #\a)
19 (- (ly:pitch-semitones pitch)
20 (list-ref tuning (- str 1))))))))))
34 tablatureFormat = #letter-tablature-format