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

\paper {
  indent = 0\mm
  ragged-bottom = ##f
  ragged-last-bottom = ##f
  top-margin = 5\mm
  top-markup-spacing = 5\mm
  bottom-margin = 5\mm
%  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 }
    \fill-line { \line { }
		 \line { " Formation musicale " \char ##x2013 " Cycle I" }
		 \line { } }}
  subsubtitle = \markup {
    \fill-line { \line { }
		 \line { DICTÉES }
		 \line { } }}
  instrument = \markup {
    \fill-line { \line { }
		 \line { examen de fin de cycle  \char ##x2013 mai 2012 }
		 \line { } }}
  tagline = \markup {
    \line {
      Réalisé par J.-C. Malahieude grâce à LilyPond version
      $(lilypond-version)
      \char ##x2013 http://lilypond.org \char ##x2013 Le logiciel libre
    } }
}

%% FONCTIONS et RACOURCIS
%once override bar
oob = { \once \override Staff.BarLine #'stencil = ##f }
%cache Notes
cN = { \hideNotes \override Staff.Rest #'transparent = ##t }
%cache Silences
cS = \override Staff.Rest #'transparent = ##t 
%montre Notes
mN = \unHideNotes
%début Groupe
dG = \startGroup
%fin Groupe
fG = \stopGroup
circle =
  \once \override NoteHead #'stencil = #(lambda (grob)
    (let* ((note (ly:note-head::print grob))
           (combo-stencil (ly:stencil-add
               note
               (circle-stencil note 0.1 0.8))))
          (ly:make-stencil (ly:stencil-expr combo-stencil)
            (ly:stencil-extent note X)
            (ly:stencil-extent note Y))))
Qui = \markup {  \line { \vspace #2 } \line { \concat {
  "Nom : "
  \override #'(span-factor . 1/3 ) \draw-hline
  " Prénom : "
  \override #'(span-factor . 1/4 ) \draw-hline
  " Ville : "
  \override #'(span-factor . 1/5 ) \draw-hline } }
}

%%% Formules rythmiques
rFormules = \relative c'' {
  \bar "" 
  \tag #'Prof { \mN } \tag #'Eleve { \cN } \mark \default
  \time 3/4
  a4-\tag #'Prof ^"(0,5 pt)" a8 a16 a a4
  \stopStaff s2. \startStaff \mark \default
  \time 3/4
  a8-\tag #'Prof ^"1,5 pt" a4 a8 a4 
  \stopStaff s2. \startStaff \mark \default
  \time 3/4
  a4.-\tag #'Prof ^"1,5 pt" a8 a4 \break \mark \default
  \time 6/8
  a8.-\tag #'Prof ^"1 pt" a16 a8 a4.
  \stopStaff s2. \startStaff \mark \default
  \time 6/8
  a4-\tag #'Prof ^"0,5 pt" a8 a4.
}

%%% Formules rythmiques
rDictee = \relative c'' {
  \bar "" 
  \tag #'Prof { \mN } \tag #'Eleve { \cN } \mark \default
  \time 3/4
  a16 a a a a4 r8 a
  a4  a8. a16 a4 \break \mark \default
  \time 6/8
  a8 a a a4.
  a8. a16 a8 a4.
}

%%% Melodie
Melodie = \relative c' {
  \override HorizontalBracket #'direction = #1
  \bar "" 
  \tag #'Prof { \mN } \mark \default
  \clef "treble"
  \time 7/1
  \tag #'Prof \circle c1 \tag #'Eleve { \cN }
  d-\tag #'Prof \dG -\tag #'Prof ^"     1" e-\tag #'Prof \fG
  c-\tag #'Prof \dG e-\tag #'Prof ^"    2" g1 c-\tag #'Prof \fG |
  % -2-
  \mark \default \tag #'Eleve { \mN }
  \tag #'Prof \circle a1 \tag #'Eleve { \cN }
  g-\tag #'Prof \dG -\tag #'Prof ^"     1" f-\tag #'Prof \fG
  fs-\tag #'Prof ^"1"
  g-\tag #'Prof \dG b-\tag #'Prof ^"1,5" a-\tag #'Prof \fG | \break
  % -3-
  \mark \default \tag #'Eleve { \mN }
  \time 9/1
  \tag #'Prof \circle d1 \tag #'Eleve { \cN }
  d,-\tag #'Prof ^"1"
  f-\tag #'Prof \dG -\tag #'Prof ^"     1" a-\tag #'Prof \fG
  bf-\tag #'Prof ^"1"
  a-\tag #'Prof \dG -\tag #'Prof ^"     1" b!-\tag #'Prof \fG
  cs-\tag #'Prof ^"1" d-\tag #'Prof ^"0,5" |
  \mark \default \tag #'Eleve { \mN }
  \time 7/1
  \tag #'Prof \circle e,1 \tag #'Eleve { \cN }
  f-\tag #'Prof \dG g-\tag #'Prof ^"1" a-\tag #'Prof \fG bf-\tag #'Prof ^"1"
  g-\tag #'Prof \dG -\tag #'Prof ^"     1" f-\tag #'Prof \fG
}

%%% Accords
dAccords = \relative c' {
  \bar "" \mark \default
  <e gs b>1 \mark \default
  <a c e> \mark \default
  <d, f a> \mark \default
  <f af c> \mark \default
  <bf d f>
}

