\version "2.14.2"

songTitle = "On this blessed morning"
songPoet = "S.W. Black"
songCopyright = "2015 S.W.Black"

tuneArranger = \markup { tune of \italic{ O Little Town of Bethlehem } }
tuneComposer = \markup { Lewis H. Redner (1831–1908) }
tuneSource = \markup {from \italic {Christmas Carols and Hymns for School and Choir}, 1910}

albumProduct = "Halloween 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 = 95
}

sopMusic = \relative c'' {
  \partial 4 b4 |
  b b ais b |
  \slurDotted d( c) e, a |
  \slurSolid g fis8[ g] a4 d, |
  b'2.  b4 |
  
  b b e d |
  d c e, a |
  g fis8[ g] b4. a8 |
  g2.  b4 |
  
  b b a g |
  fis2 fis4 fis |
  e fis g a |
  b2.  b4 |
  
  b b ais b |
  d c e, e' |
  d g, b4. a8 |
  g2. \bar "|."
}

altoMusic = \relative c' {
  d4 |
  d d cis d |
  \slurDotted f( e) c e |
  d d d d |
  d2. d4 |
  
  d g gis gis |
  a e c e |
  d d fis fis |
  g2. g4 |
  
  g g fis e |
  dis2 dis4 dis |
  e fis g e |
  fis2. g4 |
  
  d d cis d |
  \slurSolid e e c e8[ fis] |
  g4 cis, d4 c |
  b2. \bar "|."
}


tenorMusic = \relative c' {
  g4 |
  g g g g |
  \slurDotted gis( a) a c |
  \slurSolid b a8[ b] c4 c |
  b2. g4 |
  
  g b b e |
  e e e c |
  b a8[ b] d4 c |
  b2. d4 |
  
  d b c cis |
  dis2 dis4 b |
  e, fis g e' |
  dis2. d4 |
  
  d b g g |
  gis a a a |
  b a8[ g] g4 fis |
  g2. \bar "|."
}

bassMusic = \relative c' {
  g4 |
  g g g g |
  \slurDotted c,( c) c c |
  d d d d |
  g,2. g'4 |
  
  g f e e |
  a a a, c |
  d4. d8 d4 d |
  g2. g4 |
  
  g g a ais | 
  b2 b4 b, |
  e fis g c |
  b2. g4 |
  
  g g g g |
  c, c c c |
  d e d4 d |
  g,2. \bar "|."
}

origLyrics = \lyricmode {
  \set stanza = #"O. "
  \set ignoreMelismata = ##t
  O lit -- tle town of Beth -- le -- hem,
  How still we _ see thee lie!
  A -- bove thy deep and dream -- less sleep
  The si -- lent _ \set associatedVoice = "altos" stars go by; \unset associatedVoice
  Yet in thy dark streets shin -- eth
  The ev -- er -- last -- ing Light;
  The hopes and fears of all the years
  Are met in \set associatedVoice = "altos" thee to -- night.
}

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

On this blessed morning I thought I saw Reverend Maurice.
He had a creature with him that was clearly not at peace.
When that demon cried out, I thought my bowels would drop.
He hauled it from the temple and then to the beauty shop.

What he did in the beauty shop, I wish I did not know.
When they emerged it seemed as if the thing was all aglow.
The fore limbs were still wrong, knobby knee and meaty paw.
The face now clearly feline, I thought she flashed me a claw.

What was this horrid creature, made up now with lipstick and with lace.
Why was he taking her to his sheltered thinking drinking place.
They seemed to take their time there. They both seemed to have fun.
They pranced about the meadow. They danced under the warm sun.

When it was done I thought I might be going quite insane.
What happened made no sense and folks thought my tale quite inane.
But I know what happened on that feverish dark night.
Halloween demons stole my darling and brought forth this blight.

}

\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 "sopranos" \origLyrics
                \new Lyrics \lyricsto "sopranos" \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"
            }
        }
    }
}