Re: Centrer une note entre deux portées

[Bigane]

Bonsoir,

Voici donc le résultat avant une mise en page. C'est conforme à ce que 
je voulais obtenir.
Il me reste à espacer les partitions du bloc de texte afin d'en avoir 
six lignes au total dans une page.
J'ai aussi comme soucis les "bar"s invisibles qui espacent un peu trop 
les notes. Ce n'est pas très beau.

Sinon, je comme je le pensais, Lilypond peut faire pratiquement tout.

A+
Yves


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

\version "2.12.1"

\header {
 copyrightYear = "2009"
 %title = \markup \column { \fill-line { "Entrainement" } }
 tagline = ""
}

\include "italiano.ly"
#(set-global-staff-size 16)
#(ly:set-option 'point-and-click #f) % supprime le clic http sur les notes


\layout {
 \context { \Score
   \override VerticalAlignment #'max-stretch = ##f
   \remove Bar_number_engraver % suppression des numéros de Bar
   \override LedgerLineSpanner #'color = #red
   \override LedgerLineSpanner #'extra-offset = #'(0 . -1.25)
   \override TimeSignature #'stencil = ##f
   \override Stem #'transparent = ##t
 }
}

\paper {
 #(define page-breaking ly:minimal-breaking)
 ragged-last-bottom = ##t
 indent = 10\mm % retrait de la première portée
 between-system-padding = #3.0 % espace entre les portées
}

%%%% Macros %%%%

#(define (deplacer grob)
 "Calcule un déplacement de la note si c'est un do' "
 (cond ((= -6 (ly:grob-property grob 'staff-position)) '(0 . -1.25))
       (else '(0 . 0))
 )
)

#(define (colorier grob)
 "Colorie certaines notes en rouge selon leur postions"
 (let ((position (ly:grob-property grob 'staff-position) ))
   (case position
     ;; Retourne une couleur selon la position de la note
     ((-6)   (x11-color 'red ))   ; do'
     (else   (x11-color 'black )) ; autres notes
   )
 )
) 

presentation = {
   \override Staff.NoteHead #'color = #colorier
   \override Staff.NoteHead #'extra-offset = #deplacer
}

dropLyrics = {
 \override LyricText #'extra-offset = #'(0 . -5)
 \override LyricHyphen #'extra-offset = #'(0 . -5)
 \override LyricExtender #'extra-offset = #'(0 . -5)
}
raiseLyrics = {
 \revert LyricText #'extra-offset
 \revert LyricHyphen #'extra-offset
 \revert LyricExtender #'extra-offset
}

%%%% bookpart %%%%%

\bookpart {
 \markuplines {
  
   %%%% Texte Haut + petite partition
   \fill-line { % une ligne centrée
     \null
     \left-align \line {
       \override #'(line-width . 40) \vcenter \justify {
         Lire lentement, avec la plus grande
         régulatité, afin de bien mémoriser les
         notes repères imprimées en rouge (on
         peut utiliser le métronome, environ 60
         à la note).
       }
      
       \hspace #90
       \vcenter  \right-align \score {
         \new PianoStaff <<
           \set Score.defaultBarType = #""
           \new Staff = "upper" {
             \clef treble
             \presentation
             { s2 do'4 s4    re'4 s4 s2    do'4 s4 s2   s1 }
             \bar "|"
           }
           \addlyrics { 
               \markup { \bold \with-color #red "DO" }
               \markup { \bold "ré" }
               \markup { \bold \with-color #red "DO" }
           }
           \new Staff = "lower" {
             \clef bass
             \presentation
             { s1            s1            s1           si4  s4  s2 }
             \bar "|"
           }
           \addlyrics { 
               \markup { "si" }
           }
         >>
         \layout {
           ragged-right = ##t
          
         }
       }
     }
   }

   %%%% Partition 1a
   \fill-line {
   \score {
     \new PianoStaff <<
       \set PianoStaff.instrumentName = \markup { \bold \huge " 1" }   
       \set Score.defaultBarType = #""
       \new Staff { \clef treble \presentation
         { do'4  re' re' do' do' s4  s4  do' re' re' do' s4  \break }
       }
       \new Staff { \clef bass \presentation
         { s4    s4  s4  s4  s4  si  si  s4  s4  s4  s4  si  \break }
       }
     >>
     \layout {
       ragged-right = ##f
     }
   }
   }

   %%%% Partition 1b
   \score {
     \new PianoStaff <<
       \set PianoStaff.instrumentName = \markup { \bold \huge "  " }   
       \set Score.defaultBarType = #""
       \new Staff { \clef treble \presentation
         { do'4  s4  s4  do' s4  do' re' s4  do' s4  re' do' \bar "|." }
       }
       \new Staff { \clef bass \presentation
         { s4    si  si  s4  si  s4  s4  si  s4  si  s4  s4  \bar "|." }
       }
     >>
     \layout {
       ragged-right = ##f
     }
   }
  
  
 }
}

%%%% FIN %%%%