music/album2/sordid-destiny.ly

\version "2.18.2"
\language "english"

\header {
  title = "Sordid Destiny"
  composer = "Tommy Montgomery"
  copyright = "(c) 2019 Tommy Montgomery"
}

global = {
  \key gs \minor
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \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
  \time 4/4
  \tempo 4 = 176
}

riff = {
  gs4 gs r8 gs r gs16 gs |
  gs4 gs r8 gs gs16 gs gs gs |
  gs4 gs r8 gs r gs16 gs |
  gs16[ gs r gs] gs[ r gs gs] r gs gs r gs gs r8 |
}

riffSevenFour = \relative c' {
  gs4 gs gs'4. gs,8 ~ gs gs4 gs8 gs'4 |
}

guitarOne = \relative c' {
  gs16^"fade in" \repeat unfold 15 gs |
  \repeat volta 7 { \repeat unfold 16 gs16 | }

  \repeat volta 2 {
    <gs ds'>8-> q q q-> q q q-> q |
    <gs e'>8-> q q q-> q q q-> q |
    <gs cs>8-> q q q-> q q q-> q |
    <gs ds'>8-> q q q-> q q q-> q |
  }

  \repeat volta 2 {
    <gs ds'>8->^"w/ P.M." q q q-> q q q-> q |
    <gs e'>8-> q q q-> q q q-> q |
    <gs cs>8-> q q q-> q q q-> q |
    <gs ds'>8-> q q q-> q q q-> q |
  }

  <e b'>4. <e' e'>8 ~ q <ds ds'>4. |
  <e, b'>4. <ds' ds'>8 ~ q <cs cs'>4. |
  <e, b'>4. <cs' cs'>8 ~ q <b b'>4 <as as'>8 ~ |
  q4. <fss as as'>8 q q r q |
  q r q q r q q r |
  \time 2/4 r2 |

  \repeat unfold 4 { <gs ds' gs>4 q r2 | }

  \bar "||"

  % verse 1
  \time 4/4
  \repeat unfold 4 { <gs ds' gs>4 q r2 | }
  \repeat unfold 4 { <cs gs' cs e>4 q r2 | }
  \repeat unfold 4 { <gs ds' gs>4 q r2 | }
  \repeat unfold 2 { <a e' a cs>4 q r2 | }
  <fss as ds as'>8 q r <fss as ds as'>8 q r <fss as ds as'>8 q |
  e8 cs' b e, b' as4. |

  \repeat unfold 4 { <gs ds' gs>4 q r2 | }
  \repeat unfold 2 { <cs gs' cs e>4 q r2 | }
  <e, b' e>4 q r2 | <fs cs' fs>4 q r2 |
  \repeat unfold 4 { <gs ds' gs>4 q r2 | }
  \repeat unfold 2 { <a e' a cs>4 q r2 | }
  <as ds as' ds>2. ~ q8 e | fss as cs e fss2 |

  \time 7/4
  \bar "||"

  \repeat unfold 4 \riffSevenFour

  bs'4 bs8 bs ~ bs as4 cs8 ~ cs cs cs4 bs |
  as4 as8 as ~ as cs4 bs8 ~ bs2 gs8 as |
  b!4 b8 b ~ b as4 cs8 ~ cs b4 as4 b8 ~ |
  b4 as4 as8 as8 ~ as( b16 as) gs8 fs gs2 |

  \time 4/4 gs,,8 cs e cs ds gs b as |
  gs cs e cs ds gs b as |
  <<
    { fss1 ~ | fss | } \\
    {
      <ds, as'>8\glissando( <e b'>) e, <cs' gs'>\glissando( <ds as'>) e,
      <ds' as'>8\glissando( <e b'>) e, <cs' gs'>\glissando( <ds as'>2.) |
    }
  >>

  <gs, ds'>8-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |

  \bar "||"

  % verse 2
  \repeat unfold 2 {
    <gs' b>8-> gs gs <gs b>-> gs gs <gs b>-> gs |
    <gs as>-> gs gs <gs as>-> gs gs <gs as>-> gs |
    <gs cs>-> gs gs <gs cs>-> gs gs <gs cs>-> gs |
    <gs bs>-> gs gs <gs bs>-> gs gs <gs bs>-> gs |

    <gs ds'>-> gs gs <gs ds'>-> gs gs <gs ds'>-> gs |
    <gs e'>-> gs gs <gs e'>-> gs gs <gs e'>-> gs |
    <fs b>-> fs fs <fs b>-> fs fs <fs b>-> fs |
    <fss cs'>-> fss fss <fss cs'>-> fss fss <fss cs'>-> fss |
  }

  gs,8 b'( as) gs as gs fs gs, ~ |
  gs b'( as) gs as gs fs4 |
  gs,8 b'( as) gs as gs fs e, ~ |
  \time 3/4 e fs4 b4 as8 |

  \time 4/4
  gs8 b'( as) gs as gs fs gs, ~ |
  gs b'( as) gs as gs fs4 |
  gs,8 b'( as) gs as gs fs e, ~ |
  e b' e as ~ as b4. |

  <fs, cs'>8 q r <fs cs'>8 q r  <fs cs'>8 q |
  r <fs cs'>8 q r <fs cs'>8 q r4 |
  \time 2/4 r2 |
  \bar "||"

  \time 4/4

  % chorus
  <gs ds' gs>4. q8 q4. q8 |
  q4. q8 q4. q8 |
  <cs gs' cs e>4 cs8 cs <cs gs' cs e> cs cs <cs gs' cs e> ~ |
  q8 cs cs cs <cs gs' cs e>4 <cs gs' cs ds> |

  <gs ds' gs>4. q8 q4. q8 |
  <e b' e>4. q8 q4. q8 |
  <cs' gs' cs es>4 cs8 cs <cs gs' cs es> cs cs <cs gs' cs es> ~ |
  q8 cs cs cs <cs gs' cs fs>4 <cs gs' cs es> |

  <gs ds'>8 gs gs gs <gs ds'>8 gs gs gs |
  <gs ds'>8 gs gs gs <gs ds'>8 gs gs gs |
  <cs gs' cs e>4 cs8 cs <cs gs' cs e> cs cs <cs gs' cs e> ~ |
  q8 cs cs cs <cs gs' cs e>4 <cs gs' cs ds> |

  <b fs' b cs fs>4. b8 <b fs' b cs fs>4. <gs ds' as'>8 ~ |
  q4. gs8 <gs ds' as'>4. gs8 |
  <a e' a>4. a8 <a e' a>4. <e b' e>8 ~ |
  q4. e8 <e b' e>4. e8 |
  <cs' gs' cs e>4 q8 q ~ q8 q4 <fs, cs' fs>8 ~ |
  q1 |

  % brief interlude
  <gs ds'>8-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |

  \time 7/4
  \repeat unfold 4 \riffSevenFour

  \time 4/4
  <e b' e>4 <e b'>8 <b' e as> ~ q <b e b'>4. |
  <fs cs'>8 q r <fs cs'> q r <fs cs'> q |
  r <fs cs'> q r r2 |

  \bar "||"
  % verse 3

  \riff
  \transpose gs e \riff
  \riff
  \repeat unfold 32 e16
  \repeat unfold 32 fs16

  \time 7/4
  \repeat unfold 2 \riffSevenFour

  e8 b' e as ~ as b4 fs,8 cs' fs b4 as4 |

  \time 7/4
  \repeat unfold 2 \riffSevenFour
  \time 4/4
  <e, b'>8 q q q q q q q |
  <fs cs'> q q q q q q q |
  <a e'> q q q q q q q |
  <b fs' b cs> q q q q q q q |
  <b fs' b ds> q q q q q q q |
  <c fs b e> q q q q q q q |
  <b fs' b ds> q r <b fs' b ds> q r <b fs' b ds> q |
  r <b fs' b ds> q r r2 |

  % chorus
  R1*18 |
  <e, b' e>4 q r2 |
  <fs cs' fs>4 q r2 |
  <fss as ds as'>8 q r <fss as ds as'>8 q r <fss as ds as'>8 q |
  r <fss as ds as'>8 q r r2 |

  % interlude
  <gs ds'>8-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |
  q-> q q q-> q q q-> q |

  \repeat volta 2 {
    bs''4 bs8 bs ~ bs as4 cs8 ~ |
    cs4 cs8 cs ~ cs bs4 as8 ~ |
    as4 as8 as ~ as cs4 bs8 ~ |
    bs2. gs8 as |
    b!4 b8 b ~ b as4 cs8 ~ |
    cs b4 as8 ~ as b4 as8 ~ |
    as4. as8 as8( b16 as) gs8( fs) |
    gs2. gs16 a as b |
  }

  <e,,, b' e>4 q8 as' ~ as b4. |
  <fs, cs' fs>4 q8 b' ~ b as4. |

  \repeat volta 4 {
    <gs, ds'>8^"4x" gs16 gs gs gs <gs ds'>8 gs16 gs gs gs <gs ds'>8 gs16 gs |
    \repeat unfold 16 gs16 |
  }

  gs''8 gs16 gs gs8 as b4 ds,8 gs ~ |
  gs8 gs16 gs gs8 as b4 ds,8 gs ~ |
  gs8 gs16 gs gs8 as b4 ds,8 cs' ~ |
  cs cs16 cs cs8 b as4 ds,8 gs ~ |
  gs8 gs16 gs gs8 as bs4 ds,8 gs ~ |
  gs8 gs16 gs gs8 as bs4 ds,8 gs ~ |
  gs8 gs16 gs gs8 as bs4 ds,8 cs' ~ |
  cs cs16 cs cs8 ds e4 ds8 cs |

  \repeat unfold 3 {
    <ds,, as'>8\glissando( <e b'>) e, <cs' gs'>\glissando( <ds as'>) e, <ds' as'>8\glissando( <e b'>) |
    e, <cs' gs'>\glissando( <ds as'>4) e,16 e e e <e b'>4 |
  }
  <ds' as'>8\glissando( <e b'>) e, <cs' gs'>\glissando( <ds as'>) e, <ds' as'>8\glissando( <e b'>) |
  e, <cs' gs'>\glissando( <ds as'>4) r2 |

  % solo
  \bar "||"
  \repeat unfold 4 { <gs, ds'>4 q r2 | }
  \repeat unfold 4 { <e b'>4 q r2 | }
  \riff
  \transpose gs e \riff


  <gs ds'>4 gs8 gs <gs ds'> gs gs <gs ds'> ~ |
  q gs gs gs <gs ds'>4 q |
  <cs gs' cs e>4 cs8 cs <cs gs' cs e> cs cs <cs gs' cs e> ~ |
  q cs cs cs <cs gs' cs e>4 <cs gs' cs ds> |

  <gs ds'>4 gs8 gs <gs ds'> gs gs <e b'> ~ |
  q e e e <e b'>4 q |
  <cs' gs' cs es>4 cs8 cs <cs gs' cs es> cs cs <cs gs' cs es> ~ |
  q cs cs cs <cs gs' cs fs>4 <cs gs' cs es> |

  <gs ds'>4 gs8 gs <gs ds'> gs gs <gs ds'> ~ |
  q gs gs gs <gs ds'>4 q |
  <cs gs' cs e>4 cs8 cs <cs gs' cs e> cs cs <cs gs' cs e> ~ |
  q cs cs cs <cs gs' cs e>4 <cs gs' cs ds> |

  <<
    { e2 gs | as b | } \\
    { \repeat unfold 4 { <e,, b'>8 e e e } }
  >>
  <<
    { cs''2 fs, | b as | } \\
    { \repeat unfold 4 { <fs, cs'>8 fs fs fs } }
  >>

  <ds' as'>4 <e b'> <cs gs'> <ds as'> |
  <e b'> <cs gs'> <ds as'> <e b'> |
  ds16 ds ds ds e e e e cs cs cs cs ds ds ds ds |
  e e e e cs cs cs cs ds ds ds ds e e e e |

  <ds as' ds>8 q q q q q q q |
  <ds as' ds es>8 q q q q q q q |
  <ds as' ds fss>8 q q q q q q q |
  <e as ds gs>8 q q q q q q q |

  <ds as' ds fss>8 q r <ds as' ds fss> q r <ds as' ds fss> q |
  r <ds as' ds fss> q r r2 |
  <ds as' ds fss>8 q r <ds as' ds fss> q r <ds as' ds fss> q |
  r1 |

  \bar "||"




  % chorus 3
  R1*16 |
  <cs gs' cs e>4 q8 q ~ q q4 <fs, cs' fs>8 ~ |
  q4 r4 r2 |

  <e b' e>1 | <fs cs' fs> |
  <gs ds' gs>8 gs gs gs <gs ds' gs> gs gs <gs ds' gs> ~ |
  q8 gs gs gs gs gs gs gs |

  <cs gs'>1 | <b fs'> |
  <a e' gs cs>8 a a a <a e' gs cs> a a <a e' gs cs> ~ |
  q a a a a a a a |

  <cs gs'>1 | <ds as'>2.. <e as cs fss>8 ~ | q1 | q4 r4 r2 |

  \repeat volta 2 {
    <gs, ds'>8-> gs gs <gs ds'>-> gs gs <gs ds'>-> gs |
    <gs e'>-> gs gs <gs e'>-> gs gs <gs e'>-> gs
    <gs cs>-> gs gs <gs cs>-> gs gs <gs cs>-> gs
    <gs ds'>-> gs gs <gs ds'>-> gs gs <gs ds'>-> gs |
  }

  gs8 b'( as) gs as gs fs gs, ~ |
  gs b'( as) gs as gs fs4 |
  gs,8 b'( as) gs as gs fs e, ~ |
  \time 3/4 e fs4 b4 as8 |

  \time 4/4
  gs8 b'( as) gs as gs fs gs, ~ |
  gs b'( as) gs as gs fs4 |
  gs,8 b'( as) gs as gs fs e |
  ds b cs as b gs as fs |

  <e b'>4. <e' e'>8 ~ q <ds ds'>4. |
  <e, b'>4. <ds' ds'>8 ~ q <cs cs'>4. |
  <e, b'>4. <cs' cs'>8 ~ q <b b'>4 <as as'>8 ~ |
  q4. <fss as as'>8 q q r q |
  q r q q r q q r |
  r1 |

  <gs ds' gs>4 q r2 |
  <gs ds' gs>4 q r4 r8 \ottava #1 \override NoteHead.style = #'harmonic-mixed \tuplet 5/4 { gs''''32 ds b fs cs } \ottava #0 \revert NoteHead.style |
  <gs,, ds' gs>4 q r4 gs16 gs gs gs |
  <gs ds' gs>4 q r2 |

  \bar "|."



}

vocalMelody = \relative c'' {
  R1 |
  \repeat volta 7 R1 |
  \repeat volta 2 R1*4 |
  \repeat volta 2 R1*4 |

  % e major thing
  R1*5 \time 2/4 r2 |

  \time 4/4
  R1*4 |

  % verse 1
  r2 ds2^"verse 1" ~ | ds1 | r2 ds4 ds | cs ds2 ds4( |
  e1 ~ | e2) r2 | r2 e4 e | fs4. e8 ~ e4 e4( |
  ds1 ~ | ds2) r2 | r2 ds4 ds | cs ds2 cs4 ~ |
  cs1 | ds2 e | ds1 | r1 |

  r2 ds2 ~ | ds1 | r2 ds4 ds | cs ds2 ds4(
  e1 ~ | e2) r2 | r2 e4 e | fs4. e8 ~ e4 e4( |
  ds1 ~ | ds2) r2 | r2 ds4 ds | cs ds2 cs4 ~ |
  cs1 | ds2 e | fss1( ~ | fss1 |

  \time 7/4
  gs1 ~ gs2. ~ | gs1) r2. |

  R1*7/4*6 |
  \time 4/4
  R1*6 |

  % verse 2
  ds1^"verse 2" | cs2 ds | e1 | ds |
  bs | cs2( as) | b1( | as2) r2 |

  ds1 | cs2 ds | e1 | ds2 cs |
  bs1 | cs2( e) | ds1 ~ | ds2 r2 |

  R1*3 |
  R1*3/4 |
  R1*6 |
  R1*1/2 |

  % chorus
  gs,2^"chorus" as | b gs | cs1 ~ | cs2 r2 |
  gs2 as | b gs | cs1 ~ | cs2 r2 |
  bs2 cs | ds gs, | e'2( ~ e8 ds cs4 ~ | cs2) r2 |

  ds4 ds8 ds ~ ds cs4 b8 ~ | b2 b4 b |
  cs4 cs8 cs8 ~ cs ds4 e8 ~ | e2 r2 |
  e4 e8 e ~ e ds4 cs8 ~ | cs4 cs b8 as4. |

  gs1 | r1 | cs8 cs4 cs8( ~ cs bs4. ~ | bs4. a8 ~ a4. gs8 ~ |
  \time 7/4 gs1)^"G# riff" r2. |

  R1*7/4*3 |
  \time 4/4
  R1*3 |

  ds'4.^"verse 3" e8 ~ e4 cs ~ | cs2 cs4 ds | e4. fs8 ~ fs4 ds ~ | ds2 r2 |
  ds4. e8 ~ e4 cs ~ | cs2 cs4 ds | e4. fs8 ~ fs4 gs ~ | gs2 r2 |
  gs4. as8 ~ as4 b ~ | b4 gs gs gs | cs4. cs8 ~ cs4 cs8( bs ~ | bs8 as gs2) r4 |
  gs4. as8 ~ as4 b ~ | b2 gs4 gs | as4. b8 ~ b4 cs ~ | cs1 |

  \time 7/4
  R1*7/4*5
  \time 4/4
  R1*8 |

  % chorus 2
  gs,2^"chorus" as | b gs | cs1 ~ | cs2 r2 |
  gs2 as | b gs | cs1 ~ | cs2 r2 |
  bs2 cs | ds gs, | e'2( ~ e8 ds cs4 ~ | cs2) r4 r8 cs |

  ds4 ds8 ds ~ ds cs4 b8 ~ | b2 b4 b |
  cs4 cs8 cs8 ~ cs ds4 e8 ~ | e2 r2 |
  e4 e8 e ~ e ds4 cs8 ~ | cs4 cs b8 as4. |

  gs1( | as ~ | as ~ | as2) r2 |

  % interlude
  R1*4 |
  \repeat volta 2 R1*8 |
  R1*2 |
  \repeat volta 4 R1*2 |
  R1*16 |

  % solo
  R1*32 |
  R1*12 |


  % chorus 3
  gs2^"chorus" as | b gs | cs1 ~ | cs2 r2 |
  gs2 as | b gs | cs1 ~ | cs2 r2 |
  bs2 cs | ds gs, | e'2( ~ e8 ds cs4 ~ | cs2) r2 |

  ds4 ds8 ds ~ ds cs4 b8 ~ | b2 b4 b |
  cs4 cs8 cs8 ~ cs ds4 e8 ~ | e2 r2 |
  e4 e8 e ~ e ds4 cs8 ~ | cs4 cs b8 as4. |

  gs1( | as | bs1) | r4 bs4 bs8 bs4. |
  cs1( | ds | e) | r4 e4 e8 e4. |
  es1( | fss ~ | fss) | r4 b4 b8 as4. |

  \repeat volta 2 { gs1 | r1 | r1 | r1 | }



}

allTheLyrics = \lyricmode {
  Take, __
  take a look a -- round. __
  Do you hear the __ sound? __
  Of a thous -- and hearts __ bleed -- ing dry.

  Lay. __
  Lay me down to __ sleep. __
  That is all I need __
  to all -- e -- vi -- ate __
  all my pain. __

  % verse 2
  I've seen the won -- ders in your __ eyes. __
  Hearts op -- en up but the dream still __ dies. __

  % chorus
  Tell me what to say. __
  Teach me how to pray. __
  Show me why I stay. __

  Op -- en up __ my eyes __
  to the sav -- ior in __ the skies. __
  Free me from __ these lies, __
  I'm com -- ing home.
  Com -- ing home. __

  % verse 3
  Torn a -- part __ from the in -- side __ out. __
  Sav -- ing grace __ from the dark -- est __ light. __
  Bid -- ing time __ un -- til the ang -- els __ fall. __
  Bur -- ied deep __ but I'll dig it __ out. __

  % chorus 2
  Tell me what to say. __
  Teach me how to pray. __
  Show me why I stay. __

  Con -- vic -- tion  in __ my eyes __
  I'm the stran -- ger in __ dis -- guise. __
  Save your long __ good -- byes, __
  I'm go -- ing home.

  % chorus 3
  Tell me what to say. __
  Teach me how to pray. __
  Show me why I stay. __

  Tir -- ed of __ your lies __
  but I'll ne -- ver cease __ to rise. __
  Op -- en up __ your eyes, __
  I'm com -- ing home. __

  I'm com -- ing home. __
  I'm com -- ing home. __
  I'm com -- ing home.


}

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


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 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
)

chorusEChords = \chordmode {
  \repeat unfold 2 {
    e4:1.5 q16 d:1.5 e4:1.5 q16 d16:1.5 e4:1.5 |
    d16:1.5 e:1.5 f4:1.5 q16 e16:1.5 d2:1.5 |
    e4:1.5 q16 d:1.5 e4:1.5 q16 d16:1.5 e4:1.5 |
  }
  \alternative {
    { f16:1.5 e:1.5 d4.:1.5 f4:1.5 q16 g8.:1.5 }
    { f1 }
  }
}

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

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

\score {
  <<
    \chordNames
    \vox
    \demLyrics
    \guitarOneStaff
  >>
  \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
    >>
  }
  \midi {}
}