\version "2.14.2"

songTitle = "Traumatic insemination"
songPoet = "S.W. Black"
songCopyright = "2015 S.W.Black"

tuneArranger = \markup { tune of \italic{ The Coventry Carol } }
tuneComposer = \markup { 16th Centry English Carol }
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 bes \major
    \time 3/4
    \tempo 4 = 90
}

sopMusic = \relative c'' {
  g4 g fis |
  g2 bes4 |
  a8 a a4 g |
  fis2. |
  g4 a bes |
  c a2 |
  b2. \bar "||" 
  
  g4 g fis |
  g2 bes4 |
  a2 g4 |
  fis2. |
  g4 a bes | 
  c a2 |
  g2 d'4 |
  
  c2 bes4 |
  a2 bes4 |
  a2 g4 | 
  fis2. |
  g4 fis g |
  c a2 |
  b2. \bar "|."
}
  

altoMusic = \relative c' {
  d4 d d |
  d2 g4 |
  f8 f f4 d |
  d2. |
  d4 f f |
  g2 fis4 |
  g2. |
  
  d4 d d |
  d2 g4 |
  f2 d4 |
  d2. |
  d4 f f |
  g2 fis4 |
  g2 f4 |
  
  a2 g4 |
  f2 d4 |
  f2 c4 |
  d2. |
  d4 d d |
  g2 fis4 |
  g2. \bar "|."
}


tenorMusic = \relative c' {
  bes4 bes a |
  bes2 ees4 |
  c8 c c4 bes |
  a2. |
  bes4 c d |
  ees4 d2 |
  d2. |
  
  bes4 bes a |
  bes2 ees4 |
  c2 bes4 |
  a2. |
  bes4 c d |
  ees4 d2 |
  d d4 |
  
  f2 d4 |
  d2 bes4 |
  c2 g4 |
  a2. |
  bes4 a bes |
  ees d2 |
  d2. \bar "|."
}


bassMusic = \relative c' {
  g4 g d |
  g2 ees4 |
  f8 f f4 g |
  d2. |
  g4 f d |
  c d2 |
  g,2. |
  
  g'4 g d |
  g2 ees4 |
  f2 g4 |
  d2. |
  g4 f d |
  c d2 |
  g bes4 |
  
  f2 g4 |
  d2 g4 |
  f2 ees4 |
  d2. |
  g4 d g |
  c, d2 |
  g2. \bar "|."
}


origLyrics = \lyricmode { 
  Lul -- ly, lul -- lay, Thou lit -- tle ti -- ny Child,
  By, by, lul -- ly, lul -- lay;
  
  \set stanza = #"O. "
  O sis -- ters too, how may we do,
  For to pre -- serve this day;
  This poor Young -- ling for whom we sing
  By, by, lul -- ly, lul -- lay?
}

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

Bed bugs they have it really very rough
penis swords aren't gentle.
cracks in the ventral exoskeleton
insemination hurts 
swimmers in the hemolymph
one way to get to the eggs

Specialized organs may help with disease
or guiding to ov'ries.
Open circulatory systems
bathe the organs in jizz.
Males have evolved penises that taste
when a male has been there.

Hypodermic and penis should not mix.
Injections of love juice.
But it's not love, just really bad sex.
Hopefully it won't kill.
Mostly with dames, but some with gents.
Outside species may die.

Solo love can be ever so much worse.
One flat worm pokes his head.
Macrostomum hystrix is the worm;
swimmers swim in his brain.
They are hermaphrodites
so may be considered female.

Active consent is really so much more.
Evolution won't wait.
To what will we drive forth our change?
Will we create monsters?
Sexual cannibalism deserved
if we can't control dicks.
}

\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"
            }
        }
    }
}