1 %% Do not edit this file; it is auto-generated from input/new
2 %% This file is in the public domain.
3 %% Note: this file works from version 2.12.0
7 lsrtags
= "staff-notation,fretted-strings"
9 texidoc
= "Tablature can be formatted using letters instead of
11 doctitle
= "Letter tablature formatting"
15 #(define
(letter-tablature-format str context event
)
17 ((tuning
(ly
:context-property context
'stringTunings
))
18 (pitch
(ly
:event-property event
'pitch
)))
21 (string
(integer-
>char
22 (+
(char-
>integer
#\a)
23 (-
(ly
:pitch-semitones pitch
)
24 (list-ref tuning
(- str
1))))))))))
38 tablatureFormat
= #letter-tablature-format