%%% Cadences
cadencesH = \relative c' {
  \bar ""
  \time 2/4 \key g \major \mark \default
  <d g b>4 <d a' d> | <d g b> <c e a>8 g' |
  <a, d fs>2^\fermata \mark \default
%% 2
  <d g>4 <c e> | <e c'> <g b>8 <e a> |
  << { \voiceOne g8 fs }
     \new Voice { \voiceTwo d4 } >>
  \oneVoice <d g>4^\fermata \break \mark \default
%% 3
  <e a>4 <d fs> | <d b'> << { \voiceOne <g b>4 }
			    \new Voice { \voiceTwo e8 d } >> \oneVoice |
  <e a>2^\fermata \mark \default
%% 4
  <d a' d>4 <d g b> | <e g b> <c e a> | <b ds fs>2^\fermata \mark \default
%% 5
  <d fs>4 <d g> | <e a> <d fs> | <b d g>2^\fermata
}

cadencesB = \relative c' {
  \time 2/4 \key g \major
  g4 fs | g c, | d2
  <b g'>4 <c g'> | <a a'> <b d'>8 <c c'> | <d a'>4 <g, b'>
  <cs a'>4 <d a'> | g e | <a cs>2
  fs4 g8 fs | e4 a, | b2
  d4 b | c d | g,2
}
  

