\version "2.24.0"
\language "english"

\header {
  title = "Castles in the Sky"
  composer = "Tommy Montgomery"
  copyright = "(c) 2024 Tommy Montgomery"
}

global = {
  \key e \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 = 81
}

mainBRiff = \relative c' {
  ds16 b e b fs' b, ds e b fs' b, ds g b, fs' b, e b fs' b,
}

guitarOne = \relative c' {
  \global
  \time 5/4

  \ottava #1
  \repeat volta 4 { \transpose c c'' \mainBRiff^"4x" | }
  \repeat unfold 4 { \transpose c c'' \mainBRiff }
  \repeat unfold 2 { \transpose c c'' \mainBRiff }
  e'' c fs c g' c, e fs c g' c, g' a d, g d fs d g d |
  e g a e b' e, g a e b' e, a c b a g fs g fs e |

  ds2. \ottava #0 r2 | R1*5/4*7 |

  \repeat unfold 2 \transpose c c' \mainBRiff |
  \repeat volta 2 \transpose c c' \mainBRiff |

  \time 4/4
  e,2.. g8 | fs2.. d8 | b2.. fs'8 | e1 |
  e,2.. g8 | fs2.. g8 | a2.. c8 | b1 |

  \time 7/16

  \repeat unfold 2 {
    % \repeat unfold 3 { b,8[ b16] c8[ a8] | }
    b,8[ b16 b] b[( c) a] |
    b8[ b16( c] a)[ b( c)] |
    b8[ b16 b] b[( c) a] |
  }

  \alternative {
    { g16[ fs e] fs[ e g a] | }
    { g16[ e' fs a] b[ c,8] | }
  }


  % \repeat unfold 3 { b16[ b32 b b b] c16[ c32 c a16 a32 a] | }
  b8[ b32 b b b] b16[( c) a]
  b16[ c e g] fs[ c a] |
  b8[ b32 b b b] b16[( c) a]
  <g d'>16[(\glissando <fs cs'>) e] <fs cs'>([ e) <g d'>\glissando( <a e'>)] |
  <b fs'>16[ b32 b b b b b] <b fs'>16\glissando[( <c g'>) <a e'>]
  <b fs'>16[(\glissando <c g'>) e g] fs[ c a'] |
  b32[ b b b b b b b] b16[( c) a]
  % \repeat unfold 3 { <b fs'>16[ b32 b b b] <c g'>16[ c32 c <a e'>16 a32 a] | }
  f8. <g, d' g>8[ <a e' a>] |

  \bar "||"
  b16[( d) fs( e)] g[ a c] |
  b[( c) a g] fs[( g) ds] |
  e[( g) bf( a)] b[ d! f] |
  e[( f) gs a] b[(\glissando c) as] |

  b[ c a! ds,] e[ g! b] |
  bf,[ cs e g] a[( bf) g] |
  fs[( g) ef d] cs[ g' as] |
  b[ fs, g! b] ds[( e) as,]

  b[( d!) fs( e)] g[ a! c] |
  b[( c) a g] fs[( g) ds] |
  e[( g) bf( a)] \ottava #1 b[ d! f] |
  e[( f) gs( a)] b[(\glissando c) as] |

  b[( fs) g( fs)] e[ b a!] \ottava #0 |
  b[( fs) g( fs)] e[ b a] |
  b[( c) b( as)] b[ e,,8] |
  R1*2/4^"double other" |

  R1*2/4*8 |

  \ottava #1
  \repeat unfold 4 { e'''16 b fs' b, g' b, e fs b, g' b, e a b, g' b, fs' b, g' b, | }
  c e g c, a' c, e g c, a' c, e b' c, a' c, g' c, a' c, |
  \repeat unfold 2 { e c g' c, a' c, e g c, a' c, e b' c, a' c, g' c, a' c, | }
  b d e b g' b, d e b g' b, d b d e b gs' b, d( e) \ottava #0 |

  \key a \minor

  r8 b8 c8 r16 b16 ~ b c8. |
  r8 f,8 g8 r16 f16 ~ f g8. |
  r8 a8 g8 r16 a16 ~ a g8. |
  r8 g8 a8 r16 g16 ~ g a8. |

  r8 <b d>8 <c e>8 r16 <b d>16 ~ q <c e>8. |
  r8 <c e>8 <b d>8 r16 <c e>16 ~ q <b d>8. |
  r8 <a c>8 <b d>8 r16 <a c>16 ~ q <b d>8. |
  r8 <c e>8 <b d>8 r16 <c e>16 ~ q <b d>8. |

  \ottava #1
  r8 <a c>8 <b d>8 r16 <c e>16 ~ q <b d>8. |
  r8 <a c e>8 <b d e>8 r16 <c e a>16 ~ q <b d e>8. |
  r8 <a c a'>8 <b d b'>8 r16 <c e c'>16 ~ q <b d b'>8. |
  r8 <a c a'>8 <gs b gs'>8 r16 <f a d f>16 ~ q <d f a d>8. |
  \ottava #0

  \key e \mixolydian

  R1*2 |

  gs2 e4 gs8 a | b4 \grace b8( c8 b) a4. b16( a) |
  gs2 e4 gs8( a16 gs) | fs2. a4 |

  gs2 e4 gs8 a | b4 \grace b8( c8 b) c2 ~ |
  c4 b8 a16 c d4 c8 b16 d | \ottava #1 << { r2 c'16 b a g fs g fs e } \\ { e1 } >> |

  \key e \minor
  \time 5/4



  \repeat unfold 2 { \transpose c c'' \mainBRiff }
  e16 c fs c g' c, e fs c g' c, g' a d, g d fs d g d |
  e g a e b' e, g a e b' e, a c b a g fs g fs e \ottava #0 |


  \mainBRiff^"lots of harm."

  \mainBRiff
  \mainBRiff
  \time 17/16
  ds,,16->[ b ds] e->[ b] fs'->[ b, fs'] g->[ b,] a'->[ b, a'] b8->[ c->] |

  \time 5/4
  b8. b16 b' b, r8 b16 b' b, b' a c ds e fs b, a c |
  b8. b,16 b' b, r8 b16 b' b, b' c a b ds e fs e ds |
  b8. b,16 b' b, r8 b16 b' b, b' a c ds fs e b a c |
  b8 c16 a b8. g16 e fs8. fs16 ds e \tuplet 3/2 { ds32( e ds) } \tuplet 6/4 { c16 b a b c a } |

  b16 b' c a b b, ds e b e fs b, fs' g fs e ds b c a |
  b b' c a b b, fs' g b, e fs b, a' b b, ds' e fs b, a' |
  b,, b' c a b b, ds e b e fs b, fs' g fs e ds b c e |

  \time 19/16
  ds16->[ b ds] e->[ b] fs'->[ b, fs'] g->[ b,] a'->[ b, a'] b8->[ c-> d!->] |



  \key e \major

  gs,2.^"w/ strings" e4. gs4 a8 | b4. ~ b8 \grace b8( c b) a4. ~ a4 b16( a) |
  gs2. e4. gs4( a16 gs) | fs2. ~ fs4. a4. |

  gs2. e4. gs4 a8 | b4. ~ b8 \grace b8( c b) c2. ~ |
  c4. b8 a c d4. c8 b d | e1. |

  \transpose c f' \mainBRiff^"repeat and fade" |

  \bar "|."

}

guitarTwo = \relative c {
  \global

  \repeat volta 4 { R1*5/4 }

  <fs b fs'>4 ~ q8. q16 ~ q q8 r16 r2 |
  <fs b fs'>4 ~ q8. e32 e e e <e a e'>8. q8 q r8 e32 e e e |
  <fs b fs'>4 ~ q8. q16 ~ q q8 r16 r2 |
  ds'16 b e\glissando( g) fs8. g16 ~ g e a\glissando( c) b4 e,8 fs |

  <b, fs'>2. ~ q4 <a e'>8 q | <b fs'>2. ~ q4 <a e'>8 <b fs'> |
  <c g'>2. <d a'>2 | <e, b'>2. a'16 g fs e d? e d c |

  b16 b' c a b b, ds e b e fs b, fs' g fs e ds b c a |
  b b' c a b b, fs' g b, e fs b, a' b b, ds' e fs b, a' |
  b,, b' c a b b, ds e b e fs b, fs' g fs e ds b c a |
  b b' c a b b, g' fs b, g' a b, c' b a, c \tuplet 6/4 { b c a b g fs } |

  % b b' c a b b, fs' g e fs b, e fs ds e \tuplet 3/2 { ds32( e ds) } \tuplet 3/2 { c16 b a } g fs |

  % e e' f d e e, e' f d e e, e' f d e\glissando( f) a d f( e) |
  % e,16 e' f d e e, e' f d e e, e' f d e e, a c b f |
  e e' f d e e, e' f e, f' g e, f' e e, d' e f d8 |

  e,16 e' f d e e, g' b, c fs e bf a f' gs, a c b e, f |

  % e e' f d e e, e' f d e e, e' f d e\glissando( f) a d f( d) |
  e e' f d e e, a' b c b a c b c e f b f e d |
  e e' f d e b c a b f8. \tuplet 6/4 4 { g16 f e d c b a g f e d c } |

  b8 b b r16 b16 ~ b b8 r16 <c g'>4 <a e'> |
  b8 b b r16 b16 ~ b b8 r16 <a e'>4 <c g'> |

  \repeat volta 2 {
    <b fs'>16 b32 b <b fs'>16 b32 b <b fs'>16 b32 b b b
      <b fs'>16 b32 b <b fs'>16 b32 b b b g'32 g g g fs fs fs fs e e e e fs fs fs fs |
  }

  \time 4/4
  \repeat unfold 2 {
    c16^"clean" e g b e b g e c e g b e b g e |
    d fs g d' e d g, fs d fs g d' e d g, fs |
  }
  \alternative {
    { \repeat unfold 2 { e, b' e g e' b g e e, b' e g e' b g e | } }
    {
      a, e' b' c e c b e, a, e' b' c e c b e, |
      <e, b' e>8 q16 q ~ q <f c' f>8 <g d' g>16 ~ q4 ~ q16 <a e' a>8. |
    }
  }

  \bar "||"

  \repeat unfold 3 { b16[ fs' c' b] e[ b c] | }
  g,[ e' b' b] e[ b b] |
  \repeat unfold 3 { b,16[ fs' c' b] e[ b c] | }
  g,[ e' b' b] f,[ c' d] |
  \repeat unfold 3 { b16[ fs' c' b] e[ b c] | }
  g,[ e' b' b] e[ b b] |
  \repeat unfold 3 { b,16[ fs' c' b] e[ b c] | }
  f,,[ c' f] g[ d] a8 |

  % modulation mayhem
  R1*7/16*8 |
  fs'16[ b d( cs)] e[ fs g] |
  fs[( g) fs e] ds[( e) a,] |
  b[ e g( fs)] f[ b d] |
  b[( d) e( f)] fs[( g) e] |

  fs[ b, c( b)] a[ fs\glissando( e)] |
  fs[ b, c( b)] a[ fs\glissando( e)] |
  b[ c b as] b[ e,8] |

  \time 2/4 <f c' f>8 f16 <g d' g> ~ q <a e' a>8 b16 ~ |

  b( d) fs!( e) g a c b ~ |
  b( c) a g fs( g) ds e ~ |
  e( g) bf( a) b d! f e ~ |
  e( f) gs( a) b\glissando( c) as b ~ |

  b b, e fs! g! fs e c ~ | c c, fs g a g fs d ~ |
  d a d e f e d a | \tuplet 6/4 4 { bf b a bf gs a g gs fs g f fs } |

  \time 5/4

  <e b' e>4 ~ q8. q16 r q r8 r2 |
  <e b' e>4 ~ q8. <a e' a>16 r <a e' b'> r8 c'16 b a fs e c b g |
  e32 e e e <e b' e>16 e32 e <e b' e>16 r8. r4 a8 g fs g |
  e8 fs g8 r16 a16 ~ a b8 r16 c b c d e g fs d |

  e a b e, c' e, a b e, c' e, a d e, c' e, b' e, c' e, |
  a f b f c' f, a b f c' f, a d f, c' f, b f c' f, |
  a fs! b fs c' fs, a b fs c' fs, a d fs, c' fs, b fs c' fs, |
  g b c g d' g, b c g d' g, b gs b c gs d' gs, b( c) |

  \time 3/4
  \key a \minor
  a,16 a <a e' b'> a <a e' c'> a a <a e' b'> a <a e' c'> a a |
  f f <f c' f> f <f c' g'> f f <f c' f> f <f c' g'> f f |
  g g <g d' a'> g <g d' g> g g <g d' a'> g <g d' g> g g |
  a a <a e' g> a <a e' a> a a <a e' g> a <a e' a> a a |

  a a <a e' b'> a <a e' c'> a a <a e' b'> a <a e' c'> a a |
  b b <b f' c'> b <b f' b> b b <b f' c'> b <b f' b> b b |
  c c <c e a> c <c e b'> c c <c e a> c <c e b'> c c |
  d d <d f c'> d <d f b> d d <d f c'> d <d f b> d d |

  \repeat unfold 3 { e e <e a> e <e b'> e e <e c'> e <e b'> e e | }
  e e <e a> e <e gs> e e <d a'> d <d a'>8. |

  \bar "||"

  \time 4/4
  \key e \major
  \repeat unfold 2 {
    e,16 e <e b' e> e <e b' e> e e <e b' e> e <e b' e> e e e e e e |
  }

  \repeat unfold 3 {
    e16 e <e b' e> e <e b' e> e e <e b' e> e <e b' e> e e e e e e |
  }
  b' b <b fs' b> b <b fs' b> b b <b fs' b> b <b fs' b> b b c b a gs |

  e16 e <e b' e> e <e b' e> e e <e b' e> e <e b' e> e e e e e e |
  fs fs <fs b fs'> fs <fs b fs'> fs fs <fs b fs'> fs <fs b fs'> fs fs fs fs fs fs |
  g g <g c g'> g <g c g'> g g g a a <a d a'> a <a d a'> a a a |
  <e b' e gs b e>8. q16 ~ q8 q <e c' fs a b e>2 |

  \key e \minor

  \repeat unfold 2 { <fs b fs'>8 q q r16 q r q r8 q q q q | }
  <g c g'>8 q q r16 q r q r8 <a d a'> q q q |
  <e b' e>8 q q r16 q r q r8 c'16 b a g fs g fs e |

  R1*5/4*2 |
  <fs b fs'>16-> fs q-> fs q-> fs fs q-> fs q-> fs fs g' b, fs' b, e b fs' b, |

  <fs b fs'>8 r16 <fs b fs'>8 q  r16 q8 q r16 b8[ a] |

  \repeat unfold 2 {
    b16 b' c a b b, ds e b e fs b, fs' g fs e ds b c a |
    b b' c a b b, fs' g b, e fs b, a' b b, ds' e fs b, a' |
    b,, b' c a b b, ds e b e fs b, fs' g fs e ds b c

    %b16 b' c a b b, b' c a b b, b' c a b fs g e fs ds  |
    %b b' c a b b, b' c a b b, b' c a b ds e fs b fs  |
    %b,, b' c a b b, b' c a b b, b' c a b fs g e fs

  }
  \alternative {
    { a | b b' c a b b, fs' g e fs b, e fs ds e \tuplet 3/2 { ds32( e ds) } \tuplet 6/4 { c16 b a b c a } | }
    {
      e' |
      ds16->[ b ds] e->[ b] fs'->[ b, fs'] g->[ b,] a'->[ b, a'] a,8->[ g-> fs->] |
    }
  }


  \time 12/8
  \tempo 4. = 54
  \key e \mixolydian

  <e b' e>4. <b'' e> <e,, b' e> <b'' e>8 gs, a |
  <e b' e>4. <b'' e> <e,, c'>4. c'8 b a |
  <e b' e>4. <b'' e> <e,, b' e> <b'' e>8 gs, a |
  b4. ds fs c8 a fs |

  <e b' e>4. <b'' e> <e,, b' e> <b'' e>8 gs, a |
  <fs b fs'>2. <e c' a'>4. b'8 a b |
  <g c g'>4. c8 b c <a d a'>4. a8 g fs |
  e4. e8 gs! b c4. a |

  \time 5/4
  <e b' e gs b e>2. ~ q2\fermata |

}

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"

  \repeat volta 4 { b1*5/4 | }
  \repeat unfold 4 b1*5/4 |

  b1*5/4 | q | c2. d2 | e2.:m a2:m |

  b1*5/4 | q | q | q |
  e:m | q | q | q |

  b1*5/4 | q | \repeat volta 2 q |

  c1:maj7 | d | e:m | e4:m e:m/fs e:m/g e:m/a |
  c1:maj7 | d | a:1.3-.5.9 | e4:5 q16 f8:5 g4.:5 a8.:5 |

  b1*7/16:1.3.5.7.9- | q | q | e:m/g |
  b1*7/16:1.3.5.7.9- | q | q | e4:m/g f8.:1.3.5.11+ |
  b1*7/16:1.3.5.7.9- | q | q | e:m/g |
  b1*7/16:1.3.5.7.9- | q | q | f8.:5 g8:5 a:5 |

  % modulation mayhem
  b4:m a8.:m | c4:maj7 b8.:7/ds | e4:dim b8.:dim | e4:1.3.5.7.9- fs8.:1.3.5-.7 |
  b4:1.3.5.7.9- e8.:m | bf4:dim7 g8.:m | d4:1.3.5.7.9- a8:1.3.5.7.9- fs16:1.3.5.7.9-/as | b8:m g fs8.:7 |

}

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