\version "2.24.0"
\language "english"

\header {
  title = "Solid Opener"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key e \phrygian
  \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 = 144
}

mainRiff = \relative c' {
  \time 11/8 <e b' e>8[ e16 e e e] <d a' d>8[ d16 d d d] <e b' e>8[ e16 e e e] <e b' e>8(\glissando[ <f c' f>]) |
  \time 10/8 <e b' e>8[ e16 e e e] <d a' d>8[ d16 d d d] <e b' e>8[ c16 c] b[ b c c] |
  \time 11/8 <e b' e>8[ e16 e e e] <d a' d>8[ d16 d d d] <e b' e>8[ e16 e e e] <e b' e>8(\glissando[ <f c' f>]) |
}

mainRiffSecondary = \relative c {
  \time 11/8 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>8[ e16 e e e] <b' e>8(\glissando[ <c f>]) |
  \time 10/8 <e, b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>8[ g16 g] fs[ fs g g] |
  \time 11/8 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>8[ e16 e e e] <b' e>8(\glissando[ <c f!>]) |
}

dMinorPreChorusPlusLeadin = \relative c' {
  \time 4/4
  d8 a' d a e'\glissando (f) d, g' | d, a''\glissando( bf) d,, a''\glissando( g) d, f' |
  d, e'\glissando( f) d, e'\glissando( d) d, c'\glissando(
  \time 6/4 d) d,16 d d d <c g' c>8 c16 c c c <d a' d>2 ~ q8 a16 c\glissando |

  \time 4/4
  d8 a' d a e'\glissando (f) d, g' | d, a''\glissando( bf) d,, a''\glissando( g) d, f' |
  d, e'\glissando( f) d, e'\glissando( d) d, c' |
  \time 6/4 d,16 e f g a bf a g a bf c d e f e d e f g a bf c bf a |

  \time 4/4 b!4. d8 ~ d a4 f8 | e f a b ~ b a4 b8 |
  \time 5/4 \ottava #1 c16 c a a e' e d d g g e e c' c a a b b d d \ottava #0 |

  \time 4/4 c,,,8 b c d ~ d c4 d8 | e d e f ~ f e4 d8 |
  e d c d ~ d c4 b8 | \tuplet 3/2 { a4 e' c' } b c |
  b16( c b) a b a g fs fs( g fs) e fs e d c |
  b16( c b) a b a g fs g4 fs |
}

verseRiffInE = \relative c {
  <e b' e>4 e16 e <e b' e>8 r4 e16 e <e b' e>8 |
  r8 <e b' e>8 r8 e16 e <e b'e>4 q |
}

interludeRiffInE = \relative c {
  e8 d'16 e f8 e16 d e8 e, r e'16 f |
  g8 f16 e f8 e, r d'16 e f8 e16 d |
  e8 e, r a16 b c8 b16 a g a b8 |
  e, f e r d'16 e f8 e16 d e8 |
  e, r e'16 f g8 f16 e f8 e, r |
  d'16 e f8 e16 d e8 e, r a16 b c8 |
  b16 a g a b8 e, f e r a'16 b |
}

guitarOne = \relative c' {
  \global
  \mainRiff

  \time 6/8 <e b' e>8[ e16 e e e] <d a' d>8[ d16 d d d] |
  \time 4/4 e'16( d) b bf a g e\glissando( d) e( d) b bf a\glissando( g) a( g) |

  %{
  <f c' f>4. <g d' g>8 ~ q2 |
  \time 5/4 <a e' a c>2. ~ q8 <c f b d>4. |
  %}

  \repeat volta 2 {
    \mainRiffSecondary
  }
  \alternative {
    { \time 6/4 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>4 d'16 c b e, c' b a e | }
    { \time 6/4 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>2 e8 fs | }
  }

  \key e \minor
  \time 4/4 g fs g a ~ a g4 a8 | b a b c ~ c b4 a8 | b a g a ~ a g4 fs8 |
  \time 6/4 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <e b' e>2 e8 fs |
  \time 4/4 g fs g a ~ a g4 a8 | b a b c ~ c b4 a8 | b a g a ~ a g4 a8 |
  \time 6/4 <b fs' b>8[ b16 b b b] <a e' a>8[ a16 a a a] <b fs' b>2 b8 c |
  \time 4/4 d c d ef ~ ef d4 ef8 | fs ef fs g ~ g fs4 ef8 | fs ef d ef ~ ef d4 c8 |
  \time 5/4 <d a' d>8[ d16 d d d] <c g' c>8[ c16 c c c] <d a' d>2 |
  \time 6/4 d16 e f g a bf a g a bf c d e f e d e f g a bf c bf a |
  \time 4/4 b!4. d8 ~ d a4 f8 | e f a b ~ b a4 b8 |
  \time 5/4 \ottava #1 c16 c a a e' e d d g g e e c' c a a b b d d \ottava #0 |

  \time 4/4
  \key e \phrygian
  <e,,,, b' e>4 e16 e <e b'>8 r4 e16 e <e b' e>8 |
  r8 <e b' e>8 r8 e16 e g( e) e a( e) e g( e) |
  <e b' e>4 e16 e <e b'>8 r4 e16 e <e b' e>8 |
  r8 <e b' e>8 r8 e16 e d'( a) g( e) g\glissando( a) e' d |
  <e, b' e>4 e16 e <e b'>8 r4 e16 e <e b' e>8 |
  r8 <e b' e>8 r8 e16 e g( e) e a( e) e <f c' f>8 |
  <e b' e>4 e16 e <e b'>8 r4 e16 e <e b' e>8 |
  r8 <f c' f>4. c''16( a) f e c b a f |

  % verse
  \repeat unfold 4 {
    <e b' e>4 e16 e <e b' e>8 r4 e16 e <e b' e>8 |
  }
  \alternative {
    { r8 <e b' e>8 r8 e16 e <e b'e>4 q | }
    { r8 <e b' e>8 r8 e16 e e e <f c'f>8 e16 e <f c' f>8 | }
    { r8 <e b' e>8 r8 e16 e <e b'e>4 q | }
    { r8 <e b' e>8 r8 e16 e f a b c e f a b | }
  }

  R1^"original riff" | R1*6 | r8 <f, c' f>4. ~ q8 <g d' g>4 e16( g\glissando |

  % pre-chorus

  a8) e' a e b'\glissando( c) a, d' |
  a, e''\glissando( f) a,, e''\glissando( d) a, c'
  a, b'\glissando( c) a, b'\glissando( a) a, g'\glissando( |
  \time 6/4 a) a,16 a a a <g d' g>8 g16 g g g <a e' a>2 ~ q8 e16( g\glissando  |
  \time 4/4
  a8) e' a e b'\glissando( c) a, d' |
  a, e''\glissando( f) a,, e''\glissando( d) a, c'
  a, b'\glissando( c) a, << { b'\glissando_( a) a, g'\glissando( } \\ { s2 } >> |
  \time 6/4
  <<
    { a) }
    \\
    { a,16 b c d e f e d e f g a b c b a  b c d e f g f e }
  >>

  \dMinorPreChorusPlusLeadin

  % chorus
  \key e \minor
  \repeat unfold 2 {
    <e,, b' e>2 e8 fs g <e b' e> ~ |
    q2 e8 fs g <a e' a> ~ |
    q8 a <e' b'> a, <e' c'>( b') r <a, e' a> ~ |
  }
  \alternative {
    { q a <e' b'> a, <e' c'>( b') r g,16 fs | }
    { <a e' a>8 a <e' b'> a, <e' c'>( b') r <b, fs' b> ~ }
  }

  q8 c \tuplet 3/2 { b16( c b) } a8 b a b <c g' c> ~ |
  q8 d \tuplet 3/2 { c16( d c) } b8 c b c <d a' d> ~ |
  q8 a' d f e4. d,8 ~ | d a' d f e4. e,,8 ~ |

  e fs! g fs ~ fs4 g8 a | g a b a ~ a b c b16 a |

  \time 6/4
  \repeat unfold 3 {
    <b fs' b>8 b16 b b b <a e' a>8 a16 a a a <b fs' b>8 b16 c d c b d c b a8 |
  }
  <b fs' b>8 b16 b b b <c g' c>8 c16 c c c <d a' d>2. ~ |
  \time 4/4 q2 ~ q8 d16 e f8 e16 d |

  \key e \phrygian
  \mainRiff
  \time 6/4 <e b' e>8[ e16 e e e] <d a' d>8[ d16 d d d] <e b' e>4 b16( c b) a b a g fs |
  \mainRiffSecondary
  \time 6/4 <e b' e>8[ e16 e e e] <a d>8[ e16 e e e] <f c' f>2 q16 q r8 |
  \time 4/4
  r8 <f c' f>16 q r <f c' f> q8 r2 |

  % verse 2
  \key e \minor
  \time 2,2,2,2,1 9/8
  \repeat unfold 2 {
    e8 e e'16( e,) e d'( e,) e e'( e,) e d'( e,) e b'( d) |
    e,8 e e'16( e,) e d'( e,) e e'( e,) e d'( e,) e g'( fs) |
    e,8 e e'16( e,) e d'( e,) e e'( e,) e d'( e,) e b'( d) |
    e,8 e b'16( a) e a( g) e b'( a) e a( g) e fs( g) |
  }
  \repeat unfold 2 {
    a8 a a'16 a, a g' a, a a' a, a g' a, a e' g |
    a,8 a a'16 a, a g' a, a a' a, a g' a, a c' b |
    a,8 a a'16 a, a g' a, a a' a, a g' a, a e' g |
    a,8 a e'16 d a d c a e' d a d c a b c |
  }

  \key e \phrygian
  \dMinorPreChorusPlusLeadin


  % chorus
  \key e \minor
  R1*14 | \time 6/4 R1*4*6/4 | \time 4/4 R1 |

  % instrumental interlude
  \key e \phrygian


  \repeat volta 2 {
    \interludeRiffInE
    c'16 b a g a g f e f g f e f d b8 |
  }

  c8 g'16 af bf8 af16 g af8 c, r bf'16 c |
  df8 c16 bf af g f8 g c, r f16 g |
  af8 g16 f g8 c, r e16 f g8 f16 e |
  df c bf8 c16 df'16 c bf af g f e f g e c |

  f8 ef'16 f gf8 f16 ef f8 f, r f'16 gf |
  af8 gf16 f gf8 f, r ef'16 f gf8 f16 ef |
  f8 f, r bf16 c df8 c16 bf af bf c8 |
  f, gf f r ef'16 f gf8 f16 ef f8 |
  f, r f'16 gf af8 gf16 f gf8 f, r |
  ef'16 f gf8 f16 ef f8 f, r bf16 c df8 |
  c16 bf af bf c8 f, gf f r ef'16 f |
  gf f ef df c bf a bf c bf a gf f e! ds f |

  \interludeRiffInE
  c'16 b a g a g f e f g f e f d b8 |

  R1 |

  % solo

  \bar "||"


  \verseRiffInE
  \transpose e f \verseRiffInE
  \transpose e g \verseRiffInE

  <a e' a>4 a16 a <a e' a>8 r4 a16 a <a e' a>8 |
  r <a e' a> r b16 b <b fs' b>4 q |

%  \verseRiffInE
%   \transpose e c' \verseRiffInE
%   \transpose e d' \verseRiffInE
%   <b ds a'>4 b16 b <b ds a'>8 r4 b16 b <b ds a'>8 |
%   b16( c b) a b a g fs g4 fs |

  <e, b' e>8 q r4 r2 | r8 <e b' e>16 q ~ q q q8 r4 r8 <e b' e>8 |
  <d a' d>8 r r <d a' d> r4 <d a' d>8 r | r2 d'4 c8 b |
  a4. b8 ~ b4 c ~ | c8 b4. a4 g |
  \repeat unfold 3 { f8 f16 f } f8 e | d4. f8 ~ f4 d |

  \bar "||"

  e8 d'16 e f8 e16 d e8 e, r e'16 f |
  gs8 f16 e f8 e, r d'16 e f8 e16 d |
  e8 e, r a16 b c8 b16 a gs a b8 |
  e, f e r d'16 e f8 e16 d e8 |
  e, r e'16 f gs8 f16 e f8 e, r |
  d'16 e f8 e16 d e8 e, r a16 b c8 |
  b16 a gs a b8 e, f e r a'16 b |

  \time 6/4 c b a g a g f e d' c b a b a g f  e' d c b c b a gs |
  \time 4/4 \tuplet 3/2 4 { f'8 e d c b a gs f e d c b } |

  % pre-chorus 3 (Am -> Dm)

  \bar "||"

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

  % chorus lead-in

  \bar "||"

  % chorus
  \time 4/4
  \key e \minor
  R1*16 |
  R1*6 |
  \time 6/4 R1*4*6/4 | \time 4/4 R1 |

  \key e \phrygian
  \bar "||"
  \interludeRiffInE
  \time 6/4 c'16( b a) g a g f d e( f e) d e d c a b( c b) a b a g f |
  \time 4/4 e8 f a b ~ b a4 b8 |
  c16 c a a e' e d d g g e e c' c a a |
  e' e d d g g e e c' c a a b b d d |
  e8 e16 e e e d8 a16 b c d e4 |




}

guitarTwo = \relative c {
  R1*11/8 |
  R1*10/8 |
  R1*11/8 |
  R1*6/8 |
  R1 |

  \repeat volta 2 {
    R1*11/8 | R1*10/8 | R1*11/8 |
  }
  \alternative {
    { R1*6/4 |}
    { R1*6/4 | }
  }

  R1*3 | R1*6/4 |
  R1*3 | R1*6/4 |
  R1*3 | R1*5/4 |
  R1*6/4 | R1*2 | R1*5/4 |
  R1*8 |

  % verse 1
  R1*16 |

  % pre-chorus 1
  \repeat unfold 4 { R1*3 | R1*6/4 | }

  R1*2 | R1*5/4 | R1*6 |

  % chorus 1
  R1*8 |
  R1*4 | R1*2 |
  R1*4*6/4 | R1 |

  % interlude
  R1*11/8 | R1*10/8 | R1*11/8 | R1*6/4 |
  R1*11/8 | R1*10/8 | R1*11/8 | R1*6/4 | R1 |

  % verse 2
  R1*9/8*16 |

  % pre-chorus 2
  R1*3 | R1*6/4 |
  R1*3 | R1*6/4 |

  R1*2 | R1*5/4 |
  R1*6 |

  % chorus 2
  R1*8 |
  R1*4 | R1*2 |
  R1*4*6/4 | R1 |

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

  % solo
  \grace e'''8( f2.^"solo" ~ f8) e16( d) |
  e1 |
  \tuplet 6/4 4 {
    a16^"+"( g e) b'^"+"( g e) g^"+"( e b)
    a^"+"( g e) b'^"+"( g e) g^"+"( e b)
    e^"+"( b g) b^"+"( g e)

    f( g a) b( c d) e( f g) a( b c)
    d( e f e d) c( b a\glissando b c d)
    e(f g f e) d( c b\glissando c d e) f( g a g f) e( d c) f( e d) e( d c)
  } |

  b4. \grace b8( c8 ~ c b4) a8 |
  b16 g d4 c8 b16 c d e f g a b |
  c4. \grace c8( d8 ~ d c) b16( c b a ) |
  b4. ds16 e fs8 g a4 |

  \ottava #1
  b4.:16 \tuplet 3/2 { c16 b a } b4.:16 \tuplet 3/2 { c16 b a } |
  \tuplet 6/4 { b a g fs e fs } \tuplet 3/2 { g a b } b8:16 b4.:16 c32 b a g |
  a4.:16 \tuplet 3/2 { b16 a g } a4.:16 \tuplet 3/2 { b16 a g } |
  \tuplet 6/4 4 { a16 g fs d a fs d fs a d fs g } a4.:16 b32 a g fs |

  g4.:16 a32 g fs e fs4.:16 g32 fs e d |
  e4.:16 fs32 e d c d4.:16 e32 d c b |
  a8 \ottava #0 d,16 e f!8 a,16 b c8 d,16 e f4 |
  e16 f a b c e f a b c d e f8 e16 d |

  e4 r4 r2 |









}

vocalMelody = \relative c'' {
  R1*11/8 | R1*10/8 | R1*11/8 | R1*6/8 | R1 |
  \repeat volta 2 { R1*11/8 | R1*10/8 | R1*11/8 }
  \alternative {
    { R1*6/4 | }
    { R1*6/4 | }
  }
  R1*3 | R1*6/4 | R1*3 | R1*6/4 |
  R1*3 | R1*5/4 | R1*6/4 | R1*2 | R1*5/4 |
  R1*8 |

  % verse 1
  \bar "||"
  e4^"verse 1" d d b8 d ~ | d b4. r4 r8 b8 |
  b4 a8 b ~ b a4 a8 ~ | a2 r2 |
  e'4 d d b8 d ~ | d b4. r4 r8 b8 |
  b4 a8 b ~ b a4 a8( ~ | a8 g f2) r4 |

  b'4. a8 a4 g8 a ~ | a b4. r4 r8 a |
  b4 a8 b ~ b a4 a8( | g e4.) r4 d8 d |
  e2 d4 b8 d ~ | d b4. r4 r8 b8 |
  b4 a8 b ~ b a4 a8( ~ | a8 g f2) r4 |

  r4 a a b8 c ~ | c4 d c b | a4. g8 ~ g4 a ~ | a2 r2 r2 |
  r4 a a b8 c ~ | c4 d c b | a4. g8 ~ g4 a ~ | a2 r2 r2 |
  <a d>8 q4 <c e>8 ~ q4 <a d>8 <d f> ~ | q4 <e g> <d f> <c e> | <e, a d>4. <c bf' f'>8 ~ q4 <d a' e'>4 ~ | q2 r2 r2 |
  r4 <a' d>4 q8 <c e>4 <d f>8 ~ | q4 <e g> <d f> <c e> | <a d>4. <g c>8 ~ q4 <a d>4 ~ | q2 r2 r2 |

}

allTheLyrics = \lyricmode {

  You are not for -- sa -- ken,
  it's just the price __ you pay. __
  I am not mis -- ta -- ken,
  the bill comes due __ to -- day. __

  I am not your fa -- ther,
  the one who stained __ your life __
  with the blood of a -- no -- ther,
  the one who wields __ this knife. __

  Cut to the quick __ and yet the leg -- end __ grows. __
  Your flesh is weak __ and yet the blood still __ flows. __
  Liv -- ing in the past is how you stay a -- live.
  But is it life __ if you will ne -- ver __ thrive. __

  % too old to live, too young to die


}

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
  % \powerChords
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

  R1*11/8 | R1*10/8 | R1*11/8 | R1*6/8 | R1 |
  \repeat volta 2 { R1*11/8 | R1*10/8 | R1*11/8 }
  \alternative {
    { R1*6/4 | }
    { R1*6/4 | }
  }
  R1*3 | R1*6/4 | R1*3 | R1*6/4 |
  R1*3 | R1*5/4 | R1*6/4 |

  b4.:1.5 a4:1.5 d4.:1.5 |
  f4.:maj7 g8 q2 | a2.:m q8 f4.:1.5 |

  \repeat unfold 7 e1:1.5 | q8 f2.. |
  \repeat unfold 7 e1:1.5 | q2 f2 |

  \repeat unfold 7 e1:1.5 | q8 f2 g4. |

  \repeat unfold 3 a1:m | a1.:1.5 |
  \repeat unfold 3 a1:m | R1. |
  \repeat unfold 3 d1:m | d1.:1.5 |
  \repeat unfold 3 d1:m | R1. |

  b4.:1.5 a4:1.5 d4.:1.5 |
  f4.:maj7 g8 q2 | a2.:m q8 f4.:1.5 |
  c4. g2 q8 | a4.:m d2:m q8 | f4.:maj7 e2:7 q8 |
  a4.:1.5 g8:1.5 f4.:1.5 e8:1.5 | b1:7/ds | q1 |

}

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 {}
}