Hi MO,
I’m guessing it must be fairly simple to override how LilyPond names
notes, but I’d like to do it in the smartest possible way—without
affecting other functions.
Maybe something like this? Of course, it might be useful to put the part
between the % --- % lines in an include file.
\version "2.24"
% ------------------------------------------------------- %
#(define svinglish-note-names
`((cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
(cesseh . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
(cess . ,(ly:make-pitch -1 0 FLAT))
(ceh . ,(ly:make-pitch -1 0 SEMI-FLAT))
(c . ,(ly:make-pitch -1 0 NATURAL))
(cih . ,(ly:make-pitch -1 0 SEMI-SHARP))
(ciss . ,(ly:make-pitch -1 0 SHARP))
(cissih . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
(cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
(dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
(desseh . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
(dess . ,(ly:make-pitch -1 1 FLAT))
(deh . ,(ly:make-pitch -1 1 SEMI-FLAT))
(d . ,(ly:make-pitch -1 1 NATURAL))
(dih . ,(ly:make-pitch -1 1 SEMI-SHARP))
(diss . ,(ly:make-pitch -1 1 SHARP))
(dissih . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
(dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
(essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
(esseh . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
(ess . ,(ly:make-pitch -1 2 FLAT))
(eeh . ,(ly:make-pitch -1 2 SEMI-FLAT))
(e . ,(ly:make-pitch -1 2 NATURAL))
(eih . ,(ly:make-pitch -1 2 SEMI-SHARP))
(eiss . ,(ly:make-pitch -1 2 SHARP))
(eissih . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
(eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
(fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
(fesseh . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
(fess . ,(ly:make-pitch -1 3 FLAT))
(feh . ,(ly:make-pitch -1 3 SEMI-FLAT))
(f . ,(ly:make-pitch -1 3 NATURAL))
(fih . ,(ly:make-pitch -1 3 SEMI-SHARP))
(fiss . ,(ly:make-pitch -1 3 SHARP))
(fissih . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
(fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
(gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
(gesseh . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
(gess . ,(ly:make-pitch -1 4 FLAT))
(geh . ,(ly:make-pitch -1 4 SEMI-FLAT))
(g . ,(ly:make-pitch -1 4 NATURAL))
(gih . ,(ly:make-pitch -1 4 SEMI-SHARP))
(giss . ,(ly:make-pitch -1 4 SHARP))
(gissih . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
(gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
(assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
(asseh . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
(ass . ,(ly:make-pitch -1 5 FLAT))
(aeh . ,(ly:make-pitch -1 5 SEMI-FLAT))
(a . ,(ly:make-pitch -1 5 NATURAL))
(aih . ,(ly:make-pitch -1 5 SEMI-SHARP))
(aiss . ,(ly:make-pitch -1 5 SHARP))
(aissih . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
(aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
(hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
(hesseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
(bess . ,(ly:make-pitch -1 6 FLAT))
(beh . ,(ly:make-pitch -1 6 SEMI-FLAT))
(b . ,(ly:make-pitch -1 6 NATURAL))
(bih . ,(ly:make-pitch -1 6 SEMI-SHARP))
(biss . ,(ly:make-pitch -1 6 SHARP))
(bissih . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
(bississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
))
#(set! language-pitch-names
(cons (cons 'svinglish svinglish-note-names)
language-pitch-names))
% ------------------------------------------------------- %
\language svinglish
\relative {
c'4 d e f g a b c
}
Lukas
