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

[Jean Abou Samra]

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

OpenPGP_signature
Description: OpenPGP digital signature