\version "2.18.2"
\language "english"

\header {
  title = "Afterthought"
  composer = "Tommy Montgomery"
  copyright = "(c) 2020 Tommy Montgomery"
}

global = {
  \key d \mixolydian
  \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 7/8
  \tempo 4 = 144
}

introRiff = \relative c'' {
  \repeat unfold 3 {
    d8( d,) c'( d,) c'( d d,) |
  }

  g'( d,) fs'( d,) c'( d d,) |
}

guitarOne = \relative c'' {
  \set Timing.beatStructure = #'(2 2 3)
  \repeat volta 4 { \introRiff }

  <d,, a' d a' d>2.. ~ | q |
  <g d' g d' g> ~ | q |
  <g' c e>2. d16 e | g8 <c e>4 ~ q2 |
  <d,, a' d a' d>2.. | f'8( d) c( a) f g'4 |

  <d, a' d a' d>2.. | q |
  <f c' f c' f> | q |
  <ef bf' ef bf' ef> | <bf' f' bf d> |
  \repeat unfold 2 { <c g'>8 q q q q q q | }
  d'( g,) g( d) a'( d,) f | g( d) c( a) d( a) f |

  \repeat unfold 3 { <d a'>4. d16 d <d a'>8 q r | }
  g( d) fs( d) <c' g'>\glissando( <d a'>4) |

  \repeat unfold 3 { <d, a'>4. d16 d <d a'>8 q r | }
  g( d) fs( d) <f' c'>\glissando( <d a'>4) |

  \repeat unfold 3 { <d, a'>4. d16 d <d a'>8 q r | }
  g( d) fs( d) <c' g'>\glissando( <d a'>4) |

  \repeat unfold 2 { <d, a'>4. d16 d <d a'>8 q r | }
  f e f g f g a |
  g a bf c d ef16 d c ef |

  \repeat volta 3 {
    \repeat unfold 3 {
      d8 d, c' d, c' d d, |
    }

    g' d, fs' d, c' d d,^"3x" |
  }

  \repeat unfold 2 {
    d' d, c' d, c' d d, |
  }

  <f c'> <d a'> q <g d'> <d a'> q <f c'> |
  <d a'> q <g d'> <d a'> q <f c'> <d a'> |

  <af' ef'>2 ~ q8 g4 |

  \time 4/4

  \bar "||"

  \repeat unfold 3 { f16( d) d d d8 d16 d ~ d d d8 r d16 d | }
  f( d) d d g( d) d af'( d,) d a'( d,) af' g f d |

  \repeat volta 2 {
    \repeat unfold 3 { d''4 d8 c16 d ~ d8 c4. }
    d4 d8 c16 \grace { fs8( } g16) ~ g8 fs4. |
  }

  \repeat unfold 3 {
    <g, c>16\glissando( <a d>) q q q8 <g c>16\glissando( <a d>) ~ q4. \xNotesOn <g c>16 q \xNotesOff |
  }
  <f c'>4 <e c'>8. <c g'>16 ~ q8 <d a'>4. |

  \repeat unfold 3 {
    <g c>16\glissando( <a d>) q q q8 <g c>16\glissando( <a d>) ~ q4. \xNotesOn <g c>16 q \xNotesOff |
  }
  \time 5/8
  <af, ef'>8 <g d'> <f c'> <g d'> <f c'> |

  \time 4/4
  <<
    { r4 r8 <d' a' c e> ~ q2 | r4 r8 <d a' c e> ~ q2 | r4 r8 <d c' f> ~ q2 |  r4 r8 <d c' f> ~ q2 | } \\
    { <d, a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | }
  >>
  <<
    { r4 r8 <d' a' c e> ~ q2 | r4 r8 <d a' c e> ~ q2 | r4 r8 <d d' g> ~ q2 | } \\
    { <d, a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | }
  >>
  <d a'>4 q8 <af' ef'> ~ q <ef bf'>4. |

  \repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 r4 | }
  d16 d d d f( d) d g( d) d f( d) d ef8. |

  \bar "||"

  % verse 1
  \repeat unfold 4 {
    \repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 r4 | }
    d16 d d d f( d) d g( d) d f( d) d ef8. |
  }

  % pre-chorus
  \repeat unfold 2 {
    <d a' d a' d fs>2.. <d a' d a' d g>8 ~ | q2 <d a' d a' d fs> |
    <a' e' a cs>2 ~ q8 <a e' a d>4 <a e' a cs>8 ~ | q4 a16 a a a <a e' a cs>4. a16 a |
    <f' d'>4. <g e'>8 ~ q <a f'>4 <bf g'>8 ~ | q4. <a f'>8 ~ q <g e'>4 <f d'>8 ~ |
    q4. <e cs'>8 ~ q4 <d b'>8( <e cs'>) | <a, e' a cs>2 a16 a a a <a e' a cs>4 |
  }

  d,16 f g d g f d f d f g d g f d f |
  d f g d g f d f d f g d <af' ef' af>4 |
  d,16 f g d g f d f d f g d g f d f |
  d f g d g f d f d f g d <c' g' c>4 |
  d,16 f g d g f d f d f g d g f d f |
  d f g d g f d f d f g d <af' ef' af>4 |
  d,16 f g d g f d f d f g d g f d f |
  \tuplet 3/2 { <af ef' af>4 <g d' g> <f c' f> } <g d' g>8 <ef bf' ef>4. ~ |
  q1 ~ | q1 |

  \bar "||"
  \repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 \override Staff.NoteHead.style = #'harmonic-black f4 \revert Staff.NoteHead.style | }
  d16 d d d f( d) d g( d) d f( d) d ef8. |

}

vocalMelody = \relative c'' {
  \repeat volta 4 { R1*7/8*4 | }
  R1*7/8*18 |
  R1*7/8*16 |
  \repeat volta 3 { R1*7/8*4 | }
  R1*7/8*5 |

  R1*4
  \repeat volta 2 { R1*4 | }
  R1*7 | r2 r8 |
  R1*8 |
  R1*4 |

  % verse 1
  fs2.^"verse 1" ~ fs8 g ~ | g2. ~ g8 g |
  g( d) d( c) c d4 d8 ~ | d2 r2 |
  fs2. fs8 g ~ | g2. ~ g8 g |
  g( d) d c ~ c4 c8( d) | d2 r2 |

  fs2. ~ fs8 g ~ | g1 |
  g8( d) d c8 ~ c8 d4 d8 ~ | d2 r2 |
  fs2. ~ fs8 g ~ | g2. ~ g8 g |
  g( d) d c8 ~ c d4 d8 ~ | d2 r2 |



}

allTheLyrics = \lyricmode {
  % verse 1
  Feels __ like __ this road __ won't __ ev -- er __ end. __
  Sleep -- ing at __ the wheel __ but I __ can't __ wake.
  Seems __ like __ I'm __ my on -- ly friend.
  God __ sent __ but Heav -- en just __ can't wait. __

  % pre-chorus 1


}

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


}

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