\version "2.24.0"
\language "english"

\header {
  title = "Vortiginous"
  composer = "Tommy Montgomery"
  copyright = "(c) 2019 Tommy Montgomery"
}

global = {
  \key e \minor
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  % \compressFullBarRests
  \omit Voice.StringNumber
  % \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \time 3/4
  \tempo 4 = 94
}
0
mainRiffE = \relative c {
  e16( a b) a( e' fs) e,( b' d) a( g' a) |
}

mainRiffCToDToE = \relative c {
  e16( b' c) a( e' g) e,( d' e) a,( g' b) |
  e,,( b' d) a( fs' a) e,( e' fs) a,( b' d) |
  \repeat unfold 2 { e,,( d' e) a,( g' a) e,( g' a) a,( a' b) | }

  e,,16( b' c) a( e' g) d( b' c) g( e' g) |
  e,,( b' d) a( fs' a) d,( b' d) g,( fs' a) |
  \repeat unfold 2 { e,,( d' e) a,( a' b) d,( d' e) g,( a' b) | }
}

guitarOne = \relative c' {
  e16 a( b) e, e' e, a( b) e, d' e, a( |
  b) e, cs' e, a( b) e, fs g fs e d |
  e16 a( b) e, e' e, a( b) e, d' e, a( |
  b) e, c' a b c b a g fs e d |
  e16 a( b) e, e' e, a( b) e, d' e, a( |
  b) e, cs' e, a( b) e, fs g fs e d |
  e16 a( b) e, d'( e) e, a'\glissando( b g) e b |
  d( b) g d a d( e) g( a g) fs d |

  \repeat unfold 4 { <e, b'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
  <a d a'>16 q q q q8 q16 q ~ q q q8 |
  <g d' g>4 <a e' a> a16 g fs8 |

  % main riff
  \repeat volta 2 \repeat unfold 2 \mainRiffE

  \mainRiffCToDToE

  <<
    { c'''4. c | b4. a8.\glissando( g) | g16( a8.) ~ a2 ~ | a2 a,16 d fs g } \\
    {
      a,,16( b c) a( c d) a( d e) a,( e' f) |
      a,( b c) a( c d) a( d e) a,( e' f) |
      a,( cs d) a( d e) a,( e' fs!) a,( fs' g) |
      a,( cs d) a( d e) a,( e' fs) a,( fs' g) |
    }
  >>

  <<
    { a'4. b4( a8) | g4 ~ g16[( a32 g)] e8.[ d] | d16( e) ~ e4. ~ e16 e fs g | r a( g) r g( fs) r fs( e) r e( d) | e2. } \\
    {
      a,,16( e' f) d( a' c) a,( g' a) d,( c' e) |
      a,,( e' g) d( b' d) a,( a' b) d,( e' g) |
      a,,( cs d) a( d e) a,( e' fs) a,( fs' g) |
      a, a' g a, g' fs a, fs' e a, e' d |
      \mainRiffE
    }
  >>

  \mainRiffE

  \repeat volta 2 \mainRiffE

  \time 6/8
  b''4.^"Over main E riff" e, |
  b' e,8 e16 fs g a |
  b4. a8( b32 a\glissando g8.) |
  a4. d,8. d16 ds e |

  b'4. e, | \grace b'16( c4.) b4 a16\glissando( g) |
  a4. ~ a16 a' g fs d a | g fs a g fs d fs d a g fs g |

  a4. f8. f16 a b |
  c4 c16 d e4 e16 f |
  g8. g16 a( b) a8. a16 d( e) |
  d8. d16 e( f) e4 \tuplet 3/2 { e16( d cs) } |

  a8. f16 a b c!8. f,16 b( a) |
  b8. g16 b( c) d8. g,16 c( b) |
  a2. ~ |
  a |

  \time 3/4
  R1*4*3/4^"main E riff" |

  \repeat unfold 4 { <e,, b'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <a d a'>16 q q q q8 q16 q ~ q q q8 | }

  \time 6/8
  \key b \major
  ds'4. ds | e ds |
  cs2. | b4. cs |
  ds4. ds | e ds
  cs2. | b4. as |

  gs2. | as4. b |
  as2. | b4. cs |
  b2. | cs4. ds |
  cs4. ~ cs4  cs16( ds) | e4. e8 ds cs |

  ds2. | gs4. fss |
  es2. | ds4. es |
  fss2. | gs4. fss |
  <<
    { es4. ~ es8. fs16 gs as | b4. as | } \\
    { <as,, es' as>4. q4 gs16( b) | as8 as16 as gs( b) as8 as16 as b( as) }
  >>

  <gs ds'>4. q8 gs16 gs gs( b) |
  as8 as16 as as( cs) b8 b16 b b( cs) |
  ds8 ds16 as' cs e ds8 as16 e' gs b |
  as8 ds,16 as' cs e ds4. |
  \grace ds16( e4)
  <<
    { ds16( cs) b as e cs as fss | } \\
    { e16 fss as cs e fss as cs | }
  >>

  ds2. | e4. ds |
  cs2. | b4. cs |
  ds2. | e4. ds |
  cs2. | b4. as |

  gs2. | as4. b |
  as2. | b4. cs |
  b2. | cs4. ds |
  cs4. ~ cs4  cs16( ds) | e4. e8 ds cs |

  \key e \minor
  \repeat unfold 8 { b,,16 e( fs) } |
  \repeat unfold 4 { g, e'( fs) } |
  \repeat unfold 4 { a, e'( fs) } |

  \time 3/4
  \repeat unfold 8 { b,16 e( fs) } |
  \repeat unfold 4 { g, e'( fs) } |
  \repeat unfold 4 { a, e'( fs) } |


  \repeat unfold 4 { <e, b'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <a d a'>16 q q q q8 q16 q ~ q q q8 | }

  a16( b c) a( c d) a( d e) a,( e' f) |
  a,16( b c) a( c d) a( d e) a,( e' f) |
  \tuplet 6/4 4 {
    a16( g fs g fs) e fs e d e d cs
    c'?( b a b a) g a g fs g fs e
    d'( c b c b) a b a g a g fs
  } |

  \repeat volta 2 \repeat unfold 2 \mainRiffE |

  \time 6/8
  e''4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |
  e4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |
  \ottava #1 b'4. \grace b16( c4 b8) | a4( b16 a g4) g16( a) | b2. ~ | b4. r4. |
  b4. \grace b16( c4 b8) | a4( b16 a g4) g16( gs) | a2. ~ | a4. r4. |
  \ottava #0 e4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |

  \time 3/4
  \repeat unfold 4 { <e,,, b'>16 q q q q8 q16 q ~ q q q8 | }
  \repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
  <a d a'>16 q q q q8 q16 q ~ q q q8 |
  <g d' g>4 <a e' a> a16 g fs8 |

  <e b' e>2. |
  \mainRiffE
  e16( d' e) a,( a' b) e,,( fs' a) a,( d' e) |
  e,,( a' b) a,( e'' fs) e,,( b'' d) a,( g'' a) |

  <c,, e g b e>2. |
  \tuplet 6/4 4 { <a d>16 q q q q q } <a d a'>8 q16 q ~ q q q8 |

  <b e b'>4 \tuplet 6/4 4 { g'''16( e) d b a g e d b a g fs } |
  e4\glissando r2 | \bar "|."

}



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





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


  e2.:1.4.5.7 | e:m6 | e:1.4.5.7 | q8 a2:m q8 |
  e2.:1.4.5.7 | e:m6 | e2:1.4.5.7 e4:m | g a:1.4.5.7 d |

  e2.:1.5 | q | q | q |
  c:1.5 | q | d:1.5 | g4:1.5 a:1.5 d |

  \repeat volta 2 { e2.:1.4.5.7 | q | }

  c:maj7 | d:6 | e:1.4.5.7 | q |
  c:maj7 | d:6 | e:1.4.5.7 | q |

  f:maj7/a | q | a:6 | q |
  f:maj7 | g:6 | a:6 | q |

  e2.:1.4.5.7 | q | \repeat volta 2 q |

  % E riff w/ lead
  q | q | q | q |
  c:maj7 | q | d:6 | q |
  f:maj7/a | q | a:6 | q |
  f:maj7 | g:6 | a:6 | q |

  R1*4*3/4 |

  e2.:1.5 | q | q | q |
  c:1.5 | q | d:1.5 | q |

  b2. | b4.:sus4 b |
  a2. | a4.:sus2 a |
  b2. | b4.:sus4 b |
  fs2. | fs4.:sus4 fs |

  e2. | e4.:1.3.5.11+ e |
  fs2. | fs4.:sus4 fs |
  gs2.:m | q |
  fs2. | fs:7/as |

  ds2. | ds4.:sus4 ds |
  cs2. | cs4.:sus2 cs |
  ds2. | ds4.:sus4 ds |
  as2. | as:1.3.5.7.9- |

  gs2.:m | q |
  ds:1.3.5.7.9- | q | q4. ds:dim7 |

  gs2.:m | q |
  ds2.:7 | q |
  gs2.:m | q |
  fs2. | fs4.:sus4 fs |

  e2. | e4.:1.3.5.11+ e |
  fs2. | fs4.:sus4 fs |
  gs2.:m | q |
  fs2. | fs:7/as |

  b2.:sus4 | q | g:maj7 | a:6 |
  b2.:sus4 | q | g:maj7 | a:6 |
  b2.:sus4 | q | g:maj7 | a:6 |
  c:1.5 | q | d:1.5 | q |
  f:maj7/a | q | a2:6 c d |

  \repeat volta 2 { e2.:1.4.5.7 | q | }

  e:1.4.5.7 | q | q | q |
  c:maj7 | d:6 | e:1.4.5.7 | q |
  c:maj7 | d:6 | e:1.4.5.7 | q |
  f:maj7/a | q | a:6 | q |
  f:maj7 | g:6 | a:6 | q |

  e2.:1.4.5.7 | e:m6 | e:1.4.5.7 | q8 a2:m q8 |
  e2.:1.4.5.7 | e:m6 | e2:1.4.5.7 e4:m | g a:1.4.5.7 d |

  e2.:1.5 | e:1.4.5.7 | q | q |
  c:maj7 | d:1.5 | e4:1.5 r2 | r2. |

}

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

\score {
  <<
    \chordNames
    \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, \guitarOneStaff
    >>
  }
  \midi {}
}