\version "2.20.0"

\header {
  title = "Les intervalles"
  subsubtitle = " "
  composer = ""
  arranger = " "
  piece = "  "
  tagline = " "
}

%--- réglage taille diapo, utilisé dans le \layout
#(set! paper-alist (cons '("format" . (cons (* 20 cm) (* 15 cm))) paper-alist))

%--- feuille de portées 8 mesures vides
vide = {\repeat unfold 4 { s1}\break
        \repeat unfold 4 {s1}}

global= {
  \time 4/4
  \clef "treble_8"
  \key  c \major}

%---- diapo 1
melodie = \relative c {
  \voiceOne % pour la liaison au-dessus des notes
  c2_"intervalle de seconde"(  d2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         } 
  }

  \markup {\vspace #3 " " \null}
  \markup \fill-line {
    \center-column {
      \box \with-color #blue \pad-markup #4 "On nomme intervalle la distance qui sépare 2 sons      "
    }
  }
}

%---- diapo 2
melodie = \relative c {
  \voiceOne
  c2 d2
  c2_"intervalle de tierce"(  e2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 3
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2_"intervalle de quarte"(  f2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 3
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2_"intervalle de quinte"(  g'2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 5
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2 g'2
  c,2_"intervalle de sixte"(  a'2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 6
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2 g'2
  c,2 a'2
  c,2_"intervalle de septième"(  b'2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 7
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2 g'2
  c,2 a'2
  c,2 b'2
  c,2_"l'octave"(  c'2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 8
melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2 g'2
  c,2 a'2
  c,2 b'2
  c,2 b'2
  c,2_"la neuvième"(  d'2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel {\vide}
    \context Voice = mel {\melodie }
         >>
         \layout {
           #(set-default-paper-size "format")
         }
  }
}

%---- diapo 9

melodie = \relative c {
  \voiceOne
  c2( d2)_"seconde"
  c2( e2_"tierce")
  c2( f2_"quarte")
  c2( g'2_"quinte")\break
  c,2( a'2_"sixte")
  c,2( b'2_"7ème")
  c,2( c'2_"octave")
  c,2( d'2_"9ème")
}


melOne = \relative c' {
  \voiceOne
  c2_"intervalle ascendant"( f2)
}


melTwo = \relative c' {
  \voiceOne
  e'2_"intervalle descendant"( g,2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = melodie {\melodie}
         >>
  }
  
  \markup {
    \override #'(line-width . 90) % <= à ajuster
    \fill-line {
      \override #'(baseline-skip . 13)
      \left-column {
        {
          \score {
            { c'2(-"intervalle ascendant" f') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
          \score {
            { e''2(-"intervalle descendant" g') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
        }
      }
      \hspace #20 % <= à ajuster
      \column {
      }
    }
  }  
}

%---- diapo 10

melodie = \relative c {
  \voiceOne
  c2( d2)_"seconde"
  c2( e2_"tierce")
  c2( f2_"quarte")
  c2( g'2_"quinte")\break
  c,2( a'2_"sixte")
  c,2( b'2_"7ème")
  c,2( c'2_"octave")
  c,2( d'2_"9ème")
}

melOne = \relative c' {
  \voiceOne
  c2_"intervalle ascendant"( f2)
}


melTwo = \relative c' {
  \voiceOne
  e'2_"intervalle descendant"( g,2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = melodie {\melodie}
         >>
  }
  
  \markup {
    \override #'(line-width . 90) % <= à ajuster
    \fill-line {
      \override #'(baseline-skip . 13)
      \left-column {
        {
          \score {
            { c'2(-"intervalle ascendant" f') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
          \score {
            { e''2(-"intervalle descendant" g') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
        }
      }
      \hspace #20 % <= à ajuster
      \column {
        \vspace #0 % % <= à ajuster
        {
          \line {un intervalle  \bold simple}
          \line {n'excède pas l'étendue  d'une octave}
          \line{" "}
          \line{"  "}
          \line{un intervalle  \bold redoublé}
          \line{excède  l'étendue  d'une octave (ex : la 9ème)}}
      }
    }
  }   
}