Hi!
Yes, that is a good idea.
I can also change in define-note-names.scm to achieve want I want but then I
have to do that every time a new version of Lilypond is released. But then I
can use \language ”svenska” which is what I want of everything else except h -b.
What I really want is this override:
Original i Swedish
(hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
(hesseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
(b . ,(ly:make-pitch -1 6 FLAT))
(heh . ,(ly:make-pitch -1 6 SEMI-FLAT))
(h . ,(ly:make-pitch -1 6 NATURAL))
(hih . ,(ly:make-pitch -1 6 SEMI-SHARP))
(hiss . ,(ly:make-pitch -1 6 SHARP))
(hissih . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
(hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
To common nowadays in Swedish:
:
(besses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
(besseh . ,(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))
(bissis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
Kind regards /MO
> 20 apr. 2025 kl. 16:34 skrev Lukas-Fabian Moser <l...@gmx.de>:
>
> 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
>
