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