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