\version"2.16.2"

#(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))))))) 

   %\markup \vspace #1

    \paper {
    top-margin = 10
    left-margin = 20
    right-margin = 10
    %ragged-last-bottom = ##f
    }

    \header {
    title = "CAPRICE No. 24"
    subtitle = ""
    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
    }

global = {
  \clef treble
  \key f\major
  \time 2/4
  \numericTimeSignature
  \tempo "Brillant" 4 = 100
}

    pianisteUnMainDroite =  \relative c' {

     %\override Score.BarNumber #'break-visibility = #'#(#f #t #t)      %numérotage des mesures
  \global
  \clef G
    
   | %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
  | % 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( \<
  | % 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' {

  \global
  \clef G
   |% mes.1
        R2
  | % mes.2
        r8. a'16 a( cis b! a) 
  | % 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'8-.] 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))
    \global
    \clef F
   
   | %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--
         \bar"|"
  | % mes.17
         \times 2/3 {r8 cis!8 (d }  \times 2/3 { ees!8 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))
  \global
    \clef F
   | % 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"  r8)             
  | % mes.13
        d8 r8 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"} <<
          \context Staff = "pianisteUnMainDroite" {  \pianisteUnMainDroite   }
         \context Staff = "pianisteUnMainGauche" {  \pianisteUnMainGauche   }
    >>

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


 \midi { \context {\Score tempoWholesPerMinute = # (ly:make-moment 100 4) 
 }

    }
    }

%%%%%%%%%%%%%%%%%%%%   fin du fichier    26.02.2015    %%%%%%%%%%