\version "2.24.4"

\paper {
  #(set-paper-size "a4")
  top-margin = 2\cm
  bottom-margin = 2\cm
  left-margin = 1.1\cm
  right-margin = 1.1\cm
  %system-system-spacing.basic-distance = #15
}

date = #(strftime "%Y-%m-%d" (localtime (current-time)))
year = #(strftime "%Y" (localtime (current-time)))

noMelismata = #(define-music-function
                    (text)
                    (ly:music?)
                     #{
                       \set ignoreMelismata = ##t #text \unset ignoreMelismata
                     #})

\header {
  title = "Die Sendung mit der Maus"
  subsubtitle = "(TTBB)"
  composer = "Komposition: Hans Posegga"
  arranger = "Arrangement: Arnie Range"
  tagline = \markup {
    \concat {
      \teeny { "❤️ " }
      \teeny \year
      \teeny { " Arnie Range, arnierange.mooo.com (" }
      \teeny \date
      \teeny { "), may be freely copied (CC BY-NC-SA)" }
    }
  }
}


global = {
  \time 4/4
  \key d\major
  \tempo 4=145
}

tenorBTheme = \relative c' {
  d4 fis8. d16 a4 a4 | a8. d16 a8. fis16 d4 d16 d16 b8 |
  d4 fis4 a8 b8 ~ b4 |
}
tenorB = \relative c' {
  \global
  \repeat volta 4 {
    \tenorBTheme d2
    r8 a8 fis4 |
    b4. b8 b4. fis8 |
    a4. a8 fis8 a8 ~ a4 |
    r8 b8 b8 b8 b4 ~ b8 fis8 |
    a4. a8 fis8 a8 ~ a4 |
    r4 d8 d8 b8 d8 ~ d8 f8 ~ |
    f4 d4 b8 d4 e8 ~ |
    e1 ~|
    \alternative {
      { e1 | }
      {
        e1 |
        \tenorBTheme
        \once \omit Score.MetronomeMark \tempo 4=120
        d2 r4. \once \omit Score.MetronomeMark \tempo 4=140 a8 |
        g4 \once \omit Score.MetronomeMark \tempo 4=40 e4^\fermata \once \omit Score.MetronomeMark \tempo 4=150 a8 b8 ~ \once \omit Score.MetronomeMark \tempo 4=60 b4^\fermata |
        \once \omit Score.MetronomeMark \tempo 4=80 d4^\fermata \once \omit Score.MetronomeMark \tempo 4=180 r4 \xNote { d4 d4 }
      } 
    }
  }
  \bar "|."
}

bassATheme = \relative c' {
  r4 a4 a2 |
  r4 a4 a2 |
  b4 b4 a8 a8 ~ a4 |
}
bassA = \relative c' {
  \global
  \repeat volta 4 {
    \bassATheme a1 |
    r4 fis4 fis2 |
    r4 fis4 fis2 |
    r4 fis4 fis2 |
    r4 fis4 fis2 |
    r4 g8 g8 g8 g8 ~ g8 b8 ~ |
    b4 b4 b8 b4 r8 |
    r8 a8 a8 a8 b8 a8 ~ a8 cis8 ~ |
    \alternative {
      { cis1 | }
      {
        cis1 |
        \bassATheme
        a2 r4. a8 |
        b4 b4^\fermata a8 a8 ~ a4^\fermata |
        fis4^\fermata r4 \xNote { d4 d4 }
      }
    }
  }
}

tenorATheme = \relative c' {
  r4 fis4 e2 |
  r4 d4 d2 |
  d4 d4 cis8 e8 ~ e4 |
}
tenorA = \relative c' {
  \global
  \repeat volta 4 {
    \tenorATheme fis1 |
    r4 d4 d2 |
    r4 cis4 cis2 |
    r4 d4 d2 |
    r4 cis4 cis2 |
    r4 d8 d8 d8 d8 ~ d8 d8 ~ |
    d4 d4 d8 fis4 e8 ~ |
    e1 ~ |
    \alternative {
      { e1 | }
      {
        e1 |
        \tenorATheme fis2 r4. fis8 |
        d4 d4^\fermata cis8 e8 ~ e4^\fermata |
        d4^\fermata r4 \xNote { d4 d4 }
      }
    }
  }
}

