\version "2.14.2"

songTitle = "Christmas is filled"
songPoet = "S.W. Black"
songCopyright = "2015 S.W.Black"

tuneArranger = \markup { tune of \italic{ Es ist ein Ros entsprungen } }
tuneComposer = \markup { Arranged by Michael Praetorius (1571–1621) }
tuneSource = \markup { from \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
    \tempo 4 = 100
}

sopMusic = \relative c'' {
  d2 d4 d |
  e d d2 |
  b c |
  b4 a2 g4( |
  
  g) fis g2 |
  d' d4 d |
  e d d2 |
  b c |
  
  b4 a2 g4( |
  g) fis g2 |
  b4\rest b4 a fis |
  g e d2 |
  
  b'4\rest d4 d d |
  e d d2 |
  b c |
  b4\! a2 g4( |
  g) fis g2 \bar "|."
}
  

altoMusic = \relative c'' {
  b2 b4 g |
  g g fis2 |
  e e |
  d4 d e4.( b8 |
  
  d4) d4 d2 |
  b'2 b4 g |
  g g fis2 |
  e e |
  
  d4 d e4.( b8 |
  d4) d d2 |
  s4 g e d |
  d cis d2 |
  
  s4 fis a g |
  g g fis2 |
  e e |
  g4 e fis2( |
  d4) d d2 \bar "|."
}

tenorMusic = \relative c' {
  d2 d4 b |
  c b a2 |
  g g |
  b4 d c( b~ |
  
  b) a b2 |
  d d4 b |
  c b a2 |
  g g |
  
  b4 d c( b~ |
  b) a b2 |
  s4 d4 c b |
  b a fis8[( g] a4) |
  
  s4 a4 a b |
  c b a2 |
  gis a |
  d4 c b2( |
  b4) a b2 \bar "|."
}


bassMusic = \relative c {
  g'2 g4 g |
  c g d2 |
  e c |
  g'4 fis e2 |
  
  d2 g |
  g g4 g |
  c g d2 |
  e c |
  
  g'4 fis e2 |
  d g, |
  d'4\rest g a b |
  g a d,8[( e] fis4) |
  
  d4\rest d fis g |
  c, g' d2 |
  e a, |
  b4 c d2 |
  d g \bar "|."
}

origLyrics = \lyricmode {
  \set stanza = #"O. "
  Es ist ein Ros ent -- sprung -- en,
  aus ein -- er Wur -- zel zart,
  wie uns die Alt -- en sung -- en,
  von Jes -- se war __ die Art
  Und hat ein Blüm -- lein bracht
  mit -- ten im kalt -- en Win -- ter,
  wohl zu der halb -- en Nacht.
}

origBass = \lyricmode {
  \repeat unfold 11 { \skip 1 }
  -zel zart,
  \repeat unfold 11 { \skip 1 }
  die Art
  \repeat unfold 17 { \skip 1 }
  -en Nacht.
}

lyricsA = \lyricmode {
  \set stanza = #"1. "
Christmas is filled with dinosaurs
who like to get presents now.
They are good friends with Santa
They say he brought them back to life.
Back from the darkest grave.
He wishes man were better
and not so prone to misbehave.
}

lyricsB = \lyricmode {
  \set stanza = #"2. "
Christmas is filled with dodos
who like to get presents now.
They're good friends with Comet,
but Santa brought them back to life.
Back from the bleakest mall.
They're really quite friendly,
not like humanity at all.
}

lyricsC = \lyricmode {
  \set stanza = #"3. "
Christmas is filled with ground sloths
who like to get presents now.
They're good friends with Dancer,
but Santa brought them back to life.
Back from that dreary night.
They like to get sun glasses
to protect their eyes and their sight.
}

  
  

\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 Lyrics \lyricsto "altos" \lyricsB
                \new Lyrics \lyricsto "altos" \lyricsC

                \new Staff = men <<
                    \clef bass
                    \new Voice = "tenors" { \voiceOne << \global \tenorMusic >> }
                    \new Voice = "basses" { \voiceTwo << \global \bassMusic >> }
                >>
                \new Lyrics \with { alignBelowContext = #"men" } \lyricsto "basses" \origBass
            >>
        >>
        \layout { }

        \midi {
            \set Staff.midiInstrument = "flute" 
            \context {
                \Staff \remove "Staff_performer"
            }
            \context {
                \Voice \consists "Staff_performer"
            }
        }
    }
}