Re: Taille de l'accords avec l'extension "/bass"

[Ya Gloops]

Génial merci Jean !
Est-ce important que chordNameFunction se trouve dans le context Score par 
rapport au ChordNames ?
Les deux on l'air de fonctionner mais peut-être il y a t-il une subtilité !
Gilles






Le vendredi 2 décembre 2022 à 12:00:35 UTC+1, Jean Abou Samra 
<jean@abou-samra.fr> a écrit : 





Le 02/12/2022 à 10:28, Ya Gloops a écrit :
> Bonjour !
> J'ai vu une fonction de Jean, sur la liste anglaise, qui m'intéresse mais pas 
> pour la même raison…
> Je l'ai donc transformé pour l'adapter mais elle crée une erreur!
> En effet j'aimerais que, dans un chordname, l'extention antislash et bass 
> soit systématiquement un peu plus petit que le root!




Bonjour,

Voici la solution la plus simple à mon avis :

\version "2.23.82"

\layout {
  \context {
    \Score
    chordNameFunction =
      #(lambda (sorted-pitches bass inversion context)
         (let* ((name-root (ly:context-property context 'chordRootNamer))
                (slash-sep (ly:context-property context 
'slashChordSeparator))
                (after-slash (cond
                              ((ly:pitch? bass) bass)
                              ((ly:pitch? inversion) inversion)
                              (else #f)))
                (before-slash-markup
                 (ignatzek-chord-names sorted-pitches '() '() context))
                (slash-and-after-markup
                 (if after-slash
                     #{ \markup \fontsize #-2 { #slash-sep #(name-root 
after-slash #f) } #}
                     "")))
           #{ \markup { #before-slash-markup #slash-and-after-markup } #}))
  }
}

myChordNames =
\chords {
  c1 d1:7/g
}


<<
  \myChordNames
  \transpose c d \myChordNames
>>



Cordialement,

Jean