bassBTheme = \relative c {
  d2 cis2 |
  b2 a2 |
  g4 g4 a8 a8 ~ a4 |
}
bassB = \relative c {
  \global
  \repeat volta 4 {
    \bassBTheme d1 |
    b4 r8 b8 b4. b8 |
    fis4 r8 fis8 fis4. fis8 |
    b4 r8 b8 b4. b8 |
    fis4 r8 fis8 fis4. << fis'8 fis,8 >> |
    << e'4 e,4 >> r8 << e'8 e,8 >> << e'4. e,4. >> << e'8 e,8 >> |
    << e'4 e,4 >> r8 << e'8 e,8 >> << e'4. e,4. >> << e'8 e,8 >> |
    a4 r8 a8 a4. a8 |
    \alternative {
      { a4 a4 b4 cis4 | }
      {
        a4 a4 b4 cis4 |
        \bassBTheme
        d2 r4. d8 |
        g,4 g4^\fermata a8 a8 ~ a4^\fermata |
        d4^\fermata r4 \xNote { d'4 d4 }
      }
    }
  }
}

tenorBTextA = \lyricmode {
  %Ja, die -- se Sen -- dung ern -- tet viel Ap -- plaus,
  %ja, die Sen -- dung mit der Maus. __
  Hal -- lo ihr Maus -- fans,
  %kommt ganz schnell ins Haus,
  sperrt die Ohr -- en auf!
  Hier kommt die Sen -- dung mit der Maus!
  
  \set stanza = "1."
  Ja, wie komm'n die Strei -- fen in die Zahn -- creme?
  Wie baut man ei -- ne Hüt -- te aus Lehm?
  
  %Das er -- klärt Euch die o -- ran -- gne Maus! __
  Al -- les das er -- klärt die schlau -- e Maus! __
  "__"
  
  Ja, die -- se Sen -- dung ern -- tet viel Ap -- plaus,
  es ist die Sen -- dung mit der Maus. __
  Die Sen -- dung ist jetzt aus!
  Klick, klick!
}

tenorBTextX = \lyricmode {
  "" "" "" "" "" "" "" "" "" ""
  "" "" "" "" "" "" "" ""
  
  \set stanza = "2."
  Wie_funk -- tio -- nierts, wenn ich im Flug -- zeug flie -- ge?
  Und wie schert man ei -- ne Zie -- ge?
}

tenorBTextB = \lyricmode {
  "" "" "" "" "" "" "" "" "" ""
  "" "" "" "" "" "" "" ""
  
  \set stanza = "2."
  Wie be -- ruhigt der Im -- ker sei -- ne Bien -- en?
  Wie bremst ein Zug bei Eis auf Schie -- nen?
}

tenorBTextC = \lyricmode {
  "" "" "" "" "" "" "" "" "" ""
  "" "" "" "" "" "" "" ""
  
  \set stanza = "3."
  Und wa -- rum ist denn nur Gold so teu -- er?
  Wie löscht man denn am bes -- ten Feu -- er?
}

tenorBTextD = \lyricmode {
  "" "" "" "" "" "" "" "" "" ""
  "" "" "" "" "" "" "" ""
  
  \set stanza = "4."
  Sag -- mal wie ent -- steht ein Re -- gen -- bo -- gen?
  Und wo -- her kommt der Storch ge -- flo -- gen?
}

% TODO: Roboter

bassAText = \lyricmode {
  Quak quak,
  quak quak,
  Sen -- dung mit der Maus. __
  
  Die Maus,
  die Maus,
  die Maus,
  die Maus,
  Al -- les das er -- klärt die schlau -- e
  er -- klärt die schlau -- e __ Maus! __
  "__"
  
  Die Maus,
  die Maus,
  Sen -- dung mit der Maus.
  
  Die Sen -- dung ist jetzt aus!
  Klick, klick!
}

tenorAText = \lyricmode {
  Quak quak,
  quak quak,
  Sen -- dung mit der Maus. __

  Die Maus,
  die Maus,
  die Maus,
  die Maus.
  Al -- les das er -- klärt die schlau -- e Maus! __
  "__"
  
  Die Maus,
  die Maus,
  Sen -- dung mit der Maus.
  Die Sen -- dung ist jetzt aus!
  Klick, klick!
}

bassBText = \lyricmode {
  E -- le-,
  E -- le-,
  E -- le-, E -- le -- fant.
  Ja, die Maus, ja
  Ja, die Maus, ja
  Ja, die Maus, ja
  Ja, die Maus, ja
  Ja, die Maus, ja
  Ja, die Maus,
  ist da,
  
  die Maus ist
  da. Hier kommt sie:
  da. Hier kommt sie:
  Ja die Sen -- dung
  Sen -- dung mit der Maus.
  Die Sen -- dung ist jetzt aus!
  Klick, klick!
}


\score {
  \new ChoirStaff <<
    \new Staff = "tenor" \with {
      %midiInstrument = "grand piano"
      midiInstrument = "trombone"
      instrumentName = \markup \center-column {
        T1
      }
    } <<
      \clef "treble_8"
      \new Voice = "tenorA" { \tenorA }
    >>
    \new Lyrics \lyricsto "tenorA" \tenorAText
    
    \new Staff = "tenor" \with {
      %midiInstrument = "grand piano"
      midiInstrument = "trumpet"
      instrumentName = \markup \center-column {
        T2
      }
    } <<
      \clef "treble_8"
      \new Voice = "tenorB" { \tenorB }
    >>
    \new Lyrics \lyricsto "tenorB" \tenorBTextA
    \new Lyrics \lyricsto "tenorB" \tenorBTextB
    \new Lyrics \lyricsto "tenorB" \tenorBTextC
    \new Lyrics \lyricsto "tenorB" \tenorBTextD
    
    \new Staff = "bassA" \with {
      %midiInstrument = "grand piano"
      midiInstrument = "trumpet"
      instrumentName = \markup \center-column {
        B1
      }
    } <<
      \clef "bass"
      \new Voice = "bassA" { \bassA }
    >>
    \new Lyrics \lyricsto "bassA" \bassAText
    \new Staff = "bassB" \with {
      %midiInstrument = "grand piano"
      midiInstrument = "trumpet"
      instrumentName = \markup \center-column {
        B2
      }
    } <<
      \clef "bass"
      \new Voice = "bassB" { \bassB }
    >>
    \new Lyrics \lyricsto "bassB" \bassBText

    
  >>
  \layout {
    \context {
      \Lyrics \override LyricText.font-size = #-0.05
    }
  }
}
\score {
  \unfoldRepeats {
    \new Staff <<
      \new Voice = "tenorA" { \voiceOne \tenorA }
      \new Voice = "tenorB" { \voiceTwo \tenorB }
      \new Voice = "bassA" { \voiceOne \bassA }
      \new Voice = "bassB" { \voiceTwo \bassB }
    >>
  }
  \midi { \context { \Score midiInstrument = "trumpet" }
  }
}