% Exemple d'utilisation de Lilypond en mode présentation
% compiler en PDF
% afficher en mode "présentation"

\version "2.20.0"

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

%---- dimensions de la diapo
#(set! paper-alist (cons '("format" . (cons (* 20 cm) (* 16 cm))) paper-alist))

%----suppression de la numérotation des pages
\paper {print-page-number = ##f }

%--- gestion couleur
#(define (override-color-for-all-grobs color)
   (lambda (context)
     (let loop ((x all-grob-descriptions))
       (if (not (null? x))
           (let ((grob-name (caar x)))
             (ly:context-pushpop-property context grob-name 'color color)
             (loop (cdr x)))))))

%---affiche la couleur ou pas "for all grobs"
couleur = {\applyContext #(override-color-for-all-grobs (x11-color 'blue))
}
pascouleur = {\applyContext #(override-color-for-all-grobs (x11-color 'black))
}

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


melodie = \relative c {
  \voiceOne
  c2 d2
  c2 e2
  c2 f2
  c2 g'2 \break
  c,2 a'2
  c,2 b'2
  c,2 c'2
  c,2 d'2
}

%----diapo 2
gabarit= {
  s2( s2)
  s2( s2)
  s2( s2)
  s2( s2)\break
  s2( s2)
  s2( s2)
  s2( s2)
  s2( s2)
}

\bookpart{
  \score{<<
    \global
    \context Voice = mel << \melodie \gabarit>>
         >>
         \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
gabarit =  {
  \couleur s2_"intervalle de seconde"( s2)
  \hideNotes
  s1*7 
}

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

%---- diapo 3
gabarit =  {
  s1 \couleur s2_"intervalle de tierce"( s2)
  \hideNotes
}

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

%---- diapo 4
gabarit =  {
  s1*2 \couleur s2_"intervalle de quarte"( s2)
  \hideNotes
}

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

%---- diapo 5
gabarit =  {
  s1*3 \couleur s2_"intervalle de quinte"( s2)
  \hideNotes
}

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

%---- diapo 6
gabarit =  {
  s1*4 \couleur s2_"intervalle de sixte"( s2)
  \hideNotes
}

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

%---- diapo 7
gabarit =  {
  s1*5 \couleur s2_"intervalle de septième"( s2)
  \hideNotes
}

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

%---- diapo 8
gabarit =  {
  s1*6 \couleur s2_"l'octave"( s2)
  \hideNotes
}

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

%---- diapo 9
gabarit =  {
  s1*7 \couleur s2_"la neuvième"( s2)
  \hideNotes
}

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

%---- 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")
}

\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 11

\bookpart{
  \score{<<
    \global
    \context Voice = melodie {\melodie}
         >>
  }
  
  \markup {
    \fill-line {
      \left-column {
        {
          \score {
            { c'2(-"intervalle ascendant" f') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
          \vspace #1
          \score {
            { e''2(-"intervalle descendant" g') }
            \layout {
              indent = 0
              ragged-right = ##f
              line-width = 50
            }
          }
        }
      }
      \hspace #0 % <= à ajuster
      \vspace #3
      \box \with-color #blue \pad-markup #4 
      \center-column {
        {\line {"Un intervalle" \bold " simple"}
         \line{"n'excède pas une octave"}
         \line{" "}
         \line {"Un intervalle" \bold " redoublé"}
         \line{"excède l'étendue de l'octave (ex : la 9ème)"}}
      }
    }
  }   
}