\version "2.18.2"
\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 = 104
}

mainRiffE = \relative c {
  e16( a b) a( e' fs) e,( b' d) a( g' a) |
}

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

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

  <<
    { c4. 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
  ds4. ds | e ds |
  cs2. | b4. cs |
  ds4. ds | e ds
  cs2. | b4. as |

  gs2. | as4. b |
  as2. | b4. cs |

}

guitarTwo = \relative c' {
 R1*8*3/4 |
}



guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" }{ \global \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 { "°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. | b2.: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 |

}

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

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