\version "2.18.2"
\language "english"

\header {
  title = "Wut"
  composer = "Tommy Montgomery"
  copyright = "(c) 2018 Tommy Montgomery"
}

global = {
  \key d \dorian
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \omit Voice.StringNumber
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \time 4/4
  \tempo 4 = 69
}

sevenSixteen = {
  \time 7/16
  \set Timing.beamExceptions = #'(
    (end .
      (
        ((1 . 16) . (4 3))
      )
    )
  )
  \set Timing.beatStructure = #'(4 3)
}

guitarOne = \relative c {
  <d c' d a' d>1\arpeggio\laissezVibrer |
  <g' c f>8. <g c e>16 ~ q8 <g b d> ~ q g16 g << { <g d'>4 } \\ { c16( b8.) } >> |
  <f bf c f>8. <f a c f>16 ~ q8 <f g c f> ~ q16 <e g c e>8. <d, a' d a' d>4 ~ |
  q1\laissezVibrer |

  \repeat volta 2 {
    d16 c'32 c d16 c d c g d ~ d c'32 c d16 c d c g f |
    d16 c'32 c d16 c d c g d ~ d c'32 c d16 c d c g f |
  }

  \repeat volta 2 {
    <<
      {
        d'''8. g,16 ~ g8 b8 ~ b4 b16( c b) g |
        d'8. g,16 ~ g8 f8 ~ f4 e16( f32 e) d16 c |
        d'8. g,16 ~ g8 b8 ~ b4 b16( c b) g |
      } \\
      {
        d,,8 c'16 d, c'( d c) b ~ b d, b' d, b'( c b) g |
        d8 c'16 d, c'( d c) b ~ b d, f d f g f e |
        d8 c'16 d, c'( d c) b ~ b d, b' d, b'( c b) g |
      }
    >>
  }
  \alternative {
    {
      <<
        { f''8. e16 ~ e8 c ~ c4 c16( d) g( a) | } \\
        { d,,,8 c'16 d, c'( d) d, f ~ f d f d f( g) c( d) | }
      >>
    }
    {
      <<
        { f'8. e16 ~ e8 c ~ c8 g16 a c16 d32 f g16\glissando( a) | } \\
        { d,,,8 c'16 d, c'( d) d, f ~ f g c d f g32\glissando( a) c16 d | }
      >>
    }
  }

  \key d \mixolydian

  \repeat volta 2 {
    <d, a' d fs>8. q16 ~ q8 q ~ q4. q16 q |
    q8. <d a' d e>16 ~ q8 <d a' d g> ~ q2 |
    <<
      { f16 g d' e, g d'  c, d g  b, d g f, c' e, c' | } \\
      { f8.      e16 ~ e8 c ~ c16 b8.    f8    e     | }
    >> |
  }
  \alternative {
    {
      <<
        { d16 d' a'( g) fs( d) e f a c g' f,\glissando( g) d' e8 } | \\
        { <d,, a'>2 c'8. d16 ~ d f, g8 | }
      >>
    }
    {
      <<
        { ef16 c' f g ~ g f8 c16 f, c' g' g, d' g bf8 } \\
        { <ef,, c'>2 <f c'>8. <g d'>16 ~ q8 <e c'> }
      >>
    }
  }

  \key d \dorian

  \repeat volta 2 {
    d16 c'32 c d16 c d c g d ~ d c'32 c d16 c d c g f |
    d16 c'32 c d16 c d c g d ~ d c'32 c d16 c d c g f |
  }

  \sevenSixteen
  \repeat volta 2 { \repeat unfold 2 { d'16 a' c e d b g | } }
  \repeat volta 2 { \repeat unfold 2 { f a c e d b g | } }

  \time 9/8 bf d f c e g c, f a d, g b e, g c g b d |
  \sevenSixteen
  \set Timing.beatStructure = #'(4 3)
  \ottava #1 a c e g fs( e) d |
  c e g c b( a) g |


  \time 4/4
  <<
    { a1 \ottava #0 | } \\
    { d,,,16 c'32 c d16 c d c a d, ~ d c'32 c d16 c d c a f | }
  >> |
  d,16 c'32 c d16 c d c af d, ~ d c'32 c d16 c d c af f |
  d16 c'32 c d16 c d c g d ~ d c'32 c d16 c d c g f |
  <d a'>8. <e b'>16 ~ q8 <f c'> ~ q16 <g d'>8. <f c'>8 <e b'> |

  \bar "||"

  \key d \mixolydian
  <d a'>16^"Riff A" q r <d a'> q r <d a'> q r <d a'> q r <d a'> q r8 |
  <d a'>16 q r <d a'> q r <d a'> <f c'>( <g d'>) d << { g'( fs? ~ fs) g8. } \\ { d8 d,16 b'16\glissando( c8) } >> |
  <d, a'>16 q r <d a'> q r <d a'> q r <d a'> q r <d a'> q r8 |
  <d a'>16 q r <d a'> q r <d a'> <g d'>( <af ef'>) <d, a'> <f c'>( <g d'>) d <a''? d>8. |

  R1*8^"w/ Riff A"

  <f, c'>8. <g d'>16 ~ q8 <af ef'> ~ q2 |
  <f c'>8. <g d'>16 ~ q8 <af ef'> ~ q8 <g d'> <af ef'> <bf f'> |
  <c g'>8. <d a'>16 ~ q8 <ef bf'> ~ q2 |
  <c g'>8. <d a'>16 ~ q8 <ef bf'> ~ q8 d16 ef f g af bf |

  \time 6/8
  \key af \major
  <af, ef' af ef' af>8 q16 q q q <af ef' af ef' g>8. <af ef' af ef' af> |
  <bf f' bf f'>8 q16 q q q ef'8( f32 ef) d8. |
  <f af>8. <ef g> <df f> <c ef> |
  <bf, f' bf df>16 q32 q q16 q q q <gf df' af'>16. q32 q16 gf'16( af\glissando bf) |



}
vocalMelody = \relative c'' {
  \global
  \repeat unfold 4 r1 |
  \repeat volta 2 { r1 | r1 }
  \repeat volta 2 { r1 | r1 | r1 } \alternative { { r1 } { r1 }  }
  \repeat volta 2 { r1 | r1 | r1 } \alternative { { r1 } { r1 }  }
  \repeat volta 2 { r1 | r1 }
  \sevenSixteen
  \repeat volta 2 { r4 r8. | r4 r8. }
  \repeat volta 2 { r4 r8. | r4 r8. }

  \time 9/8 r4. r4. r4. |
  \sevenSixteen r4 r8. | r4 r8. |
  \time 4/4
  \repeat unfold 4 r1 |

  \key d \mixolydian
  \repeat unfold 4 r1 |

  % verse 1
  <g c>16( <a d>8. ~ q4 ~ q8) q16 q ~ q q8 q16( |
  <g c>4) r4 r2 |
  <g c>16( <a d>8. ~ q8) q16 q ~ q q8 q16 ~ q q8 q16( |
  <g c>4) r4 r2 |
  <g c>16( <a d>8. ~ q4 ~ q8) q16 q ~ q q8 q16( |
  <g c>4) r4 r2 |
  <g c>16( <a d>8. ~ q8) q16 q ~ q q8 q16 ~ q q8 q16( |
  <g c>4) r4 r2 |

}

allTheLyrics = \lyricmode {
  I __ am not __ the one. __
  I __ am not __ your smo -- king gun. __
  I __ am not __ yet done. __
  I __ am not __ your ri -- sing Sun. __

}

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


vox = \new Staff \with { midiInstrument = "voice oohs" } {
  <<
    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
  >>
}

demLyrics = \new Lyrics \lyricsto "vocalMelody" {
  <<
    \new Lyrics {
      \set associatedVoice = "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 { \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
  \powerChords
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

}

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

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