\version "2.12.3"

#(set-global-staff-size 20)
#(define (override-color-for-all-grobs color)  ; instructions Scheme pour mettre
  (lambda (context)                                  ; tous les objets en couleur
   (let loop ((x all-grob-descriptions))          ; sauf la clé ! 
    (if (not (null? x))                                 ; qu'il a donc fallu rajouter autrement
     (let ((grob-name (caar x)))
      (ly:context-pushpop-property context grob-name 'color color)
      (loop (cdr x))))))) 

\paper {
    #(set-paper-size "a4")
    top-margin = 10\mm
    left-margin = 20\mm
    right-margin = 10\mm
    line-width = 180\mm
    ragged-last-bottom = ##t
    }
\header {
    title = "CAPRICE No. 24"
    meter = \markup \bold "Pour piano à 4 mains"
    composer = "Nicolo PAGANINI"
    copyright = " J.G-B (10.03.2015)"
    tagline = "" % pour ne pas mettre de "tagline" à la fin de la partition
    }

pianisteUnMainDroite = \relative c'
{
  \clef treble
  \key f \major
  \time 2/4
  \tempo "Brillant" 4 = 100
    
%mes.1      
         d'8^.^> [ r16 d]  d f e d        
% mes.2
         a'8^. r8 r4
% mes.3
        d,8^. ^> [r16 d ]          
           \once\override Slur #'control-points = #'((0.5 . 2) (4 . 6) (22 . 8) (23 . -5))
            d16 (f e d ) 
% mes.4        
              a'4^-
            r4             
     \bar ":|"
      
% mes.5       
        \set Score.markFormatter = #format-mark-box-letters
         \mark\default    % inscrit la lettre  A          
        d8^.^> \mp [ r16 d16] d( ees d c
% mes.6
        bes8^.) [ r16 g16] g( bes a g)
% mes.7
       c8^.^> [ r16  c16] c( d c bes
% mes.8
        a8^.) [ r16 f16] f( a g f) 
        \bar "|" \break
% mes.9
       bes8^.^> _\markup\italic "crec." [ r16 e,] e( g f e)
% mes.10 |% mes.11 
        a8^.^>[ r16 d,] d(f e d)
        \showStaffSwitch \change Staff = "pianisteUnMainGauche" \stemDown bes8^.^>[
        \hideStaffSwitch
        \change Staff = "pianisteUnMainDroite" r16 \f g'16 ]  
        \change Staff = "pianisteUnMainGauche"          
        %\once\override Slur #'control-points = #'((0.5 . 5) (2 . 23) ( 23 . 15) ( 21 . 15))
        \stemUp a,16(
        \change Staff = "pianisteUnMainDroite" \stemDown a'16 g e              
% mes.12  
       r4 \< <f a d^.>8)\! r8                
% mes.13          
         \mark\default   
         <d f a^.>8 \mp r8 r4         
% mes.14
         <cis g' a^.>8 r8 r4 %même sans ! le dièse sera marqué
% mes.15        
         <d f a^.>8 r8 r4 
% mes.16      
        <cis! g' a>4 ^> r4
        \bar ":|" \break
% mes.17                
         \mark\default    
         d'8^. \mf r8 fis,4( \< %d'8^. et non d'8-.
% mes.18
         g8^.) \! r8 r4
% mes.19
       c8^. r8 e,4( \<
% mes.20
        f8^.) \! r8 r4
        \bar "|" \break
% mes. 21
        bes8^. _\markup\italic "cresc." [ r8 e,] r8
% mes.22
        c'^. [ r8 d,^.] 
        r8 
        \change Staff = "pianisteUnMainGauche"
        \override Stem #'direction = #UP
       \times 2/3 { bes8
       \change Staff = "pianisteUnMainDroite"
       \override Stem #'direction = #DOWN
       d8 g }
       \change Staff = "pianisteUnMainGauche"
        \override Stem #'direction = #UP
        \times 2/3 { a,8
       \change Staff = "pianisteUnMainDroite"
       \override Stem #'direction = #DOWN
       e'8 a }        
% mes.23     
%mes.24
        r4\f \< <f a d^.>8 \! r8
}

pianisteUnMainGauche = \relative c' {
  \clef treble
  \key f \major
  \time 2/4
% mes.1
        R2
% mes.2
        r8. a'16 a( cis b a) %avec b seulement lilypond comprend qu'il s'agit d'un becar et il le marque, donc ! inutile
% mes.3
      R2 
% mes.4        
      r4      
      a4_-    
% mes 5
        d2(
% mes.6
       bes2)
% mes.7
        c(
% mes.8
        a) 
% mes.9
       bes2^-
% mes.10
        a2_- 
% mes.11 
        s2
% mes 12         
     d4-- s4
% mes.13
        r4 a8_. r8
% mes.14
        r4 a8_. r8 
% mes.15  
        r4 a8_. r8
% mes 16
        r4 a_>
% mes 17
        d8^. r8 a4(
% mes 18
        g8^.) [ r8 d'^.] r8
% mes 19
        c8^. r8 g4(
% mes 20
        f8_.)[ r8 c'8_.] r8
%mes.21
        r4 bes8-. r8
% mes.22
        r4 a8_. r8
%mes.23
        s2
%mes.24
        d4-> r4
}

pianisteDeuxMainDroite = \relative c' { 
      \override Staff.StaffSymbol #'color = # blue
      \override Staff.Clef #'color = # blue
		\applyContext #(override-color-for-all-grobs (x11-color 'blue))
  \clef bass
  \key f \major
  \time 2/4
%mes.1
        <f, a d^.>8\f r8 r4
% mes.2
        <g a cis>8 r8 r4 
% mes.3
        <f a d>8 r8 r4
% mes.4
        <g a cis^->2       
% mes.5 6 7 8        
         << { \override Stem #'direction = #UP r4 <c d>4 r4 <bes d>4 r4 <bes c>4 r4 <a c>4 } 
         \\
         { \override Stem #'direction = #DOWN fis2 \mp_( g2) e_( f) } >>        
% mes.9
         r4 _\markup\italic "cresc." <e bes' d>4
% mes.10
         r4 <f a d>4
% mes.11
        <g bes d^.>8 \f r8 <g a cis^.>8 r8
% mes.12    
        r4 \< <f a d-.>8 \! r8     
% mes.13        
       \times 2/3 { r8 \mp d'( e } \times 2/3 { f e d) }
% mes.14
         \times 2/3 { r8 (a b } \times 2/3 { cis bes a) }
% mes.15
        \times  2/3 { r8 d( e } \times 2/3 { f e d) } 
% mes.16
         r4 a4--
% mes.17
         \times 2/3 { r8 cis8( d } \times 2/3 { ees8 d c! } 
% mes.18
          \times 2/3 { bes g a } \times 2/3 { bes a g) }
% mes.19
         \times 2/3 { r8 b( c } \times 2/3 { d c bes }
% mes.20
          \times 2/3 { a f g } \times 2/3 { a g f) }
%mes.21  
        \times 2/3 { bes->( e, d_\markup\italic "cresc." } \times 2/3 { g f e) }
%mes.22
        \times 2/3 { a->( d, e } \times 2/3 { f e d) }
%mes.23
        r4 <g a cis!-.>8 r8
%mes.24
        <f a d-- >4\f \< <f a d>8 \! r8
        \bar ":|"
}

pianisteDeuxMainGauche = \relative c' {
      \override Staff.StaffSymbol #'color = # blue
      \override Staff.Clef #'color = # blue
		\applyContext #(override-color-for-all-grobs (x11-color 'blue))
\clef bass
  \key f \major
  \time 2/4
% mes.1
       d,,8_. r8 r4
% mes.2
       a'8_. r8 r4
% mes.3
       d,8 r8 r4  
% mes.4
      a'2_-        
% mes.5
       d,2(
% mes.6
       a') 
% mes.7
        c,( 
% mes.8
        f)
% mes.9
         g4 r4
% mes.10
         f r4
% mes.11          
         e8_. r8 a_. r8           
% mes.12         
%         \once\override Slur  #'control-points = #'((0.5 . 2) (4 . 15) (6 . 15) (8 . 15)) 
         d4( r4             %\change Staff = "pianisteDeuxMainDroite" inutile ici
% mes.13
        d8) r r4
% mes.14
        a'8 r8 r4 
% mes.15
         d,8 r8 r4
% mes.16
        a'4 r4
% mes.17
         d,8 r8 r4             
% mes.18
         g8 r8 r4
% mes. 19
        c,8 r8 r4
% mes.20
         f8 r8 r4
%mes.21
        g8 r8 r4
%mes. 22
        f8 r8 r4
%mes.23
        e8 r8 a8 r8
%mes.24
        \times 2/3 { d,8( f a } d8-.->) r8
}

\score {
    <<
    \new PianoStaff  = "pianisteUn" \with {instrumentName = "Prima"} 
		<<
          \new Staff = "pianisteUnMainDroite" \pianisteUnMainDroite  
          \new Staff = "pianisteUnMainGauche" \pianisteUnMainGauche 
		>>

    \new PianoStaff = "pianisteDeux" \with { instrumentName = "Seconda" }
		<<
         \new Staff = "pianisteDeuxMainDroite" \pianisteDeuxMainDroite
         \new Staff = "pianisteDeuxMainGauche" \pianisteDeuxMainGauche
      >>
	>>
\layout {           
#(layout-set-staff-size 20)
            %\context 
            %\Score \override SpacingSpanner #'common-shortest-duration
            %= #(ly:make-moment 100)    % pour "étirer" plus ou moins les mesures
} 
}