%\pointAndClickOff
\version "2.18.2"

\paper { 
  ragged-right = ##f
  indent = 20
}

%% Implement an alternate lyric context
\layout {
  \context {
    \Lyrics
    \name AltLyrics
    \alias Lyrics
    \override LyricText.font-shape = #'italic
  }
  \context {
    \StaffGroup
    \accepts AltLyrics
  }
}

%% Doesn't do a lot, apart from avoid warnings when generating midi output
\midi {
  \context {
    \Lyrics
    \name AltLyrics
    \alias Lyrics
  }
  \context {
    \StaffGroup
    \accepts AltLyrics
  }
}

\header {
  title = "Amore traditore"
  subtitle = "Cantate"
  subsubtitle = "für eine Baßstimme"
  composer = \markup\right-column {
    "Johann Sebastian Bach"
    \concat { "BWV" \hspace #.3 "203" }
  }
  tagline = ##f
}

%%% Cantate 1 %%%%

unAriaBasso = {
  \autoBeamOff
  \tempo \markup \fontsize #2 "Aria."
  \clef bass
  \time 12/8
  R8*12 R
}

unAriaLyricOne = \lyricmode { }

unAriaLyricTwo = \lyricmode { }

unAriaLeft = {
  \clef F
  \time 12/8
  | % mes.1 
    r4. r8 r e a b c' b a16 gis a8
  | % mes.2 
    d4 r8 f'4 r8 e'8 f'16 e' d' c' b8 a16 gis a8
}

\markup \vspace #1 %% <= put some space here.
\score {
  \new StaffGroup <<
    \new Staff 
    \with { 
      instrumentName = "Basse" 
      midiInstrument = "recorder" % par ex.
    } 
    <<
      \new Voice = "Aria" \unAriaBasso
      \new Lyrics \lyricsto "Aria" \unAriaLyricOne
      \new AltLyrics \lyricsto "Aria" \unAriaLyricTwo
    >>
    \new Staff 
    \with { 
      instrumentName = "Clavecin" 
      midiInstrument = "harpsichord"
    } 
    \unAriaLeft
  >>
  \layout {}
  \midi {}
}

%%% Cantate 2 %%%%

deuxRecitativoBasso = {
  \autoBeamOff
  \tempo \markup \fontsize #2 "Recitativo."
  \clef bass
  \time 4/4
  | % mes.1 
    r4 r16 g c' b c'4 r8 a
  | % mes.2
    fis8 fis r d a4 a8 b16 c'
}

deuxRecitativoLyricOne = \lyricmode { 
  Vo -- glio pro -- var, se 
  pos -- so sa -- nar l'a -- ni -- ma
}

deuxRecitativoLyricTwo = \lyricmode { 
  Nun will ich sehn, ob's
  mög -- ich, mein Herz wie -- der zu
}

deuxRecitativoLeft = {
  \clef F
  \time 4/4
  | % mes.1 
    c1~
  | % mes.2 
    c2 fis,
}

\markup \vspace #1 %% <= put some space here.
\score {
  \new StaffGroup <<
    \new Staff 
    \with { 
      instrumentName = "Basse" 
      midiInstrument = "recorder" % par ex.
    } 
    <<
      \new Voice = "Recitativo" \deuxRecitativoBasso
      \new Lyrics \lyricsto "Recitativo" \deuxRecitativoLyricOne
      \new AltLyrics \lyricsto "Recitativo" \deuxRecitativoLyricTwo
    >>
    \new Staff 
    \with { 
      instrumentName = "Clavecin" 
      midiInstrument = "harpsichord"
    } 
    \deuxRecitativoLeft
  >>
  \layout {}
  \midi {}
}

%%% Cantate 3 %%%%

troisAriaBasso = {
  \autoBeamOff
  \tempo \markup \fontsize #2 "Aria."
  \clef bass
  \time 3/4
  R2. R
}

troisAriaLyricOne = \lyricmode { }

troisAriaLyricTwo = \lyricmode { }

troisAriaRight = \transpose c c' {
  \clef G
  \time 3/4
  | % mes.1 
    e'16 g' c' e' g e' d' c' d' g' b d'
  | % mes.2 
    c'16 e' a c' e c' b a b e' g b
}

troisAriaLeft = {
  \clef F
  \time 3/4
  | % mes.1 
    c'8 c r16 c' b a b d' g b
  | % mes.2 
    a8 \once\stemUp a, r16 a g f g b e g
}


\markup \vspace #1 %% <= put some space here.
\score {
  \new StaffGroup <<
    \new Staff 
    \with { 
      instrumentName = "Basse" 
      midiInstrument = "recorder" % par ex.
    } 
    <<
      \new Voice = "Aria" \troisAriaBasso
      \new Lyrics \lyricsto "Aria" \troisAriaLyricOne
      \new AltLyrics \lyricsto "Aria" \troisAriaLyricTwo
    >>
    \new PianoStaff
    \with { 
      instrumentName = "Clavecin" 
      midiInstrument = "harpsichord"
    } 
    <<
      \new Staff \troisAriaRight
      \new Staff \troisAriaLeft
    >>
  >>
  \layout {}
  \midi {}
}

%% audio midi complet
\book { 
  \bookOutputName "CantateComplete"
  \score {
    <<
      \new Staff 
      \with { midiInstrument = "recorder" } % par ex.
      {
        %% Cantate 1
        \unAriaBasso
        \time 4/4 s1 %% transition
        %% Cantate 2
        \deuxRecitativoBasso
        \time 4/4 s1 %% transition
        \troisAriaBasso
      }
      \new PianoStaff 
      \with { midiInstrument = "harpsichord" } 
      {
        %% Cantate 1
        \unAriaLeft
        \time 4/4 s1 %% transition
        %% Cantate 2
        \deuxRecitativoLeft
        \time 4/4 s1 %% transition
        %% Cantate 3
        << \troisAriaRight \\ \troisAriaLeft >>
      }
    >>
    \midi { }
  }
}