lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Taille altérations sur les fondamentales des accords (chordRootNamer


From: Pierre Perol-Schneider
Subject: Re: Taille altérations sur les fondamentales des accords (chordRootNamer ?)
Date: Wed, 28 Apr 2021 12:49:35 +0200

Bonjour M4rt,
Essaie :

#(define (chordNamer pitch majmin)      ;majmin is un argument nécessaire à
"chordNamer" mais inutile ici
        (let* ((alt (ly:pitch-alteration pitch)))
                (make-line-markup
                        (list
                                (make-simple-markup
                                        (vector-ref #("C" "D" "E" "F" "G" "A" "B")
                                                (ly:pitch-notename pitch)))
                                (if (= alt 0)                   ; alteration ?
                                        (markup "")             ;non
                                        (if (= alt FLAT)        ; b ou #
                                                (markup #:musicglyph "accidentals.flat") ; (markup "b")
                                                (markup #:musicglyph "accidentals.sharp") ; (markup "#")
                                        )
                                )
                        )
                )
        )
)

Cordialement,
Pierre

Le mer. 28 avr. 2021 à 12:40, M4rty <martineau.simon@gmail.com> a écrit :
Bonjour à tous,

Je cherche à modifier la taille (\fontsize et eventuellement \raise) des
altérations dans l'écriture des accords en chiffrage américain, tout en
conservant les symboles # et b par défaut. Comme on peut le voir sur la
photo, c'est un peu gros et bas.

<http://lilypond-french-users.1298960.n2.nabble.com/file/t395801/alt.jpg>

J'ai trouvé ce code sur le forum, qui permet de changer les symboles par
défaut et de les remplacer par des caractères. Je sais comment modifier la
hauteur et la taille avec ce code, mais je ne sais pas comment faire pour
conserver les symboles d'altérations par défaut :

#(define (chordNamer pitch majmin)      ;majmin is un argument nécessaire à
"chordNamer" mais inutile ici
        (let* ((alt (ly:pitch-alteration pitch)))
                (make-line-markup
                        (list
                                (make-simple-markup
                                        (vector-ref #("C" "D" "E" "F" "G" "A" "B")
                                                (ly:pitch-notename pitch)))
                                (if (= alt 0)                   ; alteration ?
                                        (markup "")             ;non
                                        (if (= alt FLAT)        ; b ou #
                                                (markup "b")
                                                (markup "#")
                                        )
                                )
                        )
                )
        )
)

\layout { {         \Score
         chordRootNamer = #chordNamer } }

Quelqu'un connait la solution ?

Merci !!



--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/


reply via email to

[Prev in Thread] Current Thread [Next in Thread]