\version "2.24.0"
\language "english"

\header {
  title = "Across a Silver Sky"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key e \mixolydian
  \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. = 112
}

mainRiff = \relative c' {
  b8 e, a b e, a d e, b' cs e, a
}

guitarOne = \relative c {
  \global
  \time 12/8

  \repeat volta 4 \transpose e e'' \mainRiff |
  \repeat volta 4 \transpose e e'' \mainRiff |

  \repeat volta 4 { R1. }

  b'''2. a | gs1. | R1. | R1. |
  d'2. cs | b1. | R1. | R1. |

  \repeat volta 2 { R1.*3 }
  \alternative { { R1. } { R1. } }


  R1.*8 |

  \repeat unfold 2 {
    gs,,8 gs16 gs gs8 fs( gs) gs gs gs16 gs gs8 a gs fs |
  }
  \alternative {
    { gs8 gs16 gs gs8 fs( gs) gs fs a bs ds bs a | }
    { gs8 gs16 gs gs8 fs( gs) gs gs16 a b! cs ds e cs ds e fs gs a | }
  }

  \repeat unfold 2 {
    gs8 gs16 gs gs8 fs( gs) gs gs gs16 gs gs8 a gs fs |
  }
  \alternative {
    { gs8 gs16 gs gs8 fs( gs) gs \grace ds'( e ds) cs \grace gs( a gs) fs | }
    { <gs, ds' gs>2. <a e' a>4. <b fs' b> | }
  }

  <c g' c>2. <d a' d> |

  e16 d cs e, d' cs b e, cs' b a e b' a gs e a gs fs e gs g fs f |

  \repeat volta 2 { \repeat unfold 4 { <e b' e>8 e16 e e e } } |

  \repeat volta 2 { \repeat unfold 4 { <e b' e>8 e16 e e e } | }
  \repeat unfold 4 { <e b' e>8 e16 e e e } |
  \repeat unfold 4 { <f c' f>8 f16 f f f } |
  \repeat unfold 4 { <g d' g>8 g16 g g g } |
  \repeat unfold 2 { <a e' a>8 a16 a a a } <bf f' bf>8 bf16 bf bf bf <c g' c>4.|

  \key d \minor

  <d a'>8 d16 d d d <d g>8 <d a'> <d bf'> <d a'>8 d16 d d d <d bf'>8 <d a'> <d g> |
  <d a'>8 d16 d d d <d g>8 <d a'> <d bf'> c16( a) d( a) e'( a,) g'( a,) f'( a,) e'( a,) |
  <d a'>8 d16 d d d <d g>8 <d a'> <d bf'> <d a'>8 d16 d d d <d c'>8 <d bf'> <d g> |
  <d a'>8 d16 d d d <d g>8 <d a'> <d bf'> c16( a) d( a) e'( a,) f'( a,) e'( a,) d( a) |

  <a' e'>8 a16 a a a <a d>8 <a e'> <a f'> <a e'>8 a16 a a a <a f'>8 <a e'> <a d> |
  <a e'>8 a16 a a a <a d>8 <a e'> <a f'> cs16( g) d'( g,) e'( g,) f'( g,) e'( g,) d'( g,) |

  e'8 a, b d, e d' e a, b d, e d' |
  f b, c e, f e' f b, c e, f e' |
  g c, d g, c d g c, d g, c d |
  a' d, e g, a g' a d, e g, a g' |

  bf d, e g, bf g' bf d, e g,\glissando( bf) bf' |
  c f, g bf, c bf' c f, g bf,\glissando( c) c' |
  d g, a d, g a d g, a d, g a |
  d fs, a d, fs a d fs, a d, fs a |

  g8 g16 g g8 f( g) g g g16 g g8 bf\glissando( a) f |
  g8 g16 g g8 f( g) g c, d ef d ef f |
  g8 g16 g g8 f( g) g g g16 g g8 bf\glissando( a) f |
  \time 6/8


  g8 g16 g g8 f( g) g

  \time 9/8

  \tempo \markup {
     \concat {
       \smaller \general-align #Y #DOWN \note {4} #1
       " = "
       \smaller \general-align #Y #DOWN \note {4.} #1
     }
   } 4 = 112

    c,16 d f g bf c
    f, g bf c d f
    bf, c d f g bf

  \tempo 4. = 112


  \time 12/8
  \tuplet 9/6 4. {
    c16( bf g) g( f d) d( c bf)
    g'( f d) d( c bf) bf( g f)
    d'( c bf) bf( g f) f( d c)
    bf'( g f) f( d c) c( bf g)
  }

  \repeat volta 2 {
    <a e'>8 a16 a a a <a d>8 <a e'> <a f'> <a e'>8 a16 a a a <a f'>8 <a e'> <a d> |
    <a e'>8 a16 a a a <a d>8 <a e'> <a f'> cs16( g) d'( g,) e'( g,) f'( g,) e'( g,) d'( g,) |
  }

  \time 6/8
  cs16( g) d'( g,) e'( g,) f'( g,) e'( g,) d'( g,) |
  \time 9/8
  cs16( g) d'( g,) e'( g,) f'( g,) g'( g,) f' ( g,) e'( g,) f'( g,) d'( g,) |

  \time 12/8
  <e b' e>8 e16 e e e <e b' e>8 e16 e e e <e b' e>8 c b a b c |
  <e b' e>8 e16 e e e <e b' e>8 e16 e e e <e b' e>8 a, b c b a |
  <e b' e>8 e16 e e e <e b' e>8 e16 e e e <e b' e>8 g fs e fs g |
  <a e' a>2. <g d' g>4. <a e' a> |

  \key e \mixolydian



  \relative c {

    R1.*16^"B -> F# -> G# -> D# section" |
    \repeat volta 3 {
      \time 12/8
      \repeat unfold 4 { <e b' e>8 e16 e e e }
      \time 5/8 <bf' f'>8 <a e'> <g d'> <a e'> <g d'>^"3x" |
    }

    \time 12/8
    \repeat unfold 4 { <e b' e>8 e16 e e e } |

    \repeat unfold 2 { <bf' f'>8 <a e'> <g d'> <a e'> <g d'> <e b'> } |
    \time 5/8
    <bf' f'>8 <a e'> <g d'> <a e'> <g d'> |

    \time 12/8
    \repeat volta 2 { e''8^"over F" a, b g a d, e c d g, a f | }
    \repeat volta 2 { e''16( g,) a( d,) b'( d,) g( d) a'( d,) d( a) e'( a,) c( a) d( a) g( e) a( e) f( e) | }

    <a d a' d>2. ~ q4. ~ q4 <d a' d fs>16 q | <d a' d fs>2. <d a' d g>4. <d a' d fs> |

    \key e \mixolydian
    \repeat volta 4 { \mainRiff }
  }
}

guitarTwo = \relative c {
  \global

  \repeat volta 4 { R1. }
  \repeat volta 4 \mainRiff |

  \repeat volta 4 \mainRiff |

  \repeat unfold 7 \mainRiff |
  b'8 e, a b e, a d cs b a gs fs |

  \repeat volta 2 {
    e e e d'( e) e, e e e d'( e) e, |
    e e e d'( e) e, e e e a'( gs) e |
    e, e e d'( e) e, e e e d'( e) e, |

  }
  \alternative {
    { e e e d'( e) e, e fs g a g fs | }
    { e e e d'( e) e, e fs g fs g a | }
  }

  b8 b16 b b8 a( b) b b b16 b b8 d\glissando( cs) a |
  b8 b16 b b8 a( b) b e, fs g fs g a |
  b8 b16 b b8 a( b) b b b16 b b8 d\glissando( cs) a |
  b8 b16 b b8 a( b) b a b d e\glissando( fs) a |

  fs8 fs16 fs fs8 e( fs) fs fs fs16 fs fs8 a\glissando( gs) e |
  fs8 fs16 fs fs8 e( fs) fs b, cs d cs d e |
  fs8 fs16 fs fs8 e( fs) fs fs fs16 fs fs8 a\glissando( gs) e |
  fs8 fs16 fs fs8 e( fs) fs a b\glissando( cs) e fs\glissando( a) |

  \repeat unfold 2 {
    gs8 gs16 gs gs8 fs( gs) gs gs gs16 gs gs8 a gs fs |
  }
  \alternative {
    { gs8 gs16 gs gs8 fs( gs) gs bs, ds fs cs' bs a | }
    { gs8 gs16 gs gs8 fs( gs) gs ds16 e fs gs a b! gs a b cs ds e | }
  }

  \repeat unfold 2 {
    ds8 ds16 ds ds8 cs( ds) ds ds ds16 ds ds8 e ds cs |
  }
  \alternative {
    { ds8 ds16 ds ds8 cs( ds) ds \grace gs( a gs) fs \grace ds( e ds) cs | }
    { ds8 ds16 ds ds8 cs( ds) ds e ds e fs4. | }
  }

  g16 fs e d c b d c b a g fs g fs e d c b d c b a g fs |
  e8 ds d cs c b as a gs g fs f |

  \repeat volta 2 { R1. }
  \repeat volta 2 \mainRiff |
  \mainRiff |
  \repeat unfold 2 { b8 e, a b e, a d e, b' c e, a | }
  b8 e, a b e, g a e f g f e |

  \key d \minor

  d' g, a bf c d d g, a bf a g |
  d' g, a bf c d c d e e d c |
  d g, a bf c d d g, a g f e |
  d' g, a bf c d c d e d c bf |

  <a e'>8 a16 a a a <a d>8 <a e'> <a f'> <a e'>8 a16 a a a <a f'>8 <a e'> <a d> |
  <a e'>8 a16 a a a <a d>8 <a e'> <a f'> cs16( a) d( a) e'( a,) f'( a,) e'( a,) d( a) |




}

vocalMelody = \relative c'' {
}

allTheLyrics = \lyricmode {
}

guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarTwo }


vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
  <<
    \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 { "°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
    % \vox
    % \demLyrics
    \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, \vox
      \transpose c c, \guitarOneStaff
      \transpose c c, \guitarTwoStaff
    >>
  }
  \midi {}
}