\version "2.24.0"
\language "english"

\header {
  title = "Instrumental"
  composer = "Tommy Montgomery"
  tagline = ""
}

global = {
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \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
  \override Staff.OttavaBracket.font-series = #'normal
  \set Staff.ottavationMarkups = #ottavation-simple-ordinals
  \tempo 4 = 112
  \key fs \minor
}


guitarOne = \relative c' {
  \time 4/4
  \global

  % intro

  \repeat unfold 3 {
    fs,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { a8 e | }
    { gs8 a | }
  }

  fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff <d' a'>8 |
  \xNote e,16 <a e'>8 \xNote e16 <e b'>2. ~ |
  q2 \tuplet 3/2 { gs''16( a \set stemRightBeamCount = #1 gs) } \set stemLeftBeamCount = #1 fs e b a gs e |

  \bar "||"


  \repeat unfold 4 {
    fs,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { a8 e | }
    { gs8 a | }
    { a b | }
  }

  <cs gs' cs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <cs g' cs>8 |
  q \xNotesOn q16 q q \xNotesOff e'( ds)  cs( b) cs fs, g d' bs, d? fs |

  <cs gs' cs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <cs g' cs>8 |
  q \xNotesOn q16 q q \xNotesOff <cs g' cs>8 q16 \tuplet 6/4 4 { ds'16( cs b) a( g es) ds( cs b) a( g es) } |

  \repeat unfold 2 {
    fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { b8 a | }
  }

  \repeat unfold 2 {
    <gs ds' gs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <gs d' gs>8 |
    q \xNotesOn q16 q q \xNotesOff
  }
  \alternative {
    { q8 e16 gs( e) gs b d b gs( e) | }
    { q8 q16 ~ q \xNotesOn q16 q q \xNotesOff <a ds a'>4 | }
  }

  gs8 \tuplet 3/2 { b16 d! es } gs8 d \tuplet 3/2 { es16 gs b } d!8 gs, \tuplet 3/2 { b16 d es } |
  gs8 d \tuplet 3/2 { es16 gs b } d8 cs2 ~ |
  cs1 ~ | cs4 \tuplet 3/2 { cs16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |

  \bar "||"

  fs,8 gs \xNotesOn gs16 gs gs \xNotesOff gs ~ gs a8 \xNotesOn a16 a a \xNotesOff a8 |
  b \xNotesOn b16 b b \xNotesOff b8 cs16 ~ cs d e fs gs8 a |

  fs8 gs \xNotesOn gs16 gs gs \xNotesOff gs ~ gs a8 \xNotesOn a16 a a \xNotesOff a8 |
  b \xNotesOn b16 b b \xNotesOff b8 cs16 ~ cs \xNotesOn cs cs cs \xNotesOff \tuplet 6/4 { fs16( e) cs b cs e } |

  cs8 e r8. \ottava #1 e16 ~ e fs8 r16 r8 fs | gs8 r r16 gs8 a16 ~ a r8 b16 \tuplet 6/4 { cs b a gs a b } |
  a8 b r8. b16 ~ b cs8 r16 r8 cs d r8 r16 d8 e16 ~ e r8. \grace { e( } fs4) \ottava 0 |

  \repeat unfold 2 {
    \grace { \xNotesOn gs,,16 d b fs \xNotesOff } \tuplet 3/2 { cs4 gs'-. b-. } cs2 |
    \grace { \xNotesOn gs'16 d b fs \xNotesOff } \tuplet 3/2 { cs4 gs'-. b-. }
  }
  \alternative {
    { \grace cs8( d)( cs b cs) | }
    { cs16( d) es( gs) b( d) cs8 | }
  }

  \ottava 1
  \repeat unfold 4 { fs16( cs) b fs r }
  \repeat unfold 4 { gs'16( fs) b, a r }
  \repeat unfold 4 { a'16( gs) fs cs r }
  \tuplet 6/4 { cs'( a) fs cs a fs } |


  d4. fs8 ~ fs4 gs | d'4. fs8 ~ fs4 \grace gs8( a)( gs16 fs) |
  gs4. gs8 ~ gs4 gs | cs,2\glissando cs'2 ~ | cs1 ~ |
  cs4 \tuplet 3/2 { gs16( a \set stemRightBeamCount = #1 gs) } \set stemLeftBeamCount = #1 fs gs d es cs( d) cs4 |
  \ottava 0

  fs,,,16( a) cs fs r cs fs( a) cs r fs,( a) cs fs r cs fs a cs r
  d( b) gs es r gs( es) d b r d( b) gs es r gs( es) d b r
  c( ef) g c r g c( ef) g r d,( fs) a d r bf( d) g a r bf( g) e cs! |

  b( d) fs b r fs b d fs r g( e) b g r e,32( g) |
  b e g b e e r16 fs( ds) b fs r c e g c r \tuplet 3/2 { a' g fs } |
  \tuplet 3/2 { d a fs } d16 r \tuplet 6/4 { c ds fs a c ds } fs4 g16( d) g, d'( |
  bf) c, ef( g) c ef d( a) d, a'( fs) a, bf d g a bf g d' fs, ef' c fs a, g' d a' c, \tuplet 6/4 { bf'( g) ef bf  ef g } |
  a1 ~ | a ~ | a2. r4 |

  R1*4 |

  % solo

  \ottava #1
  \repeat unfold 2 {
    \tuplet 3/2 4 {
      \grace b,8( c) cs fs \grace e( es) fs fs \grace a( as) fs
      fs \grace e( es) fs cs
    }
  }
  \repeat unfold 1 {
    \tuplet 3/2 4 {
      b cs fs
      e fs fs
      a fs fs
      e fs cs
    }
  }

  \tuplet 3/2 4 {
    b cs a b gs a e( fs) fs
  }
  fs4 |



  \tuplet 6/4 4 {
    cs''16^+( a fs) b^+( a fs)
    a^+( e cs) gs'^+( e cs)
    fs^+( d b) e^+( d b)
    d^+( gs, es) cs'^+( gs es)

    \ottava 0

    cs'16^+( a fs) b^+( a fs)
    a^+( e! cs) gs'^+( e cs)
    fs^+( d b) e^+( d b)
    d^+( gs, es) cs'^+( gs es

    a fs a) b^+( a) b^+
    cs( b cs) e!^+( cs b
    cs b cs) e^+( cs) e^+
    fs( e fs) a^+( fs e

    fs e fs) a^+( fs) a^+
    b( a b) cs^+( b a
    b a b) cs^+( b) cs^+
  }

  \tuplet 3/2 { e( cs e) } fs8 |

  \ottava 1


  \tuplet 6/4 4 {
    \repeat unfold 2 { cs'16^+( a) cs^+( a fs a) }
    d16^+( b) d^+( b fs b)
    cs16^+( a) cs^+( a fs a)

    \repeat unfold 2 { b16^+( gs) b^+( gs e gs) }
    cs16^+( a) cs^+( a e a)
    b16^+( gs) b^+( gs e gs)

    \repeat unfold 2 { a16^+( fs) a^+( fs d fs) }
    b16^+( fs) b^+( fs d fs)
    a16^+( fs) a^+( fs d fs)

    gs^+( es) gs^+( es cs es)
    a^+( fs) a^+( fs cs fs)
    gs^+( es cs) b^+( gs es)

  }
  cs4 |

  \tuplet 6/4 4 {
    \repeat unfold 2 { a''16( fs) cs a fs cs fs, cs' fs a cs fs }
    b( fs) d b fs d b( d) fs b d fs
    a16( fs) cs a fs cs fs, cs' fs a cs fs

    \repeat unfold 2 { gs( e) b gs e b e, b' e gs b e }
    a( e) cs a e cs a( cs) e a cs e
    gs( e) b gs e b e, b' e gs b e

    \repeat unfold 2 { fs( d) a fs d a d, a' d fs a d }
    fs( d) b fs d b b d fs b d fs
    fs( d) a fs d a d, a' d fs a d

    es( cs) gs es cs gs cs, gs' cs es gs cs
    gs'( es) cs gs es cs cs es gs cs es gs
    cs( gs) es cs gs es cs( es) gs cs es gs
  }

  cs2 | \ottava 0

  R1*4 |

  % keyboard solo
  R1*8 |

  R1*4 |

  fs,,16 gs a b cs gs a b cs d a b cs d e \ottava 1 b |
  cs d e fs \tuplet 6/4 { gs( e) cs a cs e } gs e fs gs a gs a b |
  cs4 \grace cs8( d4) cs \ottava 0 b,^"loco" |
  cs \grace cs8( d4) cs es |

  \tuplet 6/4 { a16( fs) e cs b a } fs8 a r fs a b |
  \grace b8( c8 b16)( a) \tuplet 6/4 { fs16 e cs b a fs } a8 b r b |
  cs e r  fs e,16 fs a b\glissando( cs) e fs a |
  b\glissando( cs) e fs a( b a\glissando gs) fs4 \tuplet 6/4 { fs16( e) cs b a fs } |
  a8 b r a \tuplet 6/4 { b16( a) fs e cs b } cs8 e r cs \tuplet 6/4 { e16( cs) b a fs e } fs4 r |

  b16 cs d e fs
  d e fs gs a
  fs gs a b cs
  a b cs d es
  fs es fs gs
  \tuplet 6/4 4 { a( g es) ds( cs b) a( g es) ds( cs b) } |

  a2 r2 |

  R1*3 |

  cs'4 \grace cs8( d4) cs es |
  fs \grace gs8( a4) gs2 |


  <<
    {
      e16[( ds) cs( b)] cs[ fs, g] d'[ bs, d? fs]
      a[( gs) fs e] fs[ b, c] g'[ es, g b] |
    }
    \\
    {
      cs'[( b) gs fss] gs[ ds e] bs'[ gs, bs d] |
      fs[( e) cs b] cs[ fs, g] es'[ cs, es g] |
    }
  >>


  fs2 r2 |
}


guitarTwo = \relative c' {
  \global

  % intro
  R1*9 |

  R1*16 |

  % g# part
  R1*4 |
  R1 | r2 cs4. b8 ~ | b4 d ~ d8 es4. |
  b'4 \tuplet 3/2 { cs,16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |

  \repeat unfold 4 {
    fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { a8 e | }
    { gs8 a | }
    { a b | }
  }

  \repeat unfold 2 {
    cs8 cs \xNotesOn cs16 cs cs \xNotesOff cs ~ cs cs8 \xNotesOn cs16 cs cs \xNotesOff cs8 |
    cs \xNotesOn cs16 cs cs \xNotesOff cs8 cs16 ~ cs \xNotesOn cs16 cs cs \xNotesOff
  }
  \alternative {
    { b8( cs) | }
    { a8 gs | }
  }

   \repeat unfold 2 {
    fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { b a | }
  }


  <gs d' gs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff q8 |
  q \xNotesOn q16 q q \xNotesOff q8 e16 gs( e) gs b d b gs( e) |

  gs8 \tuplet 3/2 { b16 d es } gs8 d \tuplet 3/2 { es16 gs b } d8 gs, \tuplet 3/2 { b16 d es } |
  gs8 d \tuplet 3/2 { es16 gs b } d8 cs2 ~ |
  cs1 ~ | cs4 \tuplet 3/2 { cs16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |

  % f# minor stuff
  \repeat unfold 2 { fs,,16 fs fs fs r }
  \repeat unfold 2 { a16 a a a r }
  \repeat unfold 2 { gs16 gs gs gs r }
  \repeat unfold 2 { b16 b b b r }
  c16 c c c r
  ef ef ef ef r
  d d d d r
  bf bf bf bf r
  cs! cs cs cs |

  b b b b r
  d d d d r
  e e e e r
  g g g g r
  fs fs fs fs r
  e e e e r
  \tuplet 3/2 8 { d d d d d d } d r
  \tuplet 6/4 { ds fs a c ds fs } a4

  bf16( g) bf, g' d ef, g cs ef g fs( d) fs, d' a d, e g bf d |


  <<
    {
      d bf fs' a, g' ef a d, bf' g d' a \tuplet 6/4 { ef' bf g ef g bf } |
      a1 ~ |
      a ~ |
      a2. r4 |
    }
    \\
    {
      g,,8 a c d ef c bf g |
      a16 cs e ef g bf a cs e ef g bf a4 ~ |
      a8 \grace ef8( e4.) a,4. \grace ef8( e8) ~ |
      e4 a,2 r16 gs8. |
    }
  >>









  \bar "||"


  fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
  fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff  gs8 a |
  fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
  fs \xNotesOn fs16 fs fs \xNotesOff a'( gs) fs e fs b, c g' es, g b |

  \bar "||"

  \repeat unfold 4 {
    fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
    fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
  }
  \alternative {
    { gs8 a | }
    { a e | }
    { gs a | }
    { b a | }
  }

  \repeat unfold 4 { fs8 fs16 fs } |
  \repeat unfold 4 { e8 e16 e } |
  \repeat unfold 2 { fs8 fs16 fs } \repeat unfold 2 { a8 a16 a } |
  b4 d cs4 es\glissando |

  <fs, cs'>1 | <fs d'>2 <fs cs'> |
  <e b'>1 | <e cs'>2 <e b'> |
  <d' a'>1 | <d gs>2 <d fs> |
  <cs gs'>4-> r q-> r | q-> r q-> cs'4\glissando |

  \bar "||"

  fs,,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
  fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs |
  \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 fs \xNotesOn fs16 fs \xNotesOff |
  <d' a'>8 \xNotesOn e,16 \xNotesOff <a e'>16 ~ q \xNotesOn e16 \xNotesOff <e b'>8 ~ q2 |

  \bar "||"

  \repeat unfold 2 {
    fs8 fs16 fs fs'16( e fs) fs, ~ fs8 fs16 fs fs'16( e fs) fs, ~ |
    fs8 fs16 fs fs'16( e fs) fs, ~ fs8 fs16 fs fs'16( e fs) e, ~ |
    e8 e16 e e'16( d e) e, ~ e8 e16 e e'16( d e) e, ~ |
    e8 e16 e e'16( d e) e, ~ e8 e16 e e'16( d e) fs, ~ |
  }

  \bar "||"


  fs8 gs a r16 gs ~ gs8 a b r16 a ~ |
  a8 b cs r16 b ~ b cs d e fs a gs e |
  fs8 gs a r16 gs ~ gs8 a b r16 a ~ |
  a8 b cs r16 b ~ b cs d e fs a gs e |

  fs,,4 ~ fs16 gs8. ~ gs8 a4 ~ a16 b ~ |
  b4 a8 cs e gs a d, |
  cs16 cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs g4-> |

  \tuplet 6/4 { e16 fs a b cs e } fs8 a r fs a b |
  \grace b8( c b16 a) \tuplet 6/4 { b16 a fs e cs b } cs8 e r e |
  fs a r b cs16( b) a fs\glissando( e) cs b a |
  fs a b cs fs gs a cs fs4 \tuplet 6/4 { b16( a) fs e cs b } |
  cs8 e r cs \tuplet 6/4 { e16( cs) b a fs e } fs8 a |
  r fs \tuplet 6/4 { a16( fs) e cs b a } fs4 r |



  b16 b b b b
  d d d d d
  cs cs cs cs cs
  es es es es es
  fs gs a cs
  \tuplet 6/4 4 { ds( cs b) a( g es) ds( cs b) a( g es) } |

  \bar "||"

  fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
  fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff  gs8 a |
  fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
  fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff  fs16 gs a b |

  <cs cs'>4 <d d'> <cs cs'> es, |
  <fs cs'> <a e'> <gs bs>2 |

  \time 11/16
  e''16[( ds) cs( b)] cs[ fs, g] d'[ bs, d? fs]
  a[( gs) fs e] fs[ b, c] g'[ es, g b] |

  \time 4/4
  fs2 r2 |

  \bar "|."
}


guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" } \guitarOne
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" } \guitarTwo


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 { \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 b>1-\markup { "maj7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
}

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

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

  fs1*6:m | q2.. d8. a e2. | q1 |

  fs1*8:m |
  cs1:m | q2. gs4:1.3.5-.7 |
  cs1:m | q2 r2 |

  fs1*4:m |
  gs1*4:1.3-.5- |
  gs1.:1.3-.5-.7- cs2:1.3.5.7.9- | q1 | q1 |

}

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



#(set-global-staff-size 18)
\book {
  \paper {
    system-system-spacing =
      #'((basic-distance . 8)
         (minimum-distance . 4)
         (padding . 4)
         (stretchability . 60)
         )
  }

  \score {
    <<
      \chordNames
      \guitarOneStaff
      \guitarTwoStaff
    >>
    \layout {
      % indent = #0
      \context {
        \Staff \RemoveEmptyStaves
        % \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
        \override VerticalAxisGroup.remove-first = ##t
      }
    }
  }
}

\score {
  \unfoldRepeats {

      <<
        \transpose c c, {
          \guitarOneStaff
        }
        \transpose c c, {
          \guitarTwoStaff
        }
      >>
  }
  \midi {}
}