Re: Accords "a la real book" pour lilypond

[douwen elo]

salut et merci
intressant
pour l'envoi à nabble, désolé, j'ai durablement le réflexe de faire "répondre" 
comme dans tous mes autres listes de diffusion, mais sur celle ci ça envoie à 
l'expéditeur seulement..
bon
ton truc m'intéresse, mais un autre colisiter m'avait déjà envoyé qqch de 
similaire
sulement il n'y a aucune barre verticale et il m'avait indiqué que cétiat 
impossible pour  lilypond de faire cela       ...
qu'en penses tu ?
Sacha


Le 11 déc. 2011 à 10:21, Jean-Pierre GORGEON a écrit :

> %%%%%%%%%%%%
> \version "2.14.2"
> 
> \paper {
>   indent = 0
> }
> 
> \include "AccordsJazzDefs.ly"
> 
> accords = \chordmode {
>       a1:     g:/b    f2:m7 c:2  cis1:m7  \break
>       a:      b       a       a       \break
>       a:      a       e:m7+   b:9     \break
>       d:maj   r       a:      b:      \break
>       a:      d:7     r       aes:m6  \break
>       bes:7+  c:6     cis:m   d:m9    \break
>       \repeat percent 4 { d:m9  }
> }
> 
> \layout {
>       \context {
>               \type "Engraver_group"
>               \name "SupLine"
>               \alias "Staff"
>               \consists "Axis_group_engraver"
>               \consists "Staff_symbol_engraver"
>               \override StaffSymbol #'line-count = #1
>               \override VerticalAxisGroup #'staff-affinity = #DOWN
>       }
>       \context {
>               \type "Engraver_group"
>               \name "OneLine"
>               \alias "Staff"
>               \consists "Axis_group_engraver"
>               \consists "Staff_symbol_engraver"
>               \override StaffSymbol #'line-count = #1
>       }
>        \context { \Score
>               \accepts "OneLine"
>               \accepts "SupLine"
>               \remove "Bar_number_engraver"
>               proportionalNotationDuration = #(ly:make-moment 1 8)
>               \override SpacingSpanner #'strict-note-spacing = ##t
>       }
>       \context { \ChordNames
>               \consists "Bar_engraver"
>               \override BarLine #'bar-extent = #'(-2 . 6)      % espace ligne 
> accord (Inf . Sup ) 
>               \override ChordName #'font-size = #3            % Taille des 
> accords
>               \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing 
> #'padding = #0
>       }
> }
> 
> grille = \accords
> 
> \score {
>       <<
>               \new SupLine  \grille  
>               \new ChordNames  \grille   
>               \new OneLine  \grille
>       >>
> }
> %%%%%%%%%%
>