\version "2.12.2"
\include "italiano.ly"

\header {
  title = "2. The Guaranteed Eternal Sanctuary Man"
}

\markup { \justify {\large {\column {\line {The lovers come across a town 
  dominated by two characters: one a benevolent farmer, and the other} 
  \line {the head of a highly disciplined scientific religion. The latter 
  likes to be known as 'The Guaranteed} 
  \line {Eternal Sanctuary Man' and claims to contain a secret new ingredient 
  capable of fighting fire.} 
  \line {This is a falsehood, an untruth, a whopper and a taradiddle, or to 
  put it in clearer terms; a lie.} } } } }

global = {
  \tempo 4=140
}

tenorVoiceI = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \numericTimeSignature
  \key re \major
  \time 4/4
  \global
  \dynamicUp
  
  mi,2 si'4. si8 |
  si4 mi,4. mi8 mi4 | \break
  mi2 mi'4. mi8 |
  mi1~ | \break
  mi2. mi4 |
  \time 3/4 
  \times 3/2 {re4 mi} | \break
  \time 4/4
  do2 si2 |
  si8 la sold la si4 mi,~ | \break
  mi2 r |
  R1*2 | \break
  r2 la |
  mi'4. mi8 mi4 la,4~ |
  la8 la la4 la2 | 
  la'4. la8 la2~ (| \break
  la1 |
  <sold si>~ |
  <sold si>) |
  mi~ | \break
  mi~ |
  mi |
  mi8 mi4 mi8. la~ la4 |
  la re,8 re4.~ re4~ | \break
  re4. r8 r2 |
  r1 |
  r2 fad8 re4. |
  re2. re16 si (re8) | \break
  r1 |
  r1 |
  mi4 mi8 mi4 la4. |
  la4 re,8 re4.~ re4~ | \break
  re2 dod4 re8 mi~ |
  mi2 dod4 re8 mi~ |
  mi2 r4 dod8 re |
  dod mi4 la si4. | \break
  si8 la4 la4. la8 la |
  mi mi mi mi la16 si8.~ si4 |
  si4  si8 si4 la4. | 
  la2. r4 | \break
  
  
  
}

verseTenorVoiceI = \lyricmode {
  
  I know a far mer who looks af ter the farm
  with wa ter clear takes care of all his har vest
  I know a fire man who looks af ter the fire __
  
  You, __ can't you see he fooled you all?
  Yes, he's here a gain, can't you see he fooled you all?
  Share his peace, 
  sign the lease. 
  He's a su per so nic sci en tist, 
  he's the gua ran teed e ter nal sanct u a ry man! 
  Look, look in to my mouth he cries. 
  And all the chil dren lost down many paths, 
  I bet my life, you'll walk in side, 
  Hand in hand, 
  gland in gland 
  with a spoon ful of miracle, 
  He's the gua ran teed e ter nal sanct u ary man. 

}

tenorVoiceII = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \global
  \dynamicUp
  
}

classicalGuitarI = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
  \clef bass
  << {<mi, la do mi>8 r <mi la do mi> <la do mi> r <mi la do mi> r mi'~} \\
     {la,,4. mi'8 s4. <mi la>8} >> |
  << {mi'32 <la, re fad> sol'16 r8 <la, re fad> <la re fad> s2} \\
     {r32 la,16.~ la4 r8 r r32 fad''32 <la, re>16 r8 <la re fad>} >> |
  <la, si' mi sold>4 \times 2/3 {<si' mi sold> <si mi sold>8} 
  r8 sold'32 <si, mi>16. r8 <la, si' mi sold> |
  <la do' fa la>4 <do' fa la>8 <do fa la> r <do fa la> r <do fa la> |
   \clef treble
  la'32 <do, fa>16. r8 <do fa la> <do fa la> r <do fa la> r <do fa la> |
  \time 3/4
  \clef bass
  <do, mi sol si mi>4 <mi sol si mi>8 <mi sol si mi> r <mi sol si mi> |
  \time 4/4 
    <mi, si' sol' si mi>64 [<mi' sol si mi>32. <mi, si' sol' si mi>16 
    <mi si' sol' si mi>8] 
    <mi si' sol' si mi>4 <si' fad' si re fad si> r |
  <mi, si' mi sold si mi> r <mi' la do mi>8 r <mi la do mi> <mi la do mi> |
  r <mi la do mi> r <mi la do mi> <fad si re mi>4 
    <fad si re mi>8 <fad si re mi>|
  r <fad si re mi> r <fad si re mi> <la do mi>4 <sol la do mi>8 <la do mi> |
  r <sol la do mi> r <sol la do mi> <la do mi fad>4 
    <la do mi fad>8 <la do mi fad> |
  r8. <la do mi fad>16 r8 <la do mi fad> r16 
    <la, mi' la do mi>8.~ <la mi' la do mi>16 mi' r8 |
  << {mi' do la r <la do re fad>4~ <re fad>16 la8.} \\ {s2 re,~} >> |
  fa'8 re <re, la'> r << {<si' mi sold>4 si8 r} \\ {re,2~} >> |
    

}

classicalGuitarII = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
  \clef bass
  << {<mi, la>32 <la do>16.~ <la do> <la do>32 la8 <la do mi> r <la do mi>
      r <la do mi>16~ <la mi'>} \\ {la,8.. r32 s2.} >> |
  <la' re fad>8 r <la re fad>8. <la re fad>16 r8. <la re fad>16 r8 <la re fad> |
  <la, si' mi sold>4 \times 2/3 {<si' mi sold> <si mi sold>8} 
  r8 sold'32 <si, mi>16. r8 <la, si' mi sold> |
  \clef treble 
  <do' fa>32 la'8.. <do, fa la>8 <do fa la> r <do fa la> r <do fa la>~ |
  <do fa la>32 <do la'> fa16 r8 <fa la> <do fa la> r <do fa la> r <do fa la> |
  \time 3/4
  \clef bass
  <do, mi sol si mi>4 <mi sol si mi>8 <mi sol si mi> r <mi sol si mi> |
  \time 4/4 
    <mi, si' sol' si mi>64 [<mi' sol si mi>32. <mi, si' sol' si mi>16 
    <mi si' sol' si mi>8] 
    <mi si' sol' si mi>4 <si' fad' si re fad si> r |
  <mi, si' mi sold si mi> r \clef treble la'8 mi' <do' mi> <si re> |
  r <la do> mi la, la mi' <do' mi> <si re> |
  << {r <la do> mi la, r mi' <do' mi> <si re>} \\ {s4 la,4. r4.} >> |
  << {r8 <la' do> mi la, r mi' <do' mi> <si re>} \\ {s4 la,4. r4.} >> |
  r8. <la' do>16~ <la do>8 <do mi> \clef bass r16 <la,, mi' la do mi>8.~
    <la mi' la do mi>16 mi' r8 |
  << {mi'8 do la r <la do re fad>4~ <re fad>16 la8.} \\ {s2 re,~} >> |
  fa'8 re <re, la'> r << {<si' mi sold>4 si8 r} \\ {re,2~} >> |
}

fuzzGuitar = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

distortedGuitar = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

electricBass = \relative do, {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

flute = \relative do'' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

drum = \drummode {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \time 4/4
  \global
  
  R1*4 |
  r16 tomh8.~ tomh4 toml4~ toml8. toml32 tomh |
  \time 3/4
  r2. |
  \time 4/4
  R1*5 |
  r4 bd r bd |
  r bd r bd8 r |
  bd4 r bd r |
  bd r bd r |
  bd8 r bd r bd r bd r |
  
}

rightOrgan = \relative do'' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
}

leftOrgan = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

pedal = \relative do {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

stringsright = \relative do'' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
}

stringsleft = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

electricPianoright = \relative do'' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global

}

electricPianoleft = \relative do' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
}

tubularBells = \relative do'' {
  \override Score.VerticalAxisGroup #'remove-first = ##t
  \key re \major
  \time 4/4
  \global
  
}

tenorVoiceIPart = \new Staff \with {
  instrumentName = "Peter"
  shortInstrumentName = "Peter"
  midiInstrument = "voice oohs"
  \consists "Ambitus_engraver"
} { \clef "treble_8" \tenorVoiceI }
\addlyrics { \verseTenorVoiceI }

tenorVoiceIIPart = \new Staff \with {
  instrumentName = "Phil"
  shortInstrumentName = "Phil"
  midiInstrument = "voice oohs"
  \consists "Ambitus_engraver"
} { \clef "treble_8" \tenorVoiceII }

classicalGuitarIPart = \new StaffGroup \with {
  \consists "Instrument_name_engraver"
  instrumentName = "Ac. Guit. I"
  shortInstrumentName = "Ac. I"
} <<
  \new Staff \with {
    midiInstrument = "acoustic guitar (nylon)"
  } { \clef "treble_8" \classicalGuitarI }
>>

classicalGuitarIIPart = \new StaffGroup \with {
  \consists "Instrument_name_engraver"
  instrumentName = "Ac. Guit. II"
  shortInstrumentName = "Ac. II"
} <<
  \new Staff \with {
    midiInstrument = "acoustic guitar (nylon)"
  } { \clef "treble_8" \classicalGuitarII }
>>

fuzzGuitarPart = \new StaffGroup \with {
  \consists "Instrument_name_engraver"
  instrumentName = "Fuzz Guitar"
  shortInstrumentName = "Fz.G."
} <<
  \new Staff \with {
    midiInstrument = "electric guitar (clean)"
  } { \clef "treble_8" \fuzzGuitar }
>>

distortedGuitarPart = \new StaffGroup \with {
  \consists "Instrument_name_engraver"
  instrumentName = "Distorted Guitar"
  shortInstrumentName = "D. G."
} <<
  \new Staff \with {
    midiInstrument = "distorted guitar"
  } { \clef "treble_8" \distortedGuitar }
>>

electricBassPart = \new Staff \with {
  instrumentName = "Electric Bass"
  shortInstrumentName = "El.B."
  midiInstrument = "electric bass (finger)"
} { \clef "bass_8" \electricBass }

flutePart = \new Staff \with {
  instrumentName = "Flute"
  shortInstrumentName = "Fl."
  midiInstrument = "flute"
} \flute

drumsPart = \new DrumStaff \with {
    \consists "Instrument_name_engraver"
    instrumentName = "Drums"
    shortInstrumentName = "Batt."
  } \drum 

organPart = <<
  \new PianoStaff \with {
    instrumentName = "Organ"
    shortInstrumentName = "Or."
  } <<
    \new Staff = "right" \with {
      midiInstrument = "drawbar organ"
    } \rightOrgan
    \new Staff = "left" \with {
      midiInstrument = "drawbar organ"
    } { \clef bass \leftOrgan }
    \new Staff = "pedal" \with {
    midiInstrument = "drawbar organ"
  } { \clef "bass_8" \pedal }
  >>
>>

stringsPart = \new PianoStaff \with {
  instrumentName = "Strings"
  shortInstrumentName = "Str."
} <<
  \new Staff = "right" \with {
    midiInstrument = "string ensemble 1"
  } \stringsright
  \new Staff = "left" \with {
    midiInstrument = "string ensemble 1"
  } { \clef bass \stringsleft }
>>

electricPianoPart = \new PianoStaff \with {
  instrumentName = "Electric Piano"
  shortInstrumentName = "E.P."
} <<
  \new Staff = "right" \with {
    midiInstrument = "electric piano 1"
  } \electricPianoright
  \new Staff = "left" \with {
    midiInstrument = "electric piano 1"
  } { \clef bass \electricPianoleft }
>>

tubularBellsPart = \new Staff \with {
  instrumentName = "Tubular Bells"
  shortInstrumentName = "Tub. B."
  midiInstrument = "tubular bells"
} \tubularBells

\score {
  <<
    \tenorVoiceIPart
    \tenorVoiceIIPart
    \classicalGuitarIPart
    \classicalGuitarIIPart
    \fuzzGuitarPart
    \distortedGuitarPart
    \electricBassPart
    \flutePart
    \drumsPart
    \organPart
    \stringsPart
    \electricPianoPart
    \tubularBellsPart
  >>
  \layout { 
    \context { \RemoveEmptyStaffContext }
    \context { 
         \DrumStaff 
         \remove "Axis_group_engraver" 
         \override VerticalAxisGroup #'remove-empty = ##t 
         \consists "Hara_kiri_engraver" 
        } 
  }
  \midi { }
}