\version "2.22.1"
\language "english"

\header {
  title = "Fair-weather Friend"
  composer = "Tommy Montgomery"
  copyright = "(c) 2022 Tommy Montgomery"
}

global = {
  \key d \dorian
  \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

  \time 5/4
}


guitar = \relative c' {
  \tempo 4 = 100

  \partial 8 a16( c) |
  \repeat unfold 3 {
    d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) |
  }
  d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c16 g |

  \repeat unfold 2 {
    a4 <a e' a cs>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c!16 g |
  }

  a4 <a e' a cs>8-> q16 q q8 \xNotesOn q16 \xNotesOff <a f' bf d> ~ q \xNotesOn q \xNotesOff <a g' c e>8 ~ q4 ~ |
  q4. \xNotesOn q16 q \xNotesOff <g' c d>( b) <g b d> q \xNotesOn q q \xNotesOff <g c d>( b) <g b d> q \xNotesOn q q \xNotesOff |

  \repeat unfold 2 {
    d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) |
    d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c16( a) |
    f4-> <f c' f a>8-> q16 q \xNotesOn q8 \xNotesOff <c' g'c e>8-> ~ q q4-> \xNotesOn q16 q \xNotesOff |
  }
  \alternative {
    { d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) | }
    { d4 <a d a' d>8-> \xNotesOn q16 q \xNotesOff <g' c d>( b) <g b d> q \xNotesOn q q \xNotesOff <g c d>( b) <g b d> q \xNotesOn q q \xNotesOff }
  }

  % chorus
  \repeat unfold 3 {
    <a, e' a cs>4-> q8 \xNotesOn q16 q q q \xNotesOff <a f' bf d>8->
      \xNotesOn q16 q \xNotesOff <a e' a cs>8-> \xNotesOn q16 q \xNotesOff <a d g b>8-> |
  }
  f'8 a d a e' d f( e) d a |
  <d, bf' d e>2\arpeggio ~ q8 <d c' e e>8-> r <a e' a cs>4-> q16 q |
  <a e' g cs e>8. <a f' g d' e>16 ~ q8 <a g' g e' e> ~ q4 \tuplet 6/4 4 { a16( c! d) d( f g) g( f d) d( c a) } |

  \bar "||"

  r4^"w/ intro riff" \grace c''8( d4 ~ d8) <c d>4 <b d>8 ~ q8 \xNotesOn q16 q \xNotesOff |
  <g c>( <a d>8.) r4 r4 \tuplet 6/4 4 { g,16 gs a c cs d d cs c c cs d } |
  f4 \xNotesOn f16 f \xNotesOff g8 ~ g \xNotesOn g16 g \xNotesOff a4 \xNotesOn a16 a \xNotesOff c8\laissezVibrer |

  <<
    { c \xNotesOn c16 c c c \xNotesOff d16( c) d4 } \\
    { <d,, a' d>8. q16 \xNotesOn q q \xNotesOff <c g' c>8 <d a' d>4-> }
  >>
    f,16 g a c d g a c |

  \bar "||"

  \repeat unfold 2 {
    d16( d,) d c'( d,) d b'( d,) d c'( d,) d b'( d,) g( d)
    a'( d,) d b'( d,) d c'( d,) d b'( d,) d a'( d,) g( d)
    a'( d,) d f( d c) c( a) |

    f8. c'16 ~ c8 f g8. e16 ~ e8 c a c |
  }
  \alternative {
    { d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> \xNotesOn q16 q \xNotesOff | }
    { d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> \xNotesOn q16 q \xNotesOff | }
  }

  \repeat unfold 2 {
    <a bf' d g>8.-> q16 \xNotesOn q q \xNotesOff <a a' d fs>8-> ~  q16 q \xNotesOn q q \xNotesOff
      \repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
  }
  \repeat unfold 2 {
    <a a' d f!>8.-> q16 \xNotesOn q q \xNotesOff <a a' cs e>8-> ~  q16 q \xNotesOn q q \xNotesOff
      \repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
  }
  \repeat unfold 2 {
    <a g' c d>8.-> q16 \xNotesOn q q \xNotesOff <a g' b d>8-> ~  q16 q \xNotesOn q q \xNotesOff
      \repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
  }

  <a f' a d>8.-> q16 \xNotesOn q q \xNotesOff <a e' a cs>8-> ~  q16 q \xNotesOn q q \xNotesOff
    \repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
  <a f' bf d>4-> q8-> \xNotesOn q16 q \xNotesOff <f' bf d>16\glissando( <g c e>) q8 q-> \xNotesOn q16 q \xNotesOff
    \tuplet 3/2 { e'16( f! \set stemRightBeamCount = #1 e) } \set stemLeftBeamCount = #1 d( c) |

  R1*5/4*8^"verse riff" |

  R1*5/4*6^"chorus riff" |

  % guitar solo

  \bar "||"

  r4^"guitar solo" c,16( d) f( g\glissando a) c d( c) <c e>( <d f>8.) ~ q8 \xNotesOn q16 q16 \xNotesOff |
  <d f>16( <c e>) <a d> <g c> r <a d> r <c f> r <c e> r <a d> ~ q8 g16 f <g c> f e d ~ |
  d16 a' c e d g\glissando( a) c b8 \xNotesOn b16 b \xNotesOff c( b) g\glissando( a\glissando g) d\glissando( c8) |
  % b16( a\glissando g a\glissando g f) c8
  \tuplet 6/4 { c,16( d) f g\glissando( a) c } \tuplet 3/2 { d( c) a } g8
    \tuplet 3/2 { f'16( d) c } a8 \tuplet 3/2 { g'16( f) d } c8 \tuplet 6/4 { c'16( a) g f d c } |

  a4 a8 a16 g ~ g g a8 ~ a8 a16 a g a d e |
  g a d e a,4 a16( bf32 a\glissando g16) a16 ~ a4. \tuplet 3/2 { g16 bf cs } |
  e cs e f e cs a bf g a f\glissando( e) a,4 \tuplet 6/4 { bf16 c! d e f g } |

  % R1*5/4*1^"elec. solo" |


  a8. c16 ~ c8 d d4\harmonic \ottava #1 \tuplet 6/4 4 {
    a'16( f) d a d f
    g( e) c g e c
  } | \ottava #0

  % interlude
  \bar "||"
  \repeat unfold 2 {
    c16( d) g, a r f r g r c,( d) g, a8 bf16 c d ef r d r c d fs a g c ef r d r c d2 |
    c16( d) g, a r f r g r c,( d) g, a8
  }
  \alternative {
    { g16 a bf c r bf r a bf d f a bf f\glissando( g) b d f g2 | }
    { g,,16 a bf a8 bf16 cs d e\glissando( f) g a8 bf16 cs16 d e f g a8 bf16 cs d e8 | }
  }


  <g,,, d' bf' d e>8.-> q16 \xNotesOn q q \xNotesOff q8 ~ q16 q \xNotesOn q q \xNotesOff
    g'( a) a( bf) bf( a) bf( c) |
  <a, e' g d' e>8.-> q16 \xNotesOn q q \xNotesOff <a e' g cs e>8 ~ q16 q \xNotesOn q q \xNotesOff
    cs'( d) d( cs) d( cs) d( e) |
  <a,, a' d f>8.-> q16 \xNotesOn q q \xNotesOff <a g' g e' e>8 ~ q16 q \xNotesOn q q \xNotesOff
    <a f' a d>4 <a e' a e' e>\arpeggio |

  f16 c' g' g, d' a' bf, f' c' c, g' d' \tuplet 3/2 { c16( d c) } a g\glissando( f) d c( a) |


  % verse 4
  d4 a'8 d ~ d a4 d,8 e16( d) c8 | d4 a'8 d ~ d a4 d,8 f16( d) c8 |
  f,8 c' f g ~ g c4 g8 f16( e) c8 | d4 a'8 d ~ d a4 d,8 g,16( a) c( a) |
  d4 a'8 d ~ d a4 d,8 e16( d) c8 | d4 a'8 d ~ d a4 d,8 f16( d) c8 |
  f,8 c' f g ~ g c4 g8 f16( e) c8 | <d a' d>8 \xNotesOn q16 \xNotesOff <c g' c>16 ~ q16 \xNotesOn q \xNotesOff <d a' d>8 ~ q4 \xNotesOn q16 q \xNotesOff
    <f, c' f>16\glissando( <g d' g>) q q \xNotesOn q q \xNotesOff |


  <a e' a cs>8 a16 a <a e' a cs>8 a16 a a bf a g a bf cs d e f g bf |
  a8 a16 a a8 a16 a a bf a g a bf cs d e f g bf |
  a8 \tuplet 3/2 { a16 a a } a8 \tuplet 3/2 { a16 a a } a bf a g a8 \tuplet 3/2 { a16 a a } a4 |
  d,,8 a' d f e f d a d,( a) |
  <bf d g d'>2\arpeggio ~ q8 <c g' c>8 r <a e' a cs>4 q16 q |
  q8. <a f' g e' e>16 ~ q8 <a g' g e' e> ~ q4
    <<
      { \tuplet 6/4 4 { f'''16( d) c a g f d( c) a g a c } | d4 }
      \\
      { \tuplet 6/4 4 { a,16( c d) d( f g) g( f d) d( c a) } | <a d a' d>4-> }
    >>
   r r2 r4 |


}

vocalMelody = \relative c' {
  \partial 8 r8 |
  R1*5/4*8 |

  \bar "||"

  % verse 1
  r4^"verse 1" r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
  r4 r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r8 d8 |

  % chorus
  cs4.^"chorus" e8 ~ e4 a4 ~ a |
  bf4 bf8 a ~ a g a4 ~ a8 r8 |
  a4. cs8 ~ cs4 e4 ~ e8 e8 |
  f8 f f4 ~ f8 e4. d4 |
  e2. r4 r4 |

  R1*5/4*5 |

  % verse 2
  r4^"verse 2" r8 d, d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
  r4 r4 d8 f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |

  % bridge
  bf'4^"bridge" bf8 a ~ a4 g8 a ~ a fs8 ~ | fs d4 e8 ~ e fs8 ~ fs4 r4 |
  a4 a8 cs ~ cs4 d8 e8 ~ e4 | e8 f4 e8 ~ e d4 cs8 ~ cs4 |
  c!4. b8 ~ b4 d4 ~ d8 c( ~ | c4.b8 ~ b4) r g4 |
  a8 a a a bf( a) g a ~ a4 | R1*5/4 |

  % verse 3
  r4^"verse 3" r8 d, d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f f e4( d8 c) d ~ | d2 r2 r4 |
  r4 r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |

  % chorus
  R1*5/4*6^"chorus" |

  % guitar solo
  R1*5/4*8 |

  % interlude
  R1*5/4*12 |

  % verse 4
  r4^"verse 4" r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f8 ~ f e4( d8) c d ~ | d2 r2 r4 |
  r2 d8 f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
  r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r8 a |

  % chorus
  cs4.^"chorus" e8 ~ e4 a4 ~ a |
  bf4 bf8 a ~ a g a4 ~ a8 r8 |
  a4. cs8 ~ cs4 e4 ~ e8 e8 |
  f8 f f4 ~ f8 e4. d4 |
  e2. r4 r4 |

  R1*5/4*2 |

  \bar "|."
  % end

}

allTheLyrics = \lyricmode {
  I washed my hands __ in ho -- ly wa -- ter
  but I still __ seem __ to bleed. __
  I sent my mo -- ney to your temp -- le
  but I still __ feel __ your greed. __

  But now I __ see __
  what it means __ to be __
  all a -- lone __
  with just a fair weath -- er friend.

  I lift my eyes __ and beg for mer -- cy
  but I'm too __ blind __ to see __
  all the things __ you hold a -- gainst __ me
  and what might __ set __ me free. __

  Sick and tired, __ I watched __ you __ drift a -- way, __
  leav -- ing me __ a -- lone __ in -- side this __ tomb of __ self -- de -- struc -- tion __
  and men -- tal in -- se -- cur -- i -- ty. __

  I sink down low __ to find the an -- swers
  but they still e -- lude __ me. __
  I look up __ high __ and wish for clo -- sure,
  the si -- lence deaf -- ens me. __

  On sleep -- less nights, __ my mind will wan -- der
  to thoughts of __ you __ and me. __
  What was lost __ I can't re -- co -- ver,
  'twas all il -- lus -- or -- y. __


  But now I __ see __
  what it means __ to be __
  all a -- lone __
  with just a fair weath -- er friend.
}

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

vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
  <<
    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
    \new Lyrics \lyricsto "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 {
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

  \partial 8 s8 |

  d1*5/4:5 | q | q | q |
  a | q | q2 q8. bf c4. | q2 g2. |

  % verse 1
  d1*5/4:5 | q | f2 q8 c8 c2 | d1*5/4:5 |
  d1*5/4:5 | q | f2 q8 c8 c2 | d2:5 g2. |

  % chorus
  \repeat unfold 3 { a2 q8 bf4 a g8 | }
  d1*5/4:1.3-.5.9 | bf2:1.3.5.11+/d q8 c4:/d a4. |
  a2.:7 r2 |

  R1*5/4*4 |

  % verse 2
  \repeat unfold 2 { d1*5/4:5 | q | f2 c q4 | d1*5/4:5 | }

  % bridge
  \repeat unfold 2 { g4.:m/a d8*7:/a | }
  \repeat unfold 2 { d4.:m/a a8*7 | }
  \repeat unfold 2 { g4.:sus4/a g8*7:/a | }
  d4.:m/a a8*7 | bf2 q16 c8. q2 |

  % verse 3
  d1*5/4:5 | q | f2 q8 c8 c2 | d1*5/4:5 |
  d1*5/4:5 | q | f2 q8 c8 c2 | d2:5 g2. |

  % chorus
  R1*5/4*6 |

  % guitar solo

  d1*5/4:5 | q | q | q |
  a | q | a2 a8. bf:/a c4.:/a | q2. d4:m c |

  % interlude
  d1:m d4:1.3.5.7.9- | q1*5/4 | d1:m bf4:maj7 | q2 g2.:7 |
  d1:m d4:1.3.5.7.9- | q1*5/4 | d1:m a4:1.3.5.7.9- | q1*5/4 |

  g1*5/4:m6 | a4.:1.4.5.7 a:7 q2 | d4.:m/a a:7 d4:m/a a:5 |
  f8.:sus2 g:sus2 bf:sus2 c:sus2 r2 |

  % verse
  d1*5/4:5 | q | f4. c q2 | d1*5/4:5 |
  d1*5/4:5 | q | f4. c q2 | d8.:5 c:5 d2:5 f16:5 g:5 q4 |

  % chorus
  a1*5/4:1.3.5.7.9- | q | q | d:1.3-.5.9- | g2:m6 q8 c4 a4. |
  a2.:7 r2 | d1*5/4:5  |

}

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

\score {
  <<
    \chordNames
    \vox
    \guitarStaff
  >>
  \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 {
    <<
      % \vox
      \guitarStaff
    >>
  }
  \midi {}
}