[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user-fr
Subject:    =?UTF-8?Q?Re=3A_Taille_alt=C3=A9rations_sur_les_fondamentales_des_ac?= =?UTF-8?Q?cords_=28chordRootN
From:       Pierre Perol-Schneider <pierre.schneider.paris () gmail ! com>
Date:       2021-04-28 10:49:35
Message-ID: CAPHOTuXuuMpRF=kRX241OzUcTCv3wuW88h6=TaboLema_2HHgg () mail ! gmail ! com
[Download RAW message or body]

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/
>
>

[Attachment #3 (text/html)]

<div dir="ltr"><div>Bonjour M4rt,</div><div>Essaie : \
<br></div><div><br></div><div>#(define (chordNamer pitch majmin)      ;majmin is un \
argument nécessaire à<br>&quot;chordNamer&quot; mais inutile ici<br>        (let* \
((alt (ly:pitch-alteration pitch)))<br>                (make-line-markup<br>          \
(list<br>                                (make-simple-markup<br>                      \
(vector-ref #(&quot;C&quot; &quot;D&quot; &quot;E&quot; &quot;F&quot; &quot;G&quot; \
&quot;A&quot; &quot;B&quot;)<br>                                                \
(ly:pitch-notename pitch)))<br>                                (if (= alt 0)          \
; alteration ?<br>                                        (markup &quot;&quot;)       \
;non<br>                                        (if (= alt FLAT)        ; b ou #<br>  \
(markup #:musicglyph &quot;accidentals.flat&quot;) ; (markup &quot;b&quot;)<br>       \
(markup #:musicglyph &quot;accidentals.sharp&quot;) ; (markup &quot;#&quot;)<br>      \
)<br>                                )<br>                        )<br>               \
)<br>        )<br>)</div><div><br></div><div>Cordialement,</div><div>Pierre<br></div></div><br><div \
class="gmail_quote"><div dir="ltr" class="gmail_attr">Le mer. 28 avr. 2021 à 12:40, \
M4rty &lt;<a href="mailto:martineau.simon@gmail.com">martineau.simon@gmail.com</a>&gt; \
a écrit :<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px \
0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Bonjour à tous,<br> \
<br> Je cherche à modifier la taille (\fontsize et eventuellement \raise) des<br>
altérations dans l&#39;écriture des accords en chiffrage américain, tout en<br>
conservant les symboles # et b par défaut. Comme on peut le voir sur la<br>
photo, c&#39;est un peu gros et bas.<br>
<br>
&lt;<a href="http://lilypond-french-users.1298960.n2.nabble.com/file/t395801/alt.jpg" \
rel="noreferrer" target="_blank">http://lilypond-french-users.1298960.n2.nabble.com/file/t395801/alt.jpg</a>&gt; \
<br> <br>
J&#39;ai trouvé ce code sur le forum, qui permet de changer les symboles par<br>
défaut et de les remplacer par des caractères. Je sais comment modifier la<br>
hauteur et la taille avec ce code, mais je ne sais pas comment faire pour<br>
conserver les symboles d&#39;altérations par défaut :<br>
<br>
#(define (chordNamer pitch majmin)      ;majmin is un argument nécessaire à<br>
&quot;chordNamer&quot; mais inutile ici<br>
        (let* ((alt (ly:pitch-alteration pitch)))<br>
                (make-line-markup<br>
                        (list<br>
                                (make-simple-markup <br>
                                        (vector-ref #(&quot;C&quot; &quot;D&quot; \
                &quot;E&quot; &quot;F&quot; &quot;G&quot; &quot;A&quot; \
                &quot;B&quot;)<br>
                                                (ly:pitch-notename pitch)))<br>
                                (if (= alt 0)                   ; alteration ?<br>
                                        (markup &quot;&quot;)             ;non<br>
                                        (if (= alt FLAT)        ; b ou #<br>
                                                (markup &quot;b&quot;)<br>
                                                (markup &quot;#&quot;)<br>
                                        )<br>
                                )<br>
                        )<br>
                )<br>
        )<br>
)<br>
<br>
\layout { {         \Score<br>
         chordRootNamer = #chordNamer } }<br>
<br>
Quelqu&#39;un connait la solution ?<br>
<br>
Merci !!<br>
<br>
<br>
<br>
--<br>
Sent from: <a href="http://lilypond-french-users.1298960.n2.nabble.com/" \
rel="noreferrer" target="_blank">http://lilypond-french-users.1298960.n2.nabble.com/</a><br>
 <br>
</blockquote></div>



[prev in list] [next in list] [prev in thread] [next in thread]