Re: numéro de notes

[Christian LE BARS]

Bonjour,

merci pour ce code qui effectivement résout mon problème.

Pour info je voulais faire un tableau des II V I voici le résultat:

\version "2.19.48"
#(set-global-staff-size 22) %taille des portées
\include "lilyjazz.ily"
%----------------------------------------------
\paper
 {
  oddFooterMarkup = \markup { \fill-line { \fromproperty #'header:title  } }
  print-page-number = ##t
  indent = 0\cm 
  page-breaking = #ly:page-turn-breaking
 }
 %-------------------------------------------------
\header
{
 title = \markup { \fontsize #1 \bold\italic "Les II V I"}
 subsubtitle = \markup { \fontsize #1  "Accords pour une main(gauche)"}
}
 %-----------------------------------------------------
    #(define Ez_numbers_engraver
    (make-engraver
    (acknowledgers
    ((note-head-interface engraver grob source-engraver)
    (let* ((context (ly:translator-context engraver))
    (tonic-pitch (ly:context-property context 'tonic))
    (tonic-name (ly:pitch-notename tonic-pitch))
    (grob-pitch
    (ly:event-property (event-cause grob) 'pitch))
    (grob-name (ly:pitch-notename grob-pitch))
    (delta (modulo (- grob-name tonic-name) 7))
    (delta (if (= delta 1) 8 delta) )
    (delta (if (= delta 3) 10 delta) )
    (delta (if (= delta 5) 12 delta) )
    (note-names
    (make-vector 7 (number->string (1+ delta)))))
    (ly:grob-set-property! grob 'note-names note-names))))))
%--------------------------------------------------------
LaTonalité =
\new ChordNames
  \with
   { \override BarLine.bar-extent = #'(-2 . 2)
     \consists "Bar_engraver"}
   {
    \override ChordNames.ChordName.font-family = #'roman
    \override ChordNames . ChordName #'font-size = #2
    \override ChordNames . ChordName .color =#red
    \chordmode
     {c1 b bes a aes g ges f e  ees1 d des }
   }
%-----------------------------------------------------
LeNomAccords=
  \new ChordNames
    {
     \override ChordNames.ChordName.font-family = #'roman
     \override ChordNames . ChordName #'font-size = #1
     \set chordChanges = ##t
     \set Score.majorSevenSymbol = \markup {Maj7}
     \set chordNameSeparator = \markup { "/" }
     \set minorChordModifier = \markup{"-"}
      \chordmode
       {  
        d4:m7 g:7 c2:maj7 cis4:m7 fis:7 b2:maj7c4:m7 f:7 bes2:maj7
        b4:m7 e:7 a2:maj7 bes4:m7 ees:7 aes2:maj7 a4:m7 d:7 g2:maj7
aes4:m7 des:7 ges2:maj7 g4:m7 c:7 f2:maj7 fis4:m7 b:7 e2:maj7
        f4:m7 bes:7 ees2:maj7 e4:m7 a:7 d2:maj7 ees4:m7aes:7 des2:maj7
        }
     }
%----------------------------------------
LesAccords =
 \new Staff
  \relative c'
    {
     \numericTimeSignature   
     \easyHeadsOn
     \key d\dorian <f a c e>4\key g\mixolydian<f a b e>\key c\ionian<e g
b d>2
      <e gis b dis>4\key f\lydian<e gis ais d>\key b\locrian <dis fis
ais cis>2
      \key c\ionian <ees g bes d>4 \key f\lydian<ees g a d>\key
b\locrian <d f a c>2\break
      \key b\locrian  <d fis a cis>4\key e\phrygian<d fis gis cis> \key
a\aeolian <cis e gis b>2
       \key b\locrian <des f aes c>4 \key e\phrygian<des f g c> \key
a\aeolian <c ees ges bes>2
       <c e g b>4  \key d\dorian <c e fis b> \key g\mixolydian<b d fis
a>2\break
       \key a\aeolian<ces ees ges bes>4\key d\dorian <b ees f bes>\key
g\mixolydian<bes des f aes>2
       <bes d f a>4 \key c\ionian <bes d e a>\key f\lydian<a c e g>2
       <a cis e gis>4\key b\locrian<a cis dis gis>\key e\phrygian <gis b
dis fis>2\break
       \key f\lydian<aes c ees g>4 \key b\locrian <aes c d g>\key
e\phrygian<g bes d f>2
       <g b d fis>4\key a\aeolian<g b cis fis> \key d\dorian <fis a cis e>2
       \key e\phrygian <ges bes des f>4\key a\aeolian<ges bes f' c> \key
d\dorian<f aes ees' c>2%\pageBreak
     }
%----------------------------------------
 \score
 {
  <<
     \LaTonalité
     \LeNomAccords
     \LesAccords
   >>
%------------------------------------------

 \layout
  {
   ragged-right = ##f
   \context
    {
     \Voice
     \consists \Ez_numbers_engraver
    }
  }
}