%%PROFESSEUR
\book {
  \bookOutputSuffix "Professeur"

  \score {
    \keepWithTag #'Prof
    \new RhythmicStaff {
      \set Score.markFormatter = #format-mark-circle-numbers
      \override Score.TimeSignature #'break-visibility = #end-of-line-invisible 
      \rFormules
    }
    \layout {
      \context { \Score
		 \remove "Bar_number_engraver" } }
    \header {
      piece = \markup{
	\vspace #1
	\column { \line {
	  \number 1- Formules rythmiques \char ##x2013
	  \italic { Jouer deux fois chaque fragment à l'instrument ou à la voix. }
	} } }
    }
  }

  \score {
    \keepWithTag #'Prof
    \new RhythmicStaff {
      \set Score.markFormatter = #format-mark-circle-numbers
      \override Score.TimeSignature #'break-visibility = #end-of-line-invisible 
      \rDictee
    }
    \layout {
      line-width = 10\cm
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\column {
	  \line { \number 2- Dictée de rythmes \char ##x2013
		  \italic { Frapper ou jouer trois ou quatre fois chaque fragment.
			    Un point par temps. }
		} } }
    }
  }

  \score {
    \keepWithTag #'Prof
    \new Staff \with { \remove "Time_signature_engraver" }
      { \set Score.markFormatter = #format-mark-circle-numbers
	\Melodie
      }
    \layout {
      \context { \Score \remove "Bar_number_engraver" }
      \context { \Voice \consists "Horizontal_bracket_engraver" }
    }
    \header {
      piece = \markup{
	\line { \number 3- Dictée mélodique \char ##x2013
		\italic { Jouer chaque fragment trois ou quatre fois. } }
      }
    }
  }

  \score {
    \new Staff \with { \remove "Time_signature_engraver" }
      { \set Score.markFormatter = #format-mark-circle-numbers
	\dAccords
      }
    \layout {
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\line { \number 4- Accords \char ##x2013
		\italic { Jouer deux fois chaque accord. Un point chacun. } }
      }
    }
  }

  \score {
    \new PianoStaff <<
      \set Score.markFormatter = #format-mark-circle-numbers
      \new Staff = "upper" { \cadencesH }
      \new Staff = "lower" { \clef bass \cadencesB }
    >>
    \layout {
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\line { \number 5- Cadences \char ##x2013
		\italic { 1/2, P, 1/2, 1/2, P.  Un point chacune. } }
      }
    }
  }
  \markup \null
} %%% FIN PROF


%%ÉLÈVE
\book {
  \bookOutputSuffix "Eleve"
  \Qui 
  \score {
    \keepWithTag #'Eleve
    \new RhythmicStaff {
      \set Score.markFormatter = #format-mark-circle-numbers
      \override Score.TimeSignature #'break-visibility = #end-of-line-invisible 
      \rFormules
    }
    \layout {
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\vspace #2 
	\column {
	  \line { \number 1- Formules rythmiques. } } }
    }
  }

  \score {
    \keepWithTag #'Eleve
    \new RhythmicStaff {
      \set Score.markFormatter = #format-mark-circle-numbers
      \override Score.TimeSignature #'break-visibility = #end-of-line-invisible 
      \rDictee
    }
    \layout {
      line-width = 10\cm
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\vspace #1.25 
	\column {
	  \line { \number 2- Dictée de rythmes. }
	} }
    }
  }

  \score {
    \keepWithTag #'Eleve
    \new Staff \with { \remove "Time_signature_engraver" } {
      \set Score.markFormatter = #format-mark-circle-numbers
      \Melodie
    }
    \layout {
      \context { \Score \remove "Bar_number_engraver" }
    }
    \header {
      piece = \markup{
	\vspace #1.25 
	\line { \number 3- Dictée mélodique
		\italic { (il peut y avoir des altérations) } . } }
    }
  }

  \score {
    \new RhythmicStaff \with {
      \remove "Time_signature_engraver"
      \override BarLine #'bar-extent = #'(-7.5 . 1.5)
    }
    { s4 s2.^"1" s4 s2.^"2" s4 s2.^"3" s4 s2.^"4" s4 s2.^"5" }
    \layout { ragged-right = ##f
	    }
    \header {
      piece = \markup{
	\vspace #1.25
	\column {
	\line { \number 4- Accords
		\italic { (noter majeur ou mineur) }. } }
      }
    }
  }

  \score {
    \new RhythmicStaff \with {
      \remove "Time_signature_engraver"
      \override BarLine #'bar-extent = #'(-7.5 . 1.5)
    }
    { s4 s2.^"1" s4 s2.^"2" s4 s2.^"3" s4 s2.^"4" s4 s2.^"5" }
    \layout { ragged-right = ##f
	    }
    \header {
      piece = \markup{
	\vspace #1.25
	\column {
	  \line { \number 5- Cadences
		  \italic { (noter parfaite ou demie cadence) }. }
	}
      }
    }
  }
  \markup \null 
} %% FIN ELEVE