1 %% Do not edit this file; it is auto-generated from input/new
2 %% This file is in the public domain.
6 lsrtags = "staff-notation,fretted-strings"
8 texidoc = "Tablature can be formatted using letters instead of
10 doctitle = "Letter tablature formatting"
13 #(define (letter-tablature-format str context event)
15 ((tuning (ly:context-property context 'stringTunings))
16 (pitch (ly:event-property event 'pitch)))
19 (string (integer->char
20 (+ (char->integer #\a)
21 (- (ly:pitch-semitones pitch)
22 (list-ref tuning (- str 1))))))))))
36 tablatureFormat = #letter-tablature-format