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"
14 #(define (letter-tablature-format str context event)
16 ((tuning (ly:context-property context 'stringTunings))
17 (pitch (ly:event-property event 'pitch)))
20 (string (integer->char
21 (+ (char->integer #\a)
22 (- (ly:pitch-semitones pitch)
23 (list-ref tuning (- str 1))))))))))
37 tablatureFormat = #letter-tablature-format