\version "2.24.0"
\language "english"

\header {
  title = "Last Refuge"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key d \minor
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \omit Voice.StringNumber
  \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
  \tempo 4 = 168
}

tappingIntroRiffD = \relative c'' {
  a'8^"+"( d,) d^"+"( g,) e'^"+"( a,) a^"+"
  a'8^"+"( d,) d^"+"( g,) e'^"+"( a,) a^"+"( d,) |
}
tappingIntroRiffBFlat = \relative c'' {
  bf'8^"+"( d,) d^"+"( g,) e'^"+"( bf) a^"+"
  bf'8^"+"( d,) d^"+"( g,) e'^"+"( bf) a^"+"( d,) |
}

guitarOne = \relative c'' {
  \global
  \compoundMeter #'((7 8) (4 4))
  \set Timing.beatStructure = 4,3,2,2,2,2
  % \set Timing.beamExceptions =
%     \beamExceptions {
%       { 8[ 8 8 8] 8[ 8 8] 8[ 8 8 8] 8[ 8 8 8] }
%       { 4 4 8[ e e] 4 4 16[ 16 16 16] 16[ 16 16 16] }
%     }

  % \time 4,3,4,4 15/8

  \repeat volta 4 \tappingIntroRiffD
  \repeat unfold 3{
    \tappingIntroRiffD
    \tappingIntroRiffBFlat
  }

  bf'8^"+"( ef,) d^"+"( a) ef'^"+"( bf) a^"+"
  bf'8^"+"( ef,) d^"+"( a) ef'^"+"( bf) a^"+"( ef) |

  d16[( ef f) g]( a bf)
  ef,( f g)[ a( bf c)]
  g( a bf) c( d ef)
  d( ef f) g( a bf)
  a( bf c) d( ef f)
  |



  \bar "||"
  \key g \minor
  \repeat unfold 2 {
    \repeat unfold 2 { g,,,4 g ef'8 c d g,4 g ef'8 c d bf | }
    f4 f d'8 bf c f,4 f d'8 bf c a |
  }
  \alternative {
    { f4 f df'8 bf c f,4 f df'8 bf c af | }
    { fs4 fs d'8 bf c fs,4 fs bf'16( g) fs( d) ef( d) bf( a) | }
  }

  g4 g ef'8 c d g,4 g ef'8 c d bf |
  a4 a f'8 df ef a,4 a f'8 df ef c |
  bf4 bf gf'8 ef f bf,4 bf gf'8 ef f df |
  c4 c af'8 f g! c,4 c af'8 fs g ef |

  d8 ef fs a! c d ef d[ ef fs a!] c[ d ef fs] |

  \repeat unfold 2 {
    \repeat unfold 2 { \repeat unfold 8 { g,,,16 } ef'8 c d \repeat unfold 8 { g,16 } ef'8 c d bf | }
    \repeat unfold 8 { f16 } d'8 bf c \repeat unfold 8 { f,16 } d'8 bf c a |
  }
  \alternative {
    { \repeat unfold 8 { f16 } df'8 bf c \repeat unfold 8 { f,16 } df'8 bf c af | }
    { \repeat unfold 8 { fs16 } d'8 bf c \repeat unfold 8 { fs,16 } ef'4 d | }
  }

  g,8 g' d ef c d f g1 |
  f,8 f' c d bf c ef f1 |
  c8 c' g af f g bf c1 |
  <g, c>4 q8 q q q r <g cs>8 q r q <fs c'> q r q |

  R1*15/8*6 |
  <e bf'>8 q q q r4 q8 q q q4 q8 q q4 |
  <a e'>8 q q q r4 q8 <a ef'> q q4 <fs c'>8 q q4 |

   \repeat unfold 2 {
    \repeat unfold 2 { g4 g ef'16[ ef c c] d!8 g,4 g ef'16 ef c c d8 bf | }
    f4 f d'16[ d bf bf] c8 f,4 f d'16 d bf bf c8 a |
  }
  \alternative {
    { f4 f df'16[ df bf bf] c8 f,4 f df'16[ df bf bf] c8 af | }
    { fs4 fs d'16[ d bf bf] c8 fs,4 fs ef'16 ef c c d4 | }
  }

  \repeat unfold 4 { <g, d' g bf d g>2.. ~ q2.. q16 q16 | }

  % acoustic solo, flamenco-ish
  g'4. g8 g[( af16 g]\glissando fs8) g a bf d g a bf g |
  a4. a8 a[( bf16 a]\glissando gs8) a4. cs16( e cs) a e cs a8 cs |
  d4. d16 d d8 bf a g fs g a ef d c fs |



}

guitarTwo = \relative c {
  \global

  \repeat volta 4 { R1*15/8 } |

  <d a' d>2.. ~ q1 |
  <d d' bf'>2 ~ q8 <d d' a'>4 <bf' d g>2 ~ q8 f4. |
  <d a' d>2. <c' g'>8 <d a'>1 |
  bf4. d8 ~ d4 a'8\glissando( bf4\glissando a) g2 |
  <d, a' d>4. d16 d <d a'>8 <g d'> <f c'> <d' g b>1 |
  <f, c'>2 ~ q8 <g d'>4 <e c'>4. d8 bf' a4. |

  <ef bf'>4 ef16 ef ef ef <ef bf'>8 <f c'>4 <ef bf'>4 ef16 ef ef ef <ef bf'>8 <f c'>4. |
  <ef bf'>8( <d a'>) q <ef bf'>8( <d a'>) q <ef bf'>8( <d a'>) q <ef bf'>8( <d a'>) <ef bf'>( <f c'>) <ef bf'>( <d a'>) |

  \key g \minor
  R1*15/8*8 |
  R1*15/8*5 |
  R1*15/8*8 |

  r2 r4. g'8 g' c, d ef16 d c8 bf g |
  a2.. f8 f' bf, c df16( c bf) af f8 df |
  c2.. c'8 c' f, g af16 g f8 g16 af bf8 |
  c g c, g' c g c, cs' g cs, g' d' a! fs c |

  \repeat unfold 2 { g, g' d ef c d f g g, g' d ef c d f | }
  f, f' c d bf c ef f f, f' c d bf c ef |
  f, f' c df bf c ef f f, f' c df bf c df |
  \repeat unfold 2 { c c' g af f g bf c c, c' g af f g bf | }
  <c, g' c>8 q q q r4 q8 q q q4 q8 q q4 |
  <cs g' cs>8 q q q r4 q8 <d a' d> q q4 q8 q q4 |

}

guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \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 ef gf bf>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 bf>1-\markup { "7" }
  <c e g b>1-\markup { "maj7" }
  <c ef g bf>1-\markup { "m7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
  <c e g f'>1-\markup { "add11" }
}

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