music/album3/haunted-house.ly

\version "2.24.0"
\language "english"

\header {
  title = "The Haunted House"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key e \mixolydian
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \omit Voice.StringNumber
  \override TupletBracket.bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \override Score.ChordName.font-name = #"Noto Serif"
  \override Score.ChordName.font-size = #0
  \override Score.LyricText.font-name = #"Noto Serif"
  \override Score.LyricText.font-size = #0
  \tempo 4 = 172
}

glueRiffFirstSix = \relative c {
  e8 d' e e, d' e e, d' | e e, d' e \grace e( f e) d e |
  e, d' e e, a b e, d' | cs e, g a \grace a( bf a) g a |
  e d' e e, d' e e, d' | e e, d' e \grace e( f e) d e |
}

glueRiffFirstHalf = \relative c {
  \glueRiffFirstSix
  e8 d' e e, gs' a e, d'' e e,, b'' a e, e' d4 |
}

glueRiffSecondHalf = \relative c {
  \glueRiffFirstSix
  e8 d' e e, gs' a e, d'' e e,, gs'' a e,, d''' e4 |
}

glueRiffThree = \relative c {
  d'4. a'8 ~ a4 gs ~ | gs8 a4. d4. a'8 ~ | a4 gs ~ gs8 a4. |
  <a b>2( <b b>) |
}


guitarOne = \relative c' {
  \global
  <e b' e>4 q q8 q q q ~ | q q q q ~ q q q q |
  <d a' d>4 q q8 q q <a e' a> ~ | q q q q ~ q q q q |
  <e' b' e>4 q q8 q q q ~ | q q q q ~ q q <e e'> <fs fs'> |
  <g g'>4 q8 q q <fs fs'> <e e'> <d d'> ~ | q q q q ~ q q q\glissando( <fs fs'>) |

  <e b' e>4 q q8 q q q ~ | q q q q ~ q q q q |
  <d a' d>4 q q8 q q <a e' a> ~ | q q q q ~ q q q <b fs' b> |
  <c g' c>4 q q8 q q <g d' g> ~ | q q q q ~ q q q\glissando( <a e' a>) |
  q4 q q8 q q q ~ | q q q q ~ q q q q |

  \glueRiffFirstHalf
  \glueRiffSecondHalf
  \glueRiffThree

  %{
  <d a' d f>4 q q8 q q q ~ | q q q q ~ q q q q |
  <a e' a cs>4 q q8 q q q ~ | q q q q ~ q q q q |
  <g d' g bf d g>4 q q8 q q q ~ | q q q q ~ q q <g d' g>\glissando( <bf f' bf>) |
  <a e' a cs>4 q q8 q q q ~ | q q q q ~ q q q q |

  <bf f' bf>4. q8 ~ q4 q ~ | q8 q4. <c g' c>4. q8 ~ |
  q4 q ~ q8 q4. | c4 d e c |
  <d a' d>4 q q8 q q q ~ | q q q q ~ q q q q |
  a'16( b a g) e8( d) a( c\glissando d) d | fs( d) g16 a g fs g8( fs) d( a) |

  e4. e'8 ~ e4 b' ~ | b8 d4. <a' b>2 ~ |
  q1 ~ | q1 |
  % e,,8 <g d' g>\glissando( <fs cs' fs>) e |
  % <g d' g>\glissando( <fs cs' fs>) e <g d' g>\glissando( <fs cs' fs>) e <g d' g>\glissando( <a e' a>) |
  %}

  \bar "||"

  \repeat unfold 8 e8 \repeat unfold 8 e \repeat unfold 8 d' \repeat unfold 8 a
  \repeat unfold 8 e \repeat unfold 8 e \repeat unfold 8 g \repeat unfold 8 d'
  \repeat unfold 8 e, \repeat unfold 8 e \repeat unfold 8 d' \repeat unfold 7 a b
  \repeat unfold 6 c b a \repeat unfold 6 g a b \repeat unfold 8 a \repeat unfold 8 a

  % interlude

  \glueRiffSecondHalf

  % verse 2
  \repeat unfold 2 {
    e8 e <e e'> e e e e <e e'> | e <e e'> e e e e <e e'> e |
    e e <e d'> e e <e d'> e <e cs'> | e e <e cs'> e cs' d cs a |
  }
  \alternative {
    {
      e8 e <e e'> e e e e <e e'> | e <e e'> e e e e <e e'>(  fs') |
      <b, g'> b b b b <b g'> b <a fs'> ~ | q a a a <a fs'>( d) <a d>( e') |
    }
    {
      g, c d g, c e g, c | d g, b d g, b d g, |
      a e' a a, e' b' a, e' | d' a, e' cs' a, e' g( a) |
    }
  }

  % chorus 2
  \key d \minor
  bf8 f bf, bf' f bf, bf' f | c' g c, c' g c, c' g |
  c f, c c' f, c c' f, | d' g, d d' g, d d' g, |
  d' bf d, d' bf d, d' bf | e c e, e' c e, e' c |
  e a, e e' a, e e' a, | e' a, e e' a, e e' a, |

  f' bf, f f' bf, f f' bf, | g' c, g g' c, g g' c, |
  f c f, f' c f, f' c | g' d g, g' d g, g' d |
  bf' f bf, bf' f bf, bf' f | c' g c, c' g c, c' g |
  d e g a \ottava #1 d e g a | d1 \ottava #0 |


  \bar "||"

  % bridge
  \key e \dorian
  \time 2,2,2,2,2,2 6/4
  e,,,,8 e' b' d ~ d b4 e,8 d'4 b |
  e,,8 e' b' cs ~ cs b4 e,8 cs'4 b |
  e,,8 e' b' c ~ c b4 e,8 c'4 b |
  g,8 d' a' b ~ b g4 g,8 b'4 g |

  e,8 e' b' d ~ d b4 e,8 d'4 b |
  e,,8 g' cs e ~ e cs4 g8 e'4 cs |
  e,,8 fs' d' a' ~ a d,4 fs,8 a'4 d, |
  a8 e' a d ~ d a4 e8 <a, e' a cs>2\arpeggio ~ | \time 2/4 q2 |

  \time 4/4
  e,8 e' g d' fs d g, e' ~ | e1 |
  e,,8 fs' a d a' d, a e' ~ | e1 |
  g,,8 d' fs g d' g, fs e' ~ | e1 |
  a,,8 d a' b g' b, a fs' ~ | fs1 |

  \bar "||"

  e,,8 e' g e d' g, e e, | e' g e d' g, e g e |
  e, e' a e cs' a e e, | e' a e cs' a e a e |
  e, c' g' c, c' g c, e, | c' g' c, c' g c, b a |
  g d' g d b' g d g, | d' g d b' g d g, fs |

  e e' g e d' g, e e, | e' g e d' g, e g e |
  e, g' cs g e' cs g e, | g' cs g e' cs g cs g |
  e, fs' a fs d' a fs e, | fs' a fs d' a fs a fs |
  e, e' a e cs' a e e, | e' a e b' a e g( fs) |

  e2 b'4. e8 ~ | e1 | fs,2 a4. d8 ~ | d1 |
  a2 d4. e8 ~ | e1 | g,2 d'4. fs8 ~ | fs1 |

  e,,4 e r4 r8 e ~ | e e4 e8 ~ e e g' e |
  e,4 e r4 r8 e ~ | e e4 e8 ~ e e a' e |
  e,4 e r4 r8 e ~ | e e4 e8 ~ e e g' e |
  g,4 g r4 r8 g ~ | g g4 g8 ~ g a g fs |

  e16 e e8 r e <e' b'>4. e,8 | r e r e16 e <e' b'>2 |
  e,16 e e8 r e <g' cs>4. e,8 | r e r e16 e <g' cs>2 |
  e,16 e e8 r e <a' d>4. e,8 | r e r e16 e <a' d>2 |
  <a, e' a>8 <g d' g>4 q8 ~ q4 e16 e e e | <a e' a>8 <g d' g>4 q8 ~ q8 <a e' a>4. |

  \key b \mixolydian
  b8 fs' b ds e b ds b, ~ | b fs' b ds e b ds b |
  a, e' a cs e b cs e,, ~ | e b' e gs e' b gs e |
  g, d' g d' g d g, d ~ | d a' d fs g( fs) d a |
  a, e' a e d' a e cs' ~ | cs a e a b a e a, |

  b fs' b ds e b ds b, ~ | b fs' b ds e b ds b |
  d, a' d a b d a d, ~ | d a' d a b d a d, |
  e, b' fs' gs e' b gs e, ~ | e b' fs' gs e' b gs fs |
  fs, cs' fs as b as fs fs, ~ | fs cs' fs as b e( fs4) |

  <b,, fs' b>4 q q8 q q q ~ | q q q q ~ q q q q |
  <a e' a>4 q q8 q q <e b' e> ~ | q q q q ~ q q q <fs cs' fs> |
  <g d' g>4 q q8 q q <d' a' d> ~ | q q q q ~ q q q q |
  <a e' a>4 q q8 q q q ~ | q q q q ~ q q q q |

  <b fs' b>4 q q8 q q q ~ | q q q q ~ q q q <cs gs' cs> |
  <d a' d>4 q q8 q q q ~ | q q q q ~ q q q <ds as' ds> |
  <e b' e>4 q q8 q q q ~ | q q q q ~ q q q <fs cs' fs>  |
  <g d' g>4 q q8 q q <a e' a> ~ | q q q q ~ q q q q |

  \bar "||"


  \key e \mixolydian
  \glueRiffFirstHalf
  \glueRiffSecondHalf

  % verse 3
  R1*16 |

  % chorus
  \key d \minor

  \repeat unfold 2 {
    <bf, f' bf>4. q8 ~ q4 q | <c g' c>4. q8 ~ q4 q |
    <f, c' f>4. q8 ~ q4 q8\glissando( <g d' g>) | q4. q8 ~ q4 q8\glissando( <a e' a>) |
    <bf f' bf>4. q8 ~ q4 q | <c g' c>4. q8 ~ q4 q |
  }
  \alternative {
    { <a e' a>4. q8 ~ q4 <bf f' bf> | <a e' a>4. q8 ~ q4 <g d' g>8\glissando( <a e' a>) | }
    { <d a' g'>4. q8 ~ q4 q | <d a' fs'>4. q8 ~ q4 q | }
  }


  g,8 f' g g, f' g g, f' | g g, f' g g, f' g g, | f' g g, f' g g, f' g |
  g, f' g g, f' g g, f' | g g, f' g g, f' g g, | f' g g, f' g g, f' g |
  g,8 f' g g, f' g g, f' | g g, f' g g, f' g g, |

  \key e \mixolydian
  \glueRiffThree

  <e b' e gs b e>1\arpeggio\fermata |

  \bar "|."

  %{
  \time 6/4
  \key g \minor
  \repeat unfold 2 { g,,,,8( bf) d g d g bf( g) d g d bf | }
  \repeat unfold 2 { a( c) ef g ef g a( g) ef g ef c | }
  \repeat unfold 2 { bf( d) f a f a c( a) f a f d | }
  c( e) g c g c d( c) g c g e | cs( e) g bf g bf cs( bf) g bf g e |

  d( f) a d a d f( d) a d a f | e( g) bf d bf d e( d) bf d bf g |
  f( af) c f c f af( f) c f c af | g( b) d f d f af( f) d f d b |
  c,( ef) g c g c ef( c) g c g ef | d( fs) a c a c d( c) a c a fs |
  ef( g) bf d bf d ef( d) bf d bf g | f( a) c f c f a( fs) d c a fs |
  %}



}

guitarTwo = \relative c {
  R1*32 |
  R1*4 |

  % verse 1
  R1*16 |
  R1*8 |

  % verse 2
  R1*16 |

  % chorus 1
  R1*16 |

  % interlude/breakdown
  R1*6/4*8 | R2 |

  R1*8 |

  % bridge
  R1*16 |
  R1*8 |

  R1*16 |

  % interlude/solo
  \key b \mixolydian
  ds''2 ~ ds8 e4 fs8 ~ | fs1 |
  fs2 ~ fs8( g fs) e ~ | e1 |
  e2 ~ e8 d e fs ~ | fs1 |
  e2 ~ e8 d4 cs8 ~ | cs2 a |

  b2 ~ b8 cs4 ds8 ~ | ds1 |
  d2 ~ d8 e4 fs8 ~ | fs2. ~ fs8 g16( fs) |
  e2 ~ e8 fs4 gs8 ~ | gs2 b |
  as2 ~ as8 b4 cs8 ~ | cs1 |

  \ottava #1 \grace a'8( b2) \grace a8( b a) fs \grace a( b) ~ |
  b2. gs16( a gs fs) |
  gs4. b,8 gs'( a gs) fs ~ | fs \grace e( fs) e cs b a fs e |
  g8 \tuplet 3/2 { g16 b d } e8 \tuplet 3/2 { g,16 b d } fs8 \tuplet 3/2 { g,16 b d } e8 d ~ |
  d4. cs8 ~ cs4 d | e4. a,16 a a4 e'8 \grace e( fs) ~ |
  fs4 a16( fs) e( cs) b( a) e'( cs) b( a) fs( e) |

  fs4. \ottava #0 b,16 b b8 fs' e b' ~ | b4( cs8) e cs( b) a b16( a)  |
  d2 ~ d8 a4 d,8 ~ | d4 \tuplet 3/2 4 { cs8 d e fs gs a } b16 cs d ds |
  e4. \grace d8( e) ~ e4. e,,16( g a) a( b d) d( e g) g( a b) b( d e) e( g a) |
  g2 g4. \grace g8( a) ~ | a1 |

  R1*16 |

}

vocalMelody = \relative c' {
  R1*16 |
  R1*16 |
  R1*3 |


  r2 r4 r8 e8 |
  % verse 1
  d'4^"verse 1" d8 d d( cs) cs cs( | b) b4. r2 |
  cs4 cs8 cs cs( b) b b ~ | b2 r2 |
  d8 d d8 d d( cs) cs cs( | b) b4. r2 |
  e8 e e e e d d d ~ | d2 r2 |

  d8 d d d d cs cs cs | b b4. r2 |
  b8 b b b ~ b cs4 cs8 ~ | cs2 r2 |
  c8 c4 c8 ~ c c4 b8 ~ | b b b b ~ b a g g |
  a8 a4 a8 ~ a b4 a8 ~ | a2 r2 |

  \bar "||"

  % interlude
  R1*8 |

  \bar "||"


  d8^"verse 2" d4 d8 ~ d( cs) cs cs( | b) b4. r2 |
  cs8 cs cs cs cs( b) b b ~ | b2 r2 |
  d8 d d8 d d( cs) cs cs( | b) b4. r4 b8 b |
  e e e e e( d) d d ~ | d2 r4 r8 b |

  d8 d4 d8 ~ d( cs) cs cs( | b) b4. r4 r8 b |
  b b b b ~ b cs cs4 | cs r4 r2 |
  c8 c4 c8 ~ c c4 b8 ~ | b4 b8 b ~ b( a) g g |
  a a a a ~ a b4 a8 ~ | a2 r2 |

  \key d \minor
  bf4.^"chorus 1" a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
  bf4. a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
  d8 d4 ef8 ~ ef d4 c8 ~ | c g4 g8 ~ g4 g8 g | a8 a4 bf8 ~ bf a g4 | g2 r4 r8 a |
  bf4. c8 ~ c4 d | c2 d | e1( | d1) |

  \key e \dorian

  R1*6/4*8 | R2 |
  R1*8 |

  % bridge
  b4 b b b8 b ~ | b a4. r2 |
  a4 a a8( g) g g ~ | g2 r2 |
  a4 a a a8 a( ~ | a4 b8) b ~ b4 b |
  b4 b b b8 c ~ | c c b4 a g |

  b4 b b b8 b( ~ | b a) a2 a4 |
  a a a8 b4 b8 ~ | b2 r2 |
  cs4. cs8 d4 d8 cs( ~ | cs b) b2 r4 |
  r4 b8 b b2 | b8( a) a a ~ a2 |

  R1*8 |

  b2 d4. e8 ~ | e2. b4 |
  e2 d4. d8( | cs b4.) r2 |
  r4 b b b8 c ~ | c4 c8 c ~ c4 b8 a |
  b2( ~ b8 c b a ~ | a2) r2 |

  b2 d4. e8 ~ | e2. e4 |
  g2 fs4. g8( | fs e4.) r2 |
  r4 e e e8 fs ~ | fs4 fs8 e ~ e4 d |
  cs2 ~ cs8 d4 e8 ~ | e1 |

  \bar "||"

  % guitar solo/instrumental
  \key b \mixolydian
  R1*32 |

  % glue riff
  \key e \mixolydian
  R1*16 |

  \bar "||"

  % verse 3
  d4^"verse 3" d8 d8 d cs cs cs( | b) b4. r4 r8 b |
  cs8 cs4 cs8 ~ cs( b) b b ~ | b2 r2 |
  d8 d d8 d d cs cs cs( | b) b4. r2 |
  e8 e e e e( d) d d ~ | d2 r4 r8 b |

  d8 d4 d8 ~ d( cs) cs cs( | b) b4. r2 |
  b8 b b b b cs cs cs ~ | cs4 r4 r2 |
  c8 c4 c8 ~ c c4 b8 ~ | b4 b8 b ~ b( a) g4 |
  a8 a a a ~ a b4 a8 ~ | a2 r2 |

  \bar "||"

  \key d \minor
  bf4.^"chorus 2" a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
  bf4. a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
  d8 d4 ef8 ~ ef d4 c8 ~ | c g4 g8 ~ g4 g8 g | a8 a4 bf8 ~ bf a g4 | g2 r4 r8 a |
  bf4. c8 ~ c4 d | c2 d | e1( | d1) |

  \bar "||"

  R1*8 |
  R1*4 |
  R1 |
}

allTheLyrics = \lyricmode {
  A -- live in the house __ of won -- der,
  feels like it's all __ gone wrong. __
  Slip in -- to the depths __ of slum -- ber,
  lis -- ten to the fu -- ner -- al song.

  Liv -- ing on the edge of in -- san -- it -- y, __
  start -- ing to feel so right. __
  Head -- ing straight __ a -- head __ to ca -- lam -- i -- ty.
  The fu -- ture's shi -- ning bright. __

  % verse 2
  Stripped of all __ e -- mo -- tion,
  ne -- ver to be seen __ a -- gain.
  Tried to give a last de -- vo -- tion
  but the ceil -- ing is the on -- ly friend. __

  The haunt -- ed house __ is clos -- ing,
  the win -- dows are board -- ed up tight.
  Sit -- ting here __ just de -- com -- pos -- ing,
  too ti -- red to feel __ such fright. __

  % chorus 1
  Now's not __ the time __ to let it __ all __ go.
  Stuck in __ a world __ that just moves __ too __ slow.
  Ne -- ver in __ a thou -- sand years __ would there ev -- er be __ e -- nough time
  to stand up __ and make it right. __

  % bridge
  Shoved in -- to the cor -- ner
  feel -- ing all __ a -- lone. __
  All eyes from the out -- side __
  can't bear to see this fall from so far up.

  On this tra -- gic moun -- tain
  the air is stretch -- ing thin. __
  Now is not for -- e -- ver
  but it sure feels __ the same. __

  It's all right __ to cry it out. __
  Can't seem to hold __ it back __ an -- y -- more. __
  So much time __ to lie a -- wake __
  and think of all __ the love __ that's come __ and gone. __

  % verse 3
  Now that the spell has been bro -- ken
  the heal -- ing can __ be -- gin. __
  Fin -- al -- ly the mind has a -- wo -- ken
  ne -- ver to be seen __ a -- gain. __

  The haunt -- ed house __ is op -- en,
  wait -- ing for a new Heav -- en sent. __
  Got to find __ a way __ to cope __ in
  spite of dis -- or -- i -- ent. __

  % chorus 2
  Now is __ the time __ to let it __ all __ go.
  Stuck in __ a world __ that just moves __ too __ slow.
  Ne -- ver in __ a thou -- sand years __ would there ev -- er be __ e -- nough time
  to stand up __ and make it right. __

}

guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarTwo }


vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
  <<
    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
  >>
}

demLyrics = \new Lyrics \lyricsto "vocalMelody" {
  <<
    \new Lyrics {
      \set associatedVoice = "vocalMelody"
      \allTheLyrics
    }
  >>
}


chordExceptionMusic = {
  <c e g b d'>1-\markup { "maj9" }
  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
  <c ef f g bf>1-\markup { "m7sus4" }
  <c ef gf bff>1-\markup { "°7" }
  <c ef gf bf>1-\markup { \super { "ø7" } }
  <c e g d'>1-\markup { "add9" }
  <c ef g d'>1-\markup { "m(add9)" }
  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
  <c g>1-\markup { "5" }
  <c e g bf>1-\markup { "7" }
  <c e g b>1-\markup { "maj7" }
  <c ef g bf>1-\markup { "m7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
  <c e g f'>1-\markup { "add11" }
}

chordExceptions = #(append
  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
  ignatzekExceptions
)

chordValues = \chordmode {
  \global
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

}

chordNames = \new ChordNames {
  \set chordChanges = ##t
  \set chordNameExceptions = #chordExceptions
  \chordValues
}

\score {
  <<
    \chordNames
    \vox
    \demLyrics
    \guitarOneStaff
    \guitarTwoStaff
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}


\score {
  \unfoldRepeats {
    <<
      %\transpose c c, \vox
      \transpose c c, \guitarOneStaff
      \transpose c c, \guitarTwoStaff
    >>
  }
  \midi {}
}