\version "2.14.2"

songTitle = "The Christmas Hippo"
songPoet = "S.W. Black"
songCopyright = "2015 S.W.Black"

tuneArranger = \markup { tune of \italic{ Hark! the Herald Angels Sing } }
tuneComposer = \markup { Felix Mendelssohn (1809–1847) }
tuneSource = \markup { "from" \concat{\italic "Christmas Carols and Hymns for School and Choir" ", 1910"}}

albumProduct = "Santa-related Carols"
albumCopyright = \markup {Creative Commons Attribution 4.0 License}
albumTagline = \markup {created for \italic {50/90 2015}}

% Fancier Copyright/Tagline messages
\include "../book/album.ily"


global = {
    \key g \major
    \time 4/4
    \autoBeamOff
    \tempo 4 = 112
}

sopMusic = \relative c' {
  d4 g g4. fis8 |
  g4 b b( a) |
  d d d4. c8 |
  b4 a b2 |
  
  d,4 g g4. fis8 |
  g4 b b( a) |
  d a a4. fis8 |
  fis4 e d2 |
  
  d'4 d d g, |
  c b b( a) |
  d d d g, |
  c b b( a) |
  
  e' e e d |
  c b c2 |
  a4 b8[ c] d4. g,8 |
  g4 a b2 | 
  
  e4. e8 e4 d |
  c b c2 |
  a4 b8[ c] d4. g,8 |
  g4 a g2 \bar "|."
}
  

altoMusic = \relative c' {
  d4 d d4. d8 |
  d4 g g( fis) |
  g fis e a |
  g fis g2 |
  
  d4 d d4. d8 |
  b4 g' g2 |
  fis4 e fis4. d8 |
  d4 cis d2 |
  
  d4 d d g |
  a g g( fis) |
  d d d g |
  a g g( fis) |
  
  g g g gis |
  a gis a2 |
  fis4 fis g4. d8 |
  e4 fis g2 |
  
  c4 c c b |
  a gis a2 |
  d,4 fis g4. d8 |
  d4 fis d2 \bar "|."
}

tenorMusic = \relative c' {
  b4 b b4. a8 |
  g4 d' d2 |
  d4 d e e |
  d d d2 |
  
  b4 b b4. a8 |
  g4 d' e2 |
  d4 e a,4. a8 |
  b4 g fis2 |
  
  d'4 d d d |
  d d d2 |
  d4 d d d |
  d d d2 |
  
  e4 e c d |
  e e e2 |
  d4 d d4. b8 |
  b4 d d2 |
  
  e4 e e d |
  c e e2 |
  d4 d d4. b8 |
  b4 c b2 \bar "|."
}


bassMusic = \relative c' {
  g4 g g d |
  b g d'2 |
  b4 b c c |
  d d g,2 |
  
  g'4 g g d |
  e d cis4.( a8) |
  b4 cis d fis, |
  g a d2 |
  
  d'4 d d b |
  fis g d2 |
  d'4 d d b |
  fis g d2 |
  
  c4 c c b |
  a e' a2 |
  c4 c b g |
  e d g,2 |
  
  c'4 c c b |
  a e a( g) |
  fis c' b g |
  d d g2 \bar "|."
}

origLyrics = \lyricmode {
  \set stanza = #"1. "
  \set associatedVoice = "altos"
  Hark! the her -- ald an -- gels sing, __ “Glo -- ry to the new -- born King!
  \unset associatedVoice
  Peace on earth, and
  \set associatedVoice = "basses"
  mer -- cy mild; __
  \unset associatedVoice
  God and sin -- ners re -- con -- ciled.”
  Joy -- ful all ye na -- tions, rise; __
  Join the tri -- umph of the skies;
  With th’an -- gel -- ic hosts pro -- claim,
  “Christ is born in Beth -- le -- hem.”
  
  \set associatedVoice = "basses"
  Hark the her -- ald
  an -- gels sing,
  \unset associatedVoice
  Glo -- ry to the new -- born King.
}

lyricsA = \lyricmode {
  \set stanza = #"1. "

The Christmas Hippo likes to eat 
nice things like oranges or meat
or watermellon in a can.
He does not like Dapper Dan.
His hair is perfect. It doesn't need gel.
He makes his own sunscreen and its swell.
Blood sweat is what they call it!
You can't get it in the market.
Blood sweat is what they call it!
You would like it, if you tried it.

The Christmas hippo brings presents
to little hippos, babies immense.
But without hands, he brings stories
of hippos former glories.
Glories now far long unsung.
Worshiped when Egypt was young.
Taueret was her holy name!
Protector of the Birth House!
Taueret was her holy name!
Mistress of the Horizon!

If you see the Christmas hippo,
you should definitely go.
Intolerant of foolish man
he'll put your ass in a can.
Knowing you a wretched beast
rats on your flesh they will feast.
He needs no provocation!
Our kind has done enough!
He needs no provocation!
Humans are excuse enough!

}


\bookpart{ 
    \tocItem \songTitle
    \header {
        title = \songTitle 
        poet = \songPoet 
        %dedication = \songDedication
        %translator = \songTranslator 
        composer = \tuneComposer 
        arranger = \tuneArranger 
        source = \tuneSource 
        copyright = \albumCopyright
        tagline = \albumTagline
    }

    \score {
        <<
            \new ChoirStaff <<
                \new Staff = women <<
                    %\new Voice = "sopranos" { \voiceOne << \global \sopMusic >> }
                    \new Voice = "altos" { \voiceTwo << \global \altoMusic >> }
                >>
                \new Lyrics \lyricsto "altos" \origLyrics
                \new Lyrics \lyricsto "altos" \lyricsA
                \new Staff = men <<
                    \clef bass
                    %\new Voice = "tenors" { \voiceOne << \global \tenorMusic >> }
                    \new Voice = "basses" { \voiceTwo << \global \bassMusic >> }
                >>
            >>
        >>
        \layout { }
        \midi {
            \set Staff.midiInstrument = "flute" 
            \context {
                \Staff \remove "Staff_performer"
            }
            \context {
                \Voice \consists "Staff_performer"
            }
        }
    }
}