\version "2.14.2"
\language "english"
%#(ly:set-option 'point-and-click #f)
#(set-default-paper-size "a4")

\paper {
  indent = 0\mm
  ragged-bottom = ##f
  ragged-right = ##f
}

\header {
  title = \markup {
    \fill-line {
      \line { }
      \center-column {"Conservatoire à rayonnement départemental"
		      "des Alpes de Haute Provence"
		      "et réseau" }
      \line { }
    }
  }

  subtitle = \markup { \line { \vspace #1 }
		       \line { " Formation musicale " \char ##x2013 " premier cycle" } }
  subsubtitle = "ORAL"
  instrument = "contrôle d'avril 2012"
  tagline = \markup {
    \with-url
    #"http://lilypond.org/web/"
    \line {
      "Réalisé par JCM grâce à LilyPond version "
      #(ly:export (lilypond-version))
      \char ##x2013
      "http://lilypond.org " \char ##x2013 " Le logiciel libre"
    }
  }
}
%%% A
upper = \relative c' {
  \override Staff.TimeSignature #'stencil = ##f
  \cadenzaOn
  \clef "treble"
  f1^( d4 b a c e g) \bar "|"
  b1^( \change Staff = "lower" b,4 g c, f e d) \bar "|" \break
  \change Staff = "upper"
  <d' a'>1 s1 s4 \bar "|"
  e1( \change Staff = "lower" g,4 e a, f g)
  \bar "|."
}

lower = \relative c' {
  \override Staff.TimeSignature #'stencil = ##f 
  \cadenzaOn
  \clef bass
  \override Arpeggio #'positions = #'(0 . 4)
  \arpeggioArrowUp
  <g b>1 \arpeggio s1. 
  <c, a'>1  s1.
  f1_( \change Staff = "upper" e'4 g c b' c)
  \change Staff = "lower"
  <d,,, e>1 s1 s4
}

\score {
  \new PianoStaff <<
    \new Staff = "upper" {
      \upper
      }
    \new Staff = "lower" {
      \lower
      }
  >>
  \header {
    piece = \markup{ \vspace #2.25 }
  }
}


%%% B
LectureNoteA = \relative c'' {
  \cadenzaOn
  c1 d e f g g, a b c \bar "|"
  f,1 g f a f b f c' f, \bar "|" \break
  g,1 b a c b d c e f \bar "|"
  d'' c b a g f e c \bar "|."
}

\score {
  \new Staff \with {
    \remove "Time_signature_engraver"
    \remove "Clef_engraver"
    }

  \LectureNoteA

  \header {
    piece = \markup{ \vspace #2
		     \column {
		       " Lecture sans clé "
		       " La note de départ est donnée par le professeur. "
		   \vspace #1
		   }
  }
}
}



LectureNoteB = \relative c'' {
  \cadenzaOn
  g8[ a] c[ d] e[ f] g[ a] f[ e] d4\fermata \bar "|"
  c8[ b] a[ f] e[ d] c[ b] c4\fermata \bar "|" \break
  f8[ g] a[ b] e[ f] g[ a] g[ f] c4\fermata \bar "|"
  g'8[ a] b[ c] g4 g,,8[ a] b[ c] g'4\fermata \bar "|."
}

\score{
  \new Staff \with {
    \remove "Time_signature_engraver"
    \remove "Clef_engraver"
    }

  \LectureNoteB

  \header {
    piece = \markup{ \vspace #2
		     \column {
		       " Lecture sans clé "
		       " À lire dans la clé de l'instrument de l'élève. "
		   \vspace #1
		   }
  }
}
}