Subject: Re: changer l'extension de certains accords

From: legoss <[email-masked]>
Date: Thu, 12 Nov 2009 12:17:48 -0800 (PST)

Bon. Plusieurs mois plus tard, je me réponds à moi-même. Il y a beaucoup de
gens qui parlent tout seul... %-|
J'ai délicatement modifié les entrailles de la belle et voilà le résultat.
J'ai pris le fichier cité plus haut et je l'ai modifié. L'opération s'est
bien passée. Ce sont les extensions que j'ai choisies. A vous de créer les
vôtres... :-D

%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.12.0"

chordmodifiers = #default-chord-modifier-list

whiteTriangleMarkup = \markup {
  \triangle ##f
  %%  394 capital delta
  %#(ly:export (ly:wide-char->utf-8 #x0394))

  %% 2206 : delta from the symbol font.
  %   #(ly:export (ly:wide-char->utf-8 #x2206))
  
  %% up pointing triangle
  % #(ly:export (ly:wide-char->utf-8 #x25B3))
} 

blackTriangleMarkup = \markup {
  \triangle ##t

  %% black up pointing triangle
%  #(ly:export (ly:wide-char->utf-8 #x25B2))
}

ignatzekExceptionMusic = {
	%<c e gis>1-\markup { "+" }
	%<c es ges>-\markup { \smaller "o" } % should be $\circ$ ?
	%<c es ges bes>-\markup {
	  %%  f8 is o with slash.
	%  \smaller #(ly:export (ly:wide-char->utf-8 #x00f8))
	%}
	%<c es ges beses>-\markup { \smaller  "o7" }
<c f g>1-\markup { \smaller \smaller \smaller \smaller \smaller "Sus"
\smaller \smaller "4" } %sus4
<c ees g>1-\markup { \smaller \smaller "m" } %m
<c e g bes>1-\markup { \smaller \smaller "7" } %7
<c f g bes>1-\markup { \smaller \smaller "7"  \smaller \smaller \smaller
\smaller \smaller "Sus" \smaller \smaller "4" } %7sus4
<c es g bes>1-\markup { \smaller "m7" } %m7
<c d g>1-\markup { \smaller \smaller \smaller \smaller \smaller "Sus"
\smaller \smaller "2" } %sus2
<c e g b>1-\markup { \smaller \smaller "7M" } %maj7
<c e g b d'>1-\markup { \smaller \smaller "9M" } %maj9
<c e g bes d'>1-\markup { \smaller \smaller "9" } %9
<c e g a d'>1-\markup { \smaller \smaller "6/9" } %6.9
<c e g a>1-\markup { \smaller \smaller "6" } %6
<c e gis bes>1-\markup { \smaller \smaller {"7" \normal-size-super \smaller
\smaller \sharp "5"} } %7.5+
<c e gis bes d'>1-\markup { \smaller \smaller {"9" \normal-size-super
\smaller \smaller \sharp "5"} }%9.5+
<c e gis>1-\markup { \smaller \smaller {"+5"} } %5+
<c e ges>1-\markup { \smaller \smaller {"-5"} } %5-
<c e ges bes>1-\markup { \smaller \smaller {"7" \normal-size-super \smaller
\smaller \flat "5"} } %5-.7
<c e ges bes d'>1-\markup { \smaller \smaller {"9" \normal-size-super
\smaller \smaller \flat "5"} } %5-.9
<c ees ges bes>1-\markup { \smaller \smaller {"m7" \normal-size-super
\smaller \smaller \flat "5"} } %m7.5-
<c ees ges beses>1-\markup { \smaller \smaller {"dim7"} } %dim7
<c e g bes des'>1-\markup { \smaller \smaller {"7" \normal-size-super
\smaller \smaller \flat "9"} } %7.9-
<c e g bes dis'>1-\markup { \smaller \smaller {"7" \normal-size-super
\smaller \smaller \sharp "9"} }%7.9+
<c ees g bes d'>1-\markup { \smaller \smaller {"m9"} } %m9
}

partialJazzMusic = {
    <c d>1-\markup { \normal-size-super "2" }
    <c es>-\markup { "m" }
    <c f>-\markup { \normal-size-super "sus4" }
    <c g>-\markup { \normal-size-super "5" }
    
    %% TODO, partial exceptions
    <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
    <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
}

%% TODO: compatibility ignatzek code
fullJazzExceptions=
#(sequential-music-to-chord-exceptions ignatzekExceptionMusic #f)

partialJazzExceptions=
#(sequential-music-to-chord-exceptions partialJazzMusic #f)

ignatzekExceptions  =
#(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t)

%%%%%%%%%%%%%%%%%%%%%%%%%%

@+
-- 
View this message in context: http://n2.nabble.com/changer-l-extension-de-certains-accords-tp2320566p3995292.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.