\version "2.14.2"

songTitle = "My Friend Fred"
songPoet = "S.W. Black"
songCopyright = "2015 S.W.Black"

tuneArranger = \markup { tune of \italic{ Away In A Manger } }
tuneComposer = \markup { William Kirkpatrick (1838–1921) }
tuneSource = \markup \null % {from \italic {ChristmasCarolMusic.org}} 

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 f \major
  \time 3/4
  \autoBeamOff
    \tempo 4 = 66
}

sopMusic = \relative c' {
  \partial 4 c4 |
  f f g8[ a] |
  f4 f a8[ bes] |
  c4 c d |
  bes2 g8[ a] |
  bes4 bes c |
  
  a a f8[ a] |
  g4 d f |
  e2 c4 |
  f f g8[ a] |
  f4 f a8[ bes] |
  
  c4 c d |
  bes2 g8[ a] |
  bes4 bes c |
  a4 a f8[ a] |
  g4 d e |
  f2 \bar "|."
}
  

altoMusic = \relative c' {
  c4 |
  a a e' |
  a, a a8[ c] |
  f4 f f |
  g2 d4 |
  g d e |
  f f d |
  
  d d c 
  c2 c4 |
  a a e' |
  a, a a8[ c] |
  f4 f f |
  g2 d4 |
  g d e |
  f f d |
  d d bes |
  c2 \bar"|."
}



tenorMusic = \relative c' {
  c4 |
  c d g, |
  c c c8[ g] |
  a4 a bes |
  d2 c4 |
  d g, g |
  a a a8[ f] |
  
  bes4 bes g |
  g2 c4 |
  c d g, |
  c c c8[ g] |
  a4 a bes |
  d2 c4 |
  d g, g |
  a a a8[ f] |
  bes4 bes c |
  a2 \bar"|."
}


bassMusic = \relative c {
  c4 |
  f d c |
  d f f8[ e] |
  f4 f bes, |
  g'2 g4 |
  g g c, |
  d d d |
  
  g g c, |
  e8([ d] c4) c4 |
  f d c |
  d f f8[ e] |
  f4 f bes, |
  g'2 g4 |
  g g c, |
  d d d |
  g g g8[ c,] |
  f2 \bar"|."
}

origLyrics = \lyricmode {
  \set stanza = #"O. "
  A -- way in a  man -- ger,
  No crib for His bed,
  The lit -- tle Lord Je -- sus
  Laid down His sweet head:
  The stars in the heav -- ens
  Look’d down where He lay,
  The lit -- tle Lord Je -- sus
  A -- sleep in the hay.
}

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

For as I lay crying, alone in the dark
I sat and I thought about what I once thought
I had this one dream in a long ago time
it was a dream about my face in a pie.

I love to eat pie and it is one of my fav-
orate things to do with my face on a cool day
I like to stuff my face with chocolate pie and pumpkin pie
And sometimes I get crazy and eat mincemeat.

I like to dance and sing and play around all the day
but sometimes think about that long ago
time when I cried and cried and I bawled in my tears
then I fed them to the weevil and he granted my fears.

Now I am oh so happy, the weevil is Fred
He is my friendly Fred and he lives in my head.
Oh, I love my Freddy. Weevil is not mean.
He is nice. He is friendly. He is not all obscene.

And once upon a time I wanted to eat more saucy food
and pull out my hair and bathe in the nude.
But now I don't do any of those crazy things.
I just sit here with my weevil and I sing all the day.

I am oh, so happy and my weevil is nice.
His name is Fred and he thinks that I am alright.
Oh, I love my friend Fred. He is a weevil friend
and if you had one you would think it should never end.
}

\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 >> }
                %>>
            >>
            % \new PianoStaff << \new Staff { \new Voice { \pianoRH } } \new Staff { \clef "bass" \pianoLH } >>
        >>
        \layout { }
        \midi {
            \set Staff.midiInstrument = "flute" 
            \context {
                \Staff \remove "Staff_performer"
            }
            \context {
                \Voice \consists "Staff_performer"
            }
        }
    }
}