\version "2.24.0"
\language "english"

\header {
  title = "Edge Vortex"
  composer = "Tommy Montgomery (April 2025)"
  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 = 110
  \key e \minor
}

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


  \repeat volta 2 R1*2 |
  R1*3 |
  g16 a c d\glissando( e) g\glissando( fs) d\glissando( e) g a\glissando( b) d g( fs) d |

  \key e \dorian
  \bar "||"

  e4. \tuplet 3/2 { e16 e e } g8( a) r \grace a( b) ~ |
  b4 \grace a8( b a16 g) a8( g) r a ~ |
  a4. \tuplet 3/2 { e16 a cs } d8 e r d ~ |
  d( cs8) b8 cs16( d) e( b) a( g) fs( d) e8 ~ |

  e4. \tuplet 3/2 { e16 fs g } a8 b r \grace d( e) ~ |
  e8 e g16( a e) d( e b) a( g) a\glissando( b) a8 ~ |
  a4. \tuplet 3/2 { a16 g fs } e8 d r e8 ~ |
  e8 a,16 a'\glissando( b) b e a,\glissando( g) d' e,\glissando( fs) a\glissando( g) e8 ~ |

  e4. \tuplet 3/2 { e16 e e } g8( a) r \grace a( b) ~ |
  b8 d \grace a8( b a16 g) a8( g) fs16 g a8 ~ |
  a4. \tuplet 3/2 { e16 a cs } d8 e r \grace e( fs) ~ |
  fs fs \grace e( fs e16 d) e4 d8 b ~ |

  b4 \tuplet 6/4 { fs16 g a b cs d } d8\glissando( e) fs \grace fs^( g ~ |
  g fs g) \tuplet 3/2 { fs16( g fs) } e4 d8 cs ~ |
  cs d4 b8 ~ b cs4 a8 ~ | a8 b b,16 e( fs) a( b) e\glissando( fs) b, e( fs) a( b) |
  b4 r4 r2 |
  R1*7 |

  R1*8 |
  R1*8 |
  R1*4 |

  % 5/4
  \repeat volta 2 { R1*5/4*3 }
  \alternative {
    { R1*5/4 }
    { R1*5/4 }
  }

  R1*8 |
  R1*8 |
  R1*4 |

  % A section
  \key a \major
  R1.*3 |
  r2. \grace gs,,8^( a4. gs) |
  fs1. |
  <d b' e gs>2. <d b' e a>4. <d b' e b'> |
  \repeat unfold 4 { cs''16( a) fs cs a fs } |

  <<
    { \grace cs''8^( d4.) cs4( d16 cs) b4. ~ b4.\glissando( | cs1.) | }
    \\
    {
      d16( b) fs d fs b
      cs16( b) fs d fs b
      a( gs) e d b gs
      e4.\glissando( |
      es1.) |
    }
  >>


  R1.*2 |
  r2. \grace gs8( a4. gs) |
  fs4. ~ fs8. fs16 e fs gs4. ~ gs8. gs16 fs gs |
  a4. ~ a8. a16 gs a b4. \grace b8^( c8. b16) a8 |

  b1. | R1. | R1. |
  r4. b,16 g' fs a, e' g, cs d e e, fs' g a b d g( fs) d |

  \key e \dorian
  \time 4/4
  \bar "||"
  e4. \tuplet 3/2 { e16 e e } g8( a) r \grace a( b) ~ |
  b4 \grace a8( b a16 g) a8( g) r a ~ |
  a4. \tuplet 3/2 { e16 a cs } d8 e g, a ~ |
  a4 \tuplet 6/4 { a,16( cs) e a cs e } g( e) cs( b) a( g) e8 ~ |

  e4. \tuplet 3/2 { e16 fs g } a8 b d \grace d( e) ~ |
  e4 \tuplet 6/4 4 { b'16-+( fs d) fs-+( d b) cs-+( a g) a-+( e d) } e32-+( b a\glissando g) a8 ~ |
  a4. \tuplet 3/2 { g16( a g\glissando } fs8) d r e8 ~ |
  e8 e16 e g a e' d a' b, b' e, d'( cs) b8 ~ |

  b4 g16 \set stemRightBeamCount = 1 a \tuplet 3/2 { \set stemLeftBeamCount = 1 b a g } a8 b d e ~ |
  e4 \tuplet 6/4 { a,,16 bf b d e g } a8\glissando( b) g a ~ |
  a4. \tuplet 3/2 { e16 a cs } d8 e a, \grace g'( a) ~ |
  a g4 \tuplet 3/2 { g16( fs e) } fs8( g fs) e ~ |

  e4 r8 \tuplet 3/2 { e,16 fs g } a8( b) d, e ~ |
  e4 r8 \tuplet 3/2 { e16 fs g } a8( b) cs \grace cs^( d ~ |
  d cs4) b8 ~ b a4 b8 ~ |
  b2 r2 |

  R1*4 |

  \ottava 1
  \repeat unfold 4 { \tuplet 6/4 { b,16 fs' b-+ fs'-+ e b'-+ } } |
  \repeat unfold 4 { \tuplet 6/4 { c,,16 g' c-+ g'-+ e c'-+ } } |
  \repeat unfold 4 { \tuplet 6/4 { d,,16 a' d-+ a'-+ g d'-+ } } |
  \tuplet 6/4 4 { \repeat unfold 3 { e,,16 b' e-+ b'-+ a, e' b'-+ d-+ } } |
  \ottava 0




  r2 r4 r8 e,16 fs |

  \tuplet 6/4 4 {
    g16 fs e d cs b
    cs d cs b a g
    fs e fs g fs e
    d cs b cs d cs
    b a g fs e fs
    g fs e d cs b
    e, cs' b a e b'
    a g e a g fs
  } |

  <e b' e>4. \tuplet 3/2 { e16 e e } e8 <e b' e>-> r q-> |

  \bar "|."
}


guitarTwo = \relative c {
  \global

  \repeat volta 2 {
    \repeat unfold 3 { \tuplet 6/4 { e16 e e e e e } <g d' g>8\glissando( <a e' a>) }
    \tuplet 6/4 { bf16 bf bf bf bf bf } <a e' a>8\glissando( <g d' g>) |
  }

  \repeat unfold 3 { \tuplet 6/4 { a16 a a a a a } <b fs' b>8\glissando( <c g' c>) }
  \tuplet 6/4 { d16 d d d d d } <c g' c>8\glissando( <b fs' b>) |

  \repeat unfold 2 { \tuplet 6/4 { e,16 e e e e e } <g d' g>8\glissando( <a e' a>) } |
  R1 |

  \key e \dorian


  \repeat unfold 2 {
    <e b' e>4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <e, b' e> ~ |
    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <a, e' a> ~ |
    q4. \tuplet 3/2 { a16 a a } <g d' g>8\glissando( <a e' a>) r8 q ~ |
    q4. \tuplet 3/2 { a16 a a } <g d' g>8\glissando( <a e' a>\glissando <g d' g>) <e b' e> ~ |

    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <e, b' e> ~ |
    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <d a' d> ~ |
    q4. \tuplet 3/2 { d16 d d } <cs a'>8\glissando( <d a'>) r8
  }
  \alternative {
    {
      <a e'> ~ | q4. <g d'>8 ~ q <fs d'>4 <e b' e>8 ~ |
    }
    {
      <b' fs' b> ~ | q2 ~ q8 <a e' a>4. |
    }
  }

  \repeat unfold 2 { b16 b b b fs'( e) b b b g'( e) b e( fs) b, b | }
  a16 a a a e'( d) a a a fs'( d) a d( e) a, a |
  a16 a a a e'( d) a a a fs'( d) a d( e d) cs |

  \repeat unfold 2 { b16 b b b fs'( e) b b b gs'( e) b e( fs) b, b | }
  a16 a a a e'( d) a a a f'( d) a d( e) a, a |
  a16 a a a e'( d) a a a f'( d) a d( e) c b |

  <e, b' e>4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e b' e> ~ |
  q4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e b' e> ~ |
  q4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e' a> ~ |
  q <fs b>4 <g c>8 ~ q <e a>4 <e, b' e>8 ~ |

  q4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e b' e> ~ |
  q4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e b' e> ~ |
  q4. \tuplet 3/2 { e16 e e } <f c'>8 <e b'> r <e' a> ~ |
  q <fs b>4 <g c>8 ~ q <a d>4 a,8 |

  \repeat unfold 2 {
    \repeat unfold 2 { b16 b b b fs'( e) b b b g'( e) b e( fs) b, b | }
    a16 a a a e'( d) a a a fs'( d) a d( e) a, a |
    a16 a a a e'( d) a a a fs'( d) a d( e d) cs |
  }

  \bar "||"

  \repeat unfold 2 { b16( a b) e, r e[ r e] } |
  \repeat unfold 2 { c'16( b c) e, r e[ r e] } |
  \repeat unfold 2 { a16( g a) e r e[ r e] } |
  b'( a b) e, r e[ r e] b'( a b) d e4 |

  \time 5/4


  \repeat volta 2 {
    \tuplet 3/2 4 { <e a>8-> <d g>16 q q8 <e a>-> <d g> <e a>-> <d g> q <e a>-> <d g> q <e a>-> <d g> <e a>->\glissando( <f bf>) | }
    \tuplet 3/2 4 { <e a>8-> <d g>16 q q8 <e a>-> <d g> <e a>-> <d g> q <bf ef>->\glissando( <a d>) <e' a>->\glissando( <g c>) } <fs b>4-> |
    \tuplet 3/2 4 { <e a>8-> <d g>16 q q8 <e a>-> <d g> <e a>-> <d g> q <e a>-> <d g> q <e a>-> <d g> <e a>->\glissando( <f bf>) | }
  }
  \alternative {
    {
      \tuplet 3/2 4 { <e a>8-> <d g>16 q q8 <e a>-> <d g> <e a>-> <d g> q <a' d>->\glissando( <b e>) <f bf>->\glissando( <g c>) } <ef af>4-> |
    }
    {
      \tuplet 3/2 4 { <e a>8-> <d g>16 q q8 <e a>-> <d g> <e a>-> <d g> q e, f fs g gs a as } |
    }
  }

  \time 4/4

  \repeat unfold 2 { b16 a b e, r e[ r e] } |
  \repeat unfold 2 { c'16 b c e, r e[ r e] } |
  \repeat unfold 2 { a16 g a e r e[ r e] } |
  \repeat unfold 2 { b'16 a b e, r e[ r e] } |

  \repeat unfold 2 { d' cs d e, r e[ r e] } |
  \repeat unfold 2 { cs' b cs e, r e[ r e] } |
  \repeat unfold 2 { c' b c e, r e[ r e] } |
  \repeat unfold 2 { b' a b e, r e[ r e] } |

  \bar "||"
  \key a \minor

  \repeat unfold 2 { gs a b d e a, b c d e f } gs, a b d e a, b c d f |

  \repeat unfold 2 { \tuplet 6/4 { e,16 e e e e e } <g! d' g!>8\glissando( <a e' a>) } |
  \repeat unfold 2 { \tuplet 6/4 { bf16 bf bf bf bf bf } <a e' a>8\glissando( <g d' g>) } |

  \repeat unfold 2 { a16 cs e g a bf, d e f g bf }
  bf, d e f g c,! e f g a bf
  cs,! e f g a d, e f a bf d a bf d f |

  e16 f d a bf g e f d a bf g e f e f


  e8. b'!16 ~ b8 f' b2 |
  e,,8. b'16 ~ b8 gs' c2 |
  e,,8. b'16 ~ b8 a' d2 |
  e,,8. b'16 ~ b8 b' e2 |

  \key a \major
  \bar "||"

  \time 12/8
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note {8} #1
      " = "
      \smaller \general-align #Y #DOWN \note {8} #1
      )
    }
  }
  cs2. d4. cs | b2. a4. b |
  cs2. d4. cs | b2. a4. gs |
  fs2. gs4. a | gs2. a4. b |
  a2. b4. cs | b4. ~ b4 b16( cs) d4. d8 cs b |

  cs4. es fs4. es | ds2. cs4. ds | es2. fs4. es | ds2. cs4. bs |
  cs2. ds | e fs |

  \repeat unfold 2 { <b,, fs' b>4. ~ q8 \tuplet 3/2 8 { b16 b \set stemRightBeamCount = #1 b \set stemLeftBeamCount = #1 b b b } } |
  <b fs' b>8. <a e' a>16 <b fs' b>8 <c g' c> \tuplet 3/2 8 { c16 c \set stemRightBeamCount = #1 c \set stemLeftBeamCount = #1 c c c }
    <b fs' b>8. <a e' a>16 <b fs' b>8 <a e' a> \tuplet 3/2 8 { a16 a \set stemRightBeamCount = #1 a \set stemLeftBeamCount = #1 a a a } |

  b16 b'8 b, b16 b'8 a16 b c a b b,8 b' b16 b,8 a16 b c a |
  b a8 a a16 e8 b'4 a g8 ~ g fs16( g) fs8 |

  \key e \dorian

   \repeat unfold 2 {
    <e b' e>4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <e, b' e> ~ |
    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <a, e' a> ~ |
    q4. \tuplet 3/2 { a16 a a } <g d' g>8\glissando( <a e' a>) r8 q ~ |
    q4. \tuplet 3/2 { a16 a a } <g d' g>8\glissando( <a e' a>\glissando <g d' g>) <e b' e> ~ |

    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <e, b' e> ~ |
    q4. \tuplet 3/2 { e16 e e } <d' a' d>8\glissando( <e b' e>) r8 <d a' d> ~ |
    q4. \tuplet 3/2 { d16 d d } <cs a'>8\glissando( <d a'>) r8
  }
  \alternative {
    {
      <a e'> ~ | q4. <g d'>8 ~ q <fs d'>4 <e b' e>8 ~ |
    }
    {
      <b' fs' b> ~ | q4. b8 \tuplet 6/4 { b16 b b b b b } b8-. b-> |
    }
  }

  \bar "||"

  \repeat unfold 3 { r b r \tuplet 3/2 { b16 b b } b8 c a b-> | }
  r b r \tuplet 3/2 { b16 b b } b8 c a <b fs' b> ~ |

  \bar "||"
  q2 ~ q4. <c g' c>8 ~ |
  q2 ~ q4. <d a' d>8 ~ |
  q2 ~ q4. <e, b' e>8-> |
  r q r q r q r q |

  <a e' a cs>4. \tuplet 3/2 { a16 a a } a8 <a e' a cs>-> r4 |
  R1*3 |








}


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


chordExceptionMusic = {
  <c e g bf>1-\markup { "7" }
  <c e g b d'>1-\markup { "maj9" }
  <c e g bf d'>1-\markup { "9" }
  <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" }
  <c f g bf>1-\markup { "7sus4" }
  <c f g bf df'>1-\markup { "7sus4" \super { \flat "9" } }
  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
}

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

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

  \repeat volta 2 {
    \repeat unfold 3 { r4 g8:5 a:5 } r4 a8:5 g:5 |
  }

  \repeat unfold 3 { r4 b8:5 c:5 } r4 c8:5 b:5 |

  r4 g8:5 a:5 r4 a8:5 g:5 | R1 |

  e1:m | q2.. a8 | q1 | q2.. e8:m |
  q1 | q2.. d8 | q2.. a8 | q4. g4 d:/fs e8:m |

  e1:m | q2.. a8 | q1 | q2.. e8:m |
  q1 | q2.. d8 | q2.. b8:1.4.5.7 | q1 |

  e1:m/b | q | d:/a | q |
  e1:/b | q | d:m/a | q |

  e2:5 f8:5 e4.:5 |
  e2:5 f8:5 e4.:5 |
  e2:5 f8:5 e4:5 a8:5 |
  q b4:5 c:5 a:5 e8:5 |

  e2:5 f8:5 e4.:5 |
  e2:5 f8:5 e4.:5 |
  e2:5 f8:5 e4:5 a8:5 |
  q b4:5 c:5 d4:5 a8:5 |

  b1 | q | a | q |
  b1 | q | a | q |

  b1:m | c | a:/cs | e:1.4.5.7/d |

  \repeat volta 2 { R1*5/4*3 }
  \alternative {
    { R1*5/4 }
    { R1*5/4 }
  }

  b1:7 | c:maj7 | d:9 | e:m |
  d:maj7 | a:/e | f:1.3.5.7+.11+ | b:7/fs |

  \repeat unfold 2 { e16*5:7/gs d16*6:m/a } e16*5:7/gs d16*5:m/a |
  r4 g8:5 a:5 r4 g8:5 a:5 |
  r4 a8:5 g:5 r4 a8:5 g:5 |

  \repeat unfold 2 { a16*5:7 g16*6:m6/bf }
  bf16*5 c16*6:7
  a16*5:7/cs d16*6:m q4 |
  R1 |


  b1:dim/e | e:aug | e:1.4.5.7 | e:5 |

  % 12/8 part
  a2. a4.:sus4 a | g2. g4.:sus2 g |
  a2. a4.:sus4 a | e2. e4.:sus4 e |
  d2. d4.:1.3.5.11+ d | e2.:/d e4.:sus4/d e:5/d |
  fs4.:m/cs fs:m/a fs:m fs:m/cs | b4.:m b:m/a e4.:7/gs e:7/b |

  cs2. cs4.:sus4 cs |
  b2. b4.:sus2 b |
  cs2. cs4.:sus4 cs |
  gs2. gs4.:1.4.5.7.9-/a gs |

  fs2.:m cs4.:m/gs gs | a2.:maj9 b4.:sus4 b:1.3.5.7.9-/c |

  b1.:1.3.5.7.9- | q | q | R1. |

  e1:m | q2.. a8 | q1 | q2.. e8:m |
  q1 | q2.. d8 | d2.. a8 | q4. g4:5 d:/fs e8:m |
  e1:m | q2.. a8 | q1 | q2.. e8:m |
  q1 | q2.. d8 | d2.. b8:5 | q1 |

  b1*3:1.3.5.7.9- | q2.. b8:sus4 |
  q2.. c8 | q2.. d8:sus4 | q2.. e8:1.4.5.7 | q1 |

  a1 | R1*2 | e1:5 |
}

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