Re: changer l'extension de certains accords

[legoss]

Bon, j'ai bidouillé un truc à partir d'un exemple trouvé dans la doc :

\version "2.12.2"
chExceptionMusic = {
<c f g>1-\markup { \smaller \smaller \smaller "4" }                             
%sus4
<c ees g>1-\markup { \smaller \smaller \smaller "m" }                           
%m
<c e g bes>1-\markup { \smaller \smaller \smaller "7" }                         
%7
<c f g bes>1-\markup { \smaller \smaller \smaller "7/4" }                       
%7sus4
<c es g bes>1-\markup { \smaller \smaller \smaller "m7" }                       
%m7
<c d g>1-\markup { \smaller \smaller \smaller "2" }                             
%sus2
<c e g b>1-\markup { \smaller \smaller \smaller "7M" }                          
%maj7
<c e g b d'>1-\markup { \smaller \smaller \smaller "9M" }                       
%maj9
<c e g bes d'>1-\markup { \smaller \smaller \smaller "9" }                      
%9
<c e g a d'>1-\markup { \smaller \smaller \smaller "6/9" }                      
%6.9
<c e g a>1-\markup { \smaller \smaller \smaller "6" }                           
%6
<c e gis bes>1-\markup { \smaller \smaller \smaller {"7" \super \sharp "5"}
}       %7.5+
<c e gis bes d'>1-\markup { \smaller \smaller \smaller {"9" \super \sharp
"5"} }%9.5+
<c e gis>1-\markup { \smaller \smaller \smaller {\super \sharp "5"} }           
%5+
<c e ges bes>1-\markup { \smaller \smaller \smaller {"7" \super \flat "5"} }
%5-.7
<c e ges bes d'>1-\markup { \smaller \smaller \smaller {"9" \super \flat
"5"} } %5-.9
<c ees ges bes>1-\markup { \smaller \smaller \smaller {"m7" \super \flat
"5"} }  %m7.5-
<c ees ges beses>1-\markup { \smaller \smaller \smaller {"dim7"} }              
%dim7
<c e g bes des'>1-\markup { \smaller \smaller \smaller {"7" \super \flat
"9"} }  %7.9-
<c e g bes dis'>1-\markup { \smaller \smaller \smaller {"7" \super \sharp
"9"} }%7.9+
<c ees g bes d'>1-\markup { \smaller \smaller \smaller {"m9"} }                 
%m9
}

% Convert music to list and prepend to existing exceptions.
chExceptions = #( append
  ( sequential-music-to-chord-exceptions chExceptionMusic #t)
  ignatzekExceptions)

theMusic = \chordmode {
        
  a1:sus4 a1:m a1:7 a1:7sus4 a1:m7 a1:sus2 a1:maj7 \break 
  a1:maj9 a1:9 a1:6.9 a1:6 a1:7.5+ a1:5+.7.9 a1:5+ \break
  a1:5-.7 a1:5-.7.9 a1:m7.5- a1:dim7 a1:7.9- a1:7.9+ a1:m9 \break
  \set chordNameExceptions = #chExceptions
  a1:sus4 a1:m a1:7 a1:7sus4 a1:m7 a1:sus2 a1:maj7 \break 
  a1:maj9 a1:9 a1:6.9 a1:6 a1:7.5+ a1:5+.7.9 a1:5+ \break
  a1:5-.7 a1:5-.7.9 a1:m7.5- a1:dim7 a1:7.9- a1:7.9+ a1:m9 \break
}

\layout {
  ragged-right = ##f 
}

<< \context ChordNames \theMusic
   \context Voice \theMusic
>>  

ça marche !!! :jumping:
Il me reste 2 problèmes à résoudre : :-(
1 - Dans les extensions, les dièses et bémols sont soit trop bas soit trop
hauts (si j'utilise \super, comme c'est le cas ici) ;
2 - comment rendre tout ça intégrable dans le fichier de mon recueil, pour
que ce dernier tienne automatiquement compte des changements d'extensions ? 
-- 
View this message in context: 
http://n2.nabble.com/changer-l%27extension-de-certains-accords-tp2320566p2321367.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.