\version "2.14.2"
\language "english"

\header {
  title = "Title Theme"
  composer = "Tommy Montgomery"
  copyright = "(c) 2014 Tommy Montgomery"
}

leadIn = \relative c'' {
 \ottava #'1
 \repeat unfold 2 { e8 a b e b a b' a }
 \repeat unfold 2 { gs a gs e fs g fs d }
 \repeat unfold 2 { fs g fs d e f e c }
 
 \ottava #'0
 fs16 g fs e ds e ds c b c b g fs g fs e |
 ds e ds c b c b g fs g fs e ds e ds b | 
}

global = {
  \key e \major
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
  \time 4/4
  \tempo 4 = 160
}

pad = \new Staff \with {
  instrumentName = "Pad"
  midiInstrument = #"pad 1 (new age)"
} { 
  \clef treble \relative c'' {
    \global
    \leadIn
    \repeat unfold 8 r1
    r4 c'8 b g fs e ds |
    \repeat unfold 8 r1 |
    r16 b, ds fs b b ds fs b b ds fs b4 |
  }
}

goblins = \new Staff \with {
  instrumentName = "Goblins"
  midiInstrument = #"fx 6 (goblins)"
} { 
  \clef treble \relative c'' {
    \global
    \leadIn
    \repeat unfold 8 r1
    r4 c'8 b g fs e ds |
    \repeat unfold 8 r1 |
    r16 b, ds fs b b ds fs b b ds fs b4 |
  }
}

strings = \new Staff \with {
  instrumentName = "Strings"
  midiInstrument = #"string ensemble 1"
} { 
  \clef treble \relative c'' {

    \global
    \repeat unfold 16 r1
    r4 c'8 b g fs e ds |
    
    <e, gs b>1 ~ |
    <es gs b> |
    <fs a cs> ~ |    
    <fs b d> ~ |
    
    <fs as cs> |
    <g b d>2. ~ q8 ~ <g a d> ~ |
    q4. ~ <fs a d>8 ~ q4. ~ <g a e'>8 ~ |
    <g a e'>1 |
    <fs b ds> |
    
  }
}


lead = \new Staff \with {
  instrumentName = "Square"
  midiInstrument = #"lead 1 (square)"
} { 
  \clef treble \relative c'' {
    \global
    \repeat unfold 8 r1
    
    e4. b8 gs' a b b ~ |
    b b, a' <b, gs'>8 ~ <b gs'> a' gs <a, fs'> ~ |
    <a fs'>4. a8 cs e fs <a, fs'> ~ |
    <a fs'>4 q8 <a g'> ~ q <a fs'>4 <a e'>8 ~ |
    
    q <b d>4 <a cs>8 ~ q a4 <g b>8 ~ |
    q4. g8 a b cs <a d>8 ~ |
    q cs d e ~ e c a f ~ |
    f4. g8 ~ g a4 b8 ~ |
    b1 |
    
    e4. b8 gs' a b b ~ |
    b cs, a' <cs, gs'>8 ~ <cs gs'> a' gs <a, fs'> ~ |
    <a fs'>4. a8 cs e fs <b, fs'> ~ |
    <b fs'>4 q8 <b e g> ~ q <b d fs>4 <cs e>8 ~ |
    
    q <b d>4 <as fs>8 ~ q fs4 <g b>8 ~ |
    q4. <g cs>8 ~ q <a d>4 <g a d>8 ~ |
    q4. <fs a d>8 ~ q4. <g a e'>8 ~ |
    q4. g8 g a e' ds ~ |
    ds1 |
  }
}

basicBassLine = \relative c, {
  e8 b' e4 e,8 e e'4 |
}

bass = \new Staff \with {
  instrumentName = "Bass"
  midiInstrument = #"synth bass 1"
} { 
  \clef bass \relative c, {
    \global
    \repeat unfold 8 r1
    
    \basicBassLine |
    \transpose e b \basicBassLine |
    \transpose e fs \basicBassLine |
    \transpose e d \basicBassLine |
    
    \transpose e a \basicBassLine |
    \transpose e g \basicBassLine |
    fs8 d' fs d f, c' f c |
    \transpose e c \basicBassLine |
    \transpose e b \basicBassLine |
    
    \basicBassLine |
    es,8 cs' es4 es,8 es es'4 |
    \transpose e fs \basicBassLine |
    b,8 fs' b4 e,8 b' e4 |
    
    \transpose e fs \basicBassLine |
    \transpose e g \basicBassLine |
    <a, a'>4. <d, d'>8 ~ q4. <c c'>8 |
    \transpose e c \basicBassLine |
    \transpose e b, \basicBassLine |
  }
}

\score {
  <<
    \lead
    \pad
    \goblins
    \strings
    \bass
  >>
  \layout { 
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {}
}