\version "2.22.1"
\language "english"

\header {
  title = "Running From the Gypsies"
  composer = "Tommy Montgomery"
  copyright = "© 2013 Tommy Montgomery"
}

defaultTimeAndStyle = {
  \numericTimeSignature
  \time 3/4
  \set Timing.beamExceptions = #'()
  \set Timing.baseMoment = #(ly:make-moment 1 8)
  \set Timing.beatStructure = #'(2 2 2)
  \set Staff.printKeyCancellation = ##f
  \override TupletBracket #'bracket-visibility = #'if-no-beam
}

global = {
  \key ef \minor
  \defaultTimeAndStyle
}

simpleAFlatMinorInterludeR = {
  r8 <ef, af>-. r8 <af ff'>-. r8 <g ef'>-. r8 <e df'>-. |
  r8 <ef? af>-. r8 <af ff'>-. r8 <g ef'>-. r8 <e df'>-. |

  \defaultTimeAndStyle
  <af ef'?>2. |
}
simpleAFlatMinorInterludeL = {
  af,8 <ef' af> af, <ef' cf'> af, <ef' bf'> af, <e' g> |
  af, <ef'? af> af, <ef' cf'> af, <ef' bf'> af, <e' g> |

  \defaultTimeAndStyle
  af, <ef'? af> af, <ef' af> af, <ef' af> |
}
defaultEFlatMinorSubjectR = {
  r8 gf-. \times 2/3 { f16 gf f } ef8 f <bf, bf'>-. |
  r8 gf'-. \times 2/3 { f16 gf f } ef8 f <cf cf'>-. |
  r8 gf'-. \times 2/3 { f16 gf f } ef8 f <bf, bf'>-. |
  <df df'>-. <cf cf'>-. <bf bf'>-. <af af'>-. <g g'>( <af af'>-.) |

  \time 4/4
  <bf bf'>1 |
}
defaultAFlatMinorInterludeR = {
  r8 <cf ef af> r8 <ff af ff'> r8 <ef g ef'> r8 <df ff df'> |
  r8 <cf ef af> r8 <ff af ff'> r8 <ef g ef'> r8 <df ff df'> |

  \defaultTimeAndStyle
  <ef af ef'>2. |
}

flowingSectionL = {
  \scaleDurations #'(2 . 3) {
    \repeat unfold 2 {
      cs,4 gs'8 cs cs gs' cs gs cs, cs gs4
    }
    \repeat unfold 2 {
      bs,4 gs'8 bs bs gs' bs gs bs, bs gs4
    }
    \repeat unfold 2 {
      fs4 cs'8 fs fs cs' fs cs fs, fs cs4
    }
    \repeat unfold 2 {
      es,4 cs'8 es es cs' es cs es, es cs4
    }
    \repeat unfold 2 {
      e,?4 cs'8 e? e cs' e? cs e, e cs4
    }
    \repeat unfold 2 {
      e,4 b'8 e e b' e b e, e b4
    }
    ds,4 b'8 ds ds b' ds b ds, ds b4 |
    \repeat unfold 2 {
      d,4 b'8 d d b' d b d, d b4 |
    }
    cs,4 gs'8 cs cs gs' cs gs cs, cs gs4 |

    % f# minor
    \repeat unfold 2 {
      fs4 cs'8 fs fs cs' fs cs fs, fs cs4
    }
    \repeat unfold 2 {
      es,4 cs'8 es es cs' es cs es, es cs4
    }
    \repeat unfold 2 {
      b4 fs'8 b b fs' b fs b, b fs4
    }
    \repeat unfold 2 {
      as,4 fs'8 as as fs' as fs as, as fs4
    }

    a,?4 fs'8 a? a fs' a? fs a, a fs4 |
    a,4 fs'8 a a fs' a fs a, a fs4 |

    \repeat unfold 2 {
      a,4 e'8 a a e' a e a, a e4
    }
    gs,4 e'8 gs gs e' gs e gs, gs e4 |
    g,4 e'8 g g e' g e g, g e4 |
  }
}

right = \relative c'' {
  \global
  \override DynamicLineSpanner #'staff-padding = #2.0
  \override DynamicLineSpanner #'Y-extent = #'(-1.5 . 1.5)


  <cf cf'>2.\f->\fermata |
  <bf bf'>2.->\fermata |
  <ef, ef'>2.~ |
  q2. |

  % simple subject
  r8\mp gf-. gf16( f ef8) f( bf-.) |
  r8 gf-. gf16( f ef8) f( cf'-.) |
  r8 gf-. gf16( f ef8) f bf-. |
  df-. cf-. bf-. af-. gf( af-.) |

  \time 4/4
  bf1 |

  \simpleAFlatMinorInterludeR

  r2.\f |

  % more complex subject
  r2. |
  r2. |

  \relative c''' {
    \defaultEFlatMinorSubjectR
    \defaultAFlatMinorInterludeR
    r2. |
    r2. |
    r2. |
  }

  r8 cf-. \times 2/3 { bf16 cf bf } af8 bf <f f'>-. |
  r8 cf'-. \times 2/3 { bf16 cf bf } af8 bf <gf gf'>-. |
  r8 cf-. \times 2/3 { bf16 cf bf } af8 bf <f f'>-. |
  <af af'>-. <gf gf'>-. <f f'>-. <ef ef'>-. <d d'>( <ef ef'>-.) |

  \time 4/4
  <f f'>1

  r8 <gf bf ef> r8 <cf ef cf'> r8 <bf d bf'> r8 <af cf af'> |
  r8 <gf bf ef> r8 <cf ef cf'> r8 <bf d bf'> r8 <af cf af'> |
  <bf ef bf'>1

  % eflat minor interlude
  \time 6/4
  r4 <gf, bf ef>8 <af bf f'> q <gf bf ef> q <af bf f'> q <gf bf gf'> <af bf f'>4 |

  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 d, f af
  \change Staff = "right"
  d d f af d d f af
  \ottava #1
  d d f af d4
  \ottava #0
  \revert Stem #'direction
  r4 |

  r4 <gf,,,, bf ef>8 <af bf f'> q <gf bf ef> q <af bf f'> q <gf bf gf'> <af cf af'>4 |
  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 d, f af
  \change Staff = "right"
  d d f af d d f af
  \ottava #1
  d d f af d4
  \ottava #0
  \revert Stem #'direction
  r4 |

  r4 <cf,,, ef af>8 <df ef bf'> q <cf ef af> q <df ef bf'> q <cf ef cf'> <df ef bf'>4 |
  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 g,
  \change Staff = "right"
  bf df g g bf df g g bf df
  \ottava #1
  g g bf df g4
  \ottava #0
  \revert Stem #'direction
  r4 |

  \time 5/4
  r4 <cf,,,, ef af>8 <df ef bf'> q <cf ef af> q <df ef bf'> q <cf ef cf'> |
  \time 6/4
  <df ff df'>4 <cf ef cf'> q <bf df bf'> <gs b gs'> <fss as fss'> |

  \key cs \minor
  \defaultTimeAndStyle
  <gs b gs'>2. ~ |
  q2. |

  % g# minor subject
  r8 b'-. \times 2/3 { as16 b as } gs8 as <ds, ds'>-. |
  r8 b'-. \times 2/3 { as16 b as } gs8 as <e e'>-. |
  r8 b'-. \times 2/3 { as16 b as } gs8 as <ds, ds'>-. |
  <fs fs'>-. <es es'>-. <ds ds'>-. <cs cs'>-. <bs bs'>( <cs cs'>-.) |

  \time 4/4
  <ds ds'>1

  \defaultTimeAndStyle
  % c# minor subject
  r8 e'-. \times 2/3 { ds16 e ds } cs8 ds <gs, gs'>-. |
  r8 e'-. \times 2/3 { ds16 e ds } cs8 ds <a a'>-. |
  r8 e'-. \times 2/3 { ds16 e ds } cs8 ds <gs, gs'>-. |
  <b b'>-. <a a'>-. <gs gs'>-. <fs fs'>-. <es es'>( <fs fs'>-.) |

  \time 4/4
  <gs gs'>1 |

  % f# minor interlude
  \repeat unfold 2 {
    r8 <a cs fs> r8 <d fs d'> r8 <cs es cs'> r8 <b d b'> |
  }

  <cs fs cs'>1 |
  <bs fs' gs bs>1\arpeggio |

  % c# minor interlude
  \scaleDurations #'(2 . 3) {
    r8 e,,-> gs e' e gs e' gs, e e gs, e |
    \repeat unfold 2 {
      r8 ds-> gs ds' ds gs ds' gs, ds ds gs, ds |
    }
    r8 fs-> gs fs' fs gs fs' gs, fs fs gs, fs |

    r8 a-> cs a' a cs a' cs, a a cs, a |
    \repeat unfold 2 {
      r8 gs-> cs gs' gs cs gs' cs, gs gs cs, gs |
    }
    r8 b-> cs b' b cs b' cs, b b cs, b |

    r8 a-> cs a' a cs a' cs, a a cs, a |
    r8 gs-> cs gs' gs cs gs' cs, gs gs cs, gs |
    r8 gs-> b gs' gs b gs' b, gs gs b, gs |
    \repeat unfold 3 {
      r8 fs-> b fs' fs b fs' b, fs fs b, fs |
    }
    r8 es-> b' es es b' es b es, es b es, |
    r8 gs-> b gs' gs b gs' b, gs gs b, gs-> |

    % f# minor
    r8 a-> cs a' a cs a' cs, a a cs, a |
    \repeat unfold 2 {
      r8 gs-> cs gs' gs cs gs' cs, gs gs cs, gs |
    }
    r8 b-> cs b' b cs b' cs, b b cs, b |

    r8 d-> fs d' d fs d' fs, d d fs, d |
    \repeat unfold 2 {
      r8 cs-> fs cs' cs fs cs' fs, cs cs fs, cs |
    }
    r8 e-> fs e' e fs e' fs, e e fs, e |

    r8 d-> fs d' d fs d' fs, d d fs, d |
    r8 cs-> fs cs' cs fs cs' fs, cs cs fs, cs |
    r8 cs-> e cs' cs e cs' e, cs cs e, cs |
    \repeat unfold 3 {
      r8 b-> e b' b e b' e, b b e, b |
    }
  }

  r16 as e' g as as e' g as4 <as, e' g> |
  \defaultTimeAndStyle
  \key ef \minor
  <cf ef~ cf'>2. |
  <bf ef bf'>2. |
  <ef,, ef'>2. ~ |
  q2. |

  r8 <gf gf'>-. q16( <f f'> <ef ef'>8) <f f'> <bf bf'>-. |
  r8 <gf gf'>-. q16( <f f'> <ef ef'>8) <f f'> <cf' cf'>-. |
  r8 <gf gf'>-. q16( <f f'> <ef ef'>8) <f f'> <bf bf'>-. |
  <df df'>-. <cf cf'>-. <bf bf'>-. <af af'>-. <gf gf'>( <af af'>-.) |

  \time 4/4
  <bf bf'>1 |

  \relative c'' {
    \simpleAFlatMinorInterludeR
  }

  r16 <af af'>16-.[ r16 <gf gf'>16-. r16 <g g'>16-. r16 <f f'>16-. r16 <e e'>16-. r16 <d d'>16-.] |
  \time 4/4
  <ef ef'>1 |
  r1 |

  \defaultTimeAndStyle
  \relative c''' {
    \defaultEFlatMinorSubjectR
  }

  r8 <cf' ef af> r8 <ff af ff'> r8 <ef g ef'> r8 <df ff df'> |
  r8 <cf' ef af> r8 <ff af ff'> r8 <ef g ef'> r8 <df ff df'> |
  <ef af ef'>1 |

  \time 6/4
  r4 <cf, ef af>8 <df ef bf'> q <cf ef af> q <df ef bf'> q <cf ef cf'> <df ef bf'>4 |
  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 g,
  \change Staff = "right"
  bf df g g bf df g g bf df
  \ottava #1
  g g bf df g4
  \ottava #0
  \revert Stem #'direction
  r4 |

  r4 <cf,,,, ef af>8 <df ef bf'> q <cf ef af> q <df ef bf'> q <cf ef cf'> <df e df'>4 |
  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 g,
  \change Staff = "right"
  bf df g g bf df g g bf df
  \ottava #1
  g g bf df g4
  \ottava #0
  \revert Stem #'direction
  r4 |

  r4 <ff,,, af df>8 <gf af ef'> q <ff af df> q <gf af ef'> q <ff af ff'> <gf af ef'>4 |
  \change Staff = "left"
  \override Stem #'direction = #UP
  r16 c,, ef gf
  \change Staff = "right"
  c c ef gf c c ef gf
  \ottava #1
  c c ef gf c4
  \ottava #0
  \revert Stem #'direction
  r4 |

  \time 5/4
  r4 <ff,,, af df>8 <gf af ef'> q <ff af df> q <gf af ef'> q <ff af ff'> |

  \time 6/4
  <gf bff gf'>4 <ff af ff'> q <ef gf ef'> <df ff df'>\fermata <c ef c'>\fermata |

  \time 4/4
  \key cs \minor

  % c# minor interlude again
  \scaleDurations #'(2 . 3) {
    r8 e, gs e' e gs e'-> gs, e e gs, e |
    \repeat unfold 2 {
      r8 ds gs ds' ds gs ds'-> gs, ds ds gs, ds |
    }
    r8 fs gs fs' fs gs fs'-> gs, fs fs gs, fs |

    r8 a cs a' a cs a'-> cs, a a cs, a |
    \repeat unfold 2 {
      r8 gs cs gs' gs cs gs'-> cs, gs gs cs, gs |
    }
    r8 b cs b' b cs b'-> cs, b b cs, b |

    r8 a cs a' a cs a'-> cs, a a cs, a |
    r8 gs cs gs' gs cs gs'-> cs, gs gs cs, gs |
    r8 gs b gs' gs b gs'-> b, gs gs b, gs |
    \repeat unfold 3 {
      r8 fs b fs' fs b fs'-> b, fs fs b, fs |
    }
    r8 es b' es es b' es-> b es, es b es, |
    r8 es cs' es es cs'
  }

  \times 4/7 { es16 es, cs' es es cs' es }
  \ottava #1
  \set Staff.ottavation = #"8"
  cs'4 |
  \ottava #0

  \scaleDurations #'(2 . 3) {
    % f# minor
    r8 a,,, cs a' a cs a'-> cs, a a cs, a |
    \repeat unfold 2 {
      r8 gs cs gs' gs cs gs'-> cs, gs gs cs, gs |
    }
    r8 b cs b' b cs b'-> cs, b b cs, b |
  }

  r16 d fs b d d fs b d b fs d d b fs d |
  r cs fs b cs cs fs b cs b fs cs cs b fs cs |
  r cs fs as cs cs fs as cs as fs cs cs as fs cs |
  r e fs as e' e fs as e' as, fs e e as, fs e |

  r d fs a d d fs a d a fs d d a fs d |
  r cs fs a cs cs fs a cs a fs cs cs a fs cs |
  r cs e a cs cs e a cs a e cs cs a e cs |
  r b e a b b e a b a e b b a e b |

  \scaleDurations #'(2 . 3) {
    \repeat unfold 2 {
      r8 b e b' b e b'-> e, b b e, b |
    }

    r8 bf e bf' bf e bf'-> e, bf bf e, bf |
    r8 cs g' cs cs g' cs-> g cs, cs g cs, |

    \key d \minor
    r f a f' f a f' a, f f a, f |
    r e a e' e a e' a, e e a, e |
    r e g e' e g e' g, e e g, e |
    \repeat unfold 2 {
      r d g d' d g d' g, d d g, d |
    }
    r cs g' cs cs g' cs g cs, cs g cs, |
    r d f d' d f d' f, d d f, d |
    r af b af' af b af'-> b, af af b, af |

    \key ef \minor
    r gf bf gf' gf bf gf'-> bf, gf gf bf, gf |
    \repeat unfold 2 {
      r f bf f' f bf f'-> bf, f f bf, f |
    }
    r af bf af' af bf af'-> bf, af af bf, af |

    r cf ef cf' cf ef cf'-> ef, cf cf ef, cf |
    \repeat unfold 2 {
      r bf ef bf' bf ef bf'-> ef, bf bf ef, bf |
    }
    r df ef df' df ef df'-> ef, df df ef, df |

    r cf ef cf' cf ef cf'-> ef, cf cf ef, cf |
    r bf ef bf' bf ef bf'-> ef, bf bf ef, bf |
    r bf df bf' bf df bf'-> df, bf bf df, bf |
    \repeat unfold 3 {
      r af df af' af df af'-> df, af af df, af |
    }
  }

  r16 g df' e g g df' e g4 <g, df' e> |

  \defaultTimeAndStyle
  <cf ef~ cf'>2. |
  <bf ef bf'>2. |
  <ef, af ef'>2. |
  <f, af ef'~>2. |
  <ef bf' ef>2.\laissezVibrer |
  r16 f cf' d r16 f cf' d r16 f d cf |
  r16 f, cf' d r16 f cf' d r16 f d cf |
  r16 f, cf' d
  \ottava #1
  r16 f cf' d r4 \bar "|."
}

left = \relative c' {
  \global
  <af af,>2.\fermata |
  <gf gf,>2.\fermata |
  ef,8 ef' ef, ef' ef, ef' |
  ef,8 ef' ef, ef' ef, ef' |

  % simple subject
  ef,8 ef' ef, ef' ef, ef' |
  ef, ef' ef, ef' ef, ef' |
  ef, ef' ef, ef' ef, ef' |
  ef, ef' ef, ef' ef, ef' |

  \time 4/4
  ef, ef' ef, ef' ef, ef' ef, ef' |
  \simpleAFlatMinorInterludeL


  af,16 af' gf, gf' g, g' f, f' e, e' d, d' |

  % more complex subject
  ef,?8 ef'? bf, ef' ef, ef' |
  bf, ef' ef, ef' bf, ef' |
  ef, ef' bf, ef' ef, ef' |
  bf, ef' ef, ef' bf, ef' |
  ef, ef' bf, ef' ef, ef' |
  bf, ef' ef, ef' bf, ef' |

  \time 4/4
  ef, ef' bf, ef' ef, ef' bf, ef' |
  af, <ef' af> ef, <ef' cf'> af, <ef' bf'> ef, <bff' aff'>-> |
  af <ef' af?> ef, <ef' cf'> af, <ef' bf'> ef, <bff' aff'>-> |

  \defaultTimeAndStyle
  af <ef' af> af, <ef' af> af, <ef' af> |
  af,16 af' g, g' gf, gf' f, f' e, e' ef, ef' |
  d,8 d' bf, d' d, d' |
  bf, d' d, d' bf, d' |

  % bflat subject
  d, d' bf, d' d, d' |
  bf, d' d, d' bf, d' |
  d, d' bf, d' d, d' |
  bf, d' d, d' bf, d' |

  \time 4/4
  d, d' bf, d' d, d' bf, d' |

  ef, <bf' ef> bf, <bf' gf'> ef, <bf' f'> bf, <ff' eff'>-> |
  ef <bf' ef?> bf, <bf' gf'> ef, <bf' f'> bf, <ff' eff'>-> |
  ef <bf' ef?> bf, <bf' ef> ef, <bf' ef> bf, <bf' ef> |

  % eflat minor interlude
  \time 6/4
  <<
    \relative c, {
      s4 <ef bf' ef>8 <d bf' d> q <ef bf' ef> q <d bf' d> q <ef bf' ef> <d bf' d>4 |
      s4 r16 d' af' bf
      \change Staff = "right"
      \override Stem #'direction = #DOWN
      d d af' bf d d af' bf d4

      s4 |
      \change Staff = "left"
      \revert Stem #'direction
      s4 <ef,,,, bf' ef>8 <d bf' d> q <ef bf' ef> q <d bf' d> q <ef bf' ef> <d f d'>4 |
      \override Stem #'direction = #UP
      s4 r16 d' af' cf
      \change Staff = "right"
      \override Stem #'direction = #DOWN
      d d af' cf d d af' cf d4 s4|
      \change Staff = "left"
      \revert Stem #'direction

      % aflat minor
      s4 <af,,, ef' af>8 <g ef' g> q <af ef' af> q <g ef' g> q <af ef' af> <g ef' g>4 |
      \override Stem #'direction = #DOWN
      s4 r16 g'
      \change Staff = "right"
      df' ef g g df' ef g g df' ef g4 s4 |
      \change Staff = "left"
      \revert Stem #'direction

      \time 5/4
      s4 <af,,,, ef' af>8 <g ef' g> q <af ef' af> q <g ef' g> q <af ef' af> |
      \time 6/4
      <df, df'>4 <gf, gf'> <af af'>4. <fs fs'>16( <e e'>) ds'4. ds8 |
    }
    \\
    {
      <ef,, ef'>1. |
      bf'1 ~ bf4 <bf bf'> |
      <ef, ef'>1. |
      bf'1 ~ bf4 <bf bf'> |
      <af af'>1. |
      ef'1 ~ ef4 <ef, ef'> |
      <af af'>1 s4 |
      s1 ds,2 |
    }
  >>

  \key cs \minor
  \defaultTimeAndStyle
  gs'8 <ds' gs> ds, <ds' gs> gs, <ds' gs> |
  ds, <ds' gs> gs, <ds' gs> ds, <ds' gs> |
  \repeat unfold 2 {
    gs, <ds' gs> ds, <ds' gs> gs, <ds' gs> |
    ds, <ds' gs> gs, <ds' gs> ds, <ds' gs> |
  }
  \time 4/4
  gs, <ds' gs> ds, <ds' gs> gs, <ds' gs> ds, <ds' gs> |

  \defaultTimeAndStyle
  % c# minor subject
  \repeat unfold 2 {
    cs, <gs' cs> gs, <gs' cs> cs, <gs' cs> |
    gs, <gs' cs> cs, <gs' cs> gs, <gs' cs> |
  }
  \time 4/4
  cs, <gs' cs> gs, <gs' cs> cs, <gs' cs> gs, <gs' cs> |

  % f# minor interlude
  \repeat unfold 2 {
    fs <cs' fs> cs, <cs' a'> fs, <cs' gs'> cs, <g' f'>-> |
  }

  fs <cs' fs> cs, <cs' fs> a <cs fs> fs, <cs' fs> |
  gs16 ds' gs ds fs, ds' gs ds e, cs' gs' cs, \times 4/6 { ds, gs bs fs' bs, gs } |

  % c# minor subject2
  \flowingSectionL

  g,8 e'16 g16 g8 e'16 g16 ~ g4 <g, e'>4 |

  \defaultTimeAndStyle
  \key ef \minor

  <af, af'>2. |
  <gf gf'>2. |
  <ef, ef'>4. ef'8 ef, ef' |
  ef, ef' ef, ef' ef, ef' |

  % low, eflat minor subject
  \repeat unfold 4 {
    ef, ef' ef, ef' ef, ef' |
  }

  \time 4/4
  ef, ef' ef, ef' ef, ef' ef, ef' |

  \relative c' {
    \simpleAFlatMinorInterludeL
  }

  <af af'>16-.[ r16 <gf gf'>16-. r16 <g g'>16-. r16 <f f'>16-. r16 <e e'>16-. r16 <d d'>16-.] r16 |
  \time 4/4
  \repeat unfold 2 {
    ef8 ef' bf, bf' ef,, ef' bf bf' |
  }

  \defaultTimeAndStyle
  ef, ef' bf, bf' ef,, ef' |
  bf bf' ef, ef' bf, bf' |
  ef,, ef' bf bf' ef, ef' |
  bf, bf' ef,, ef' bf bf' |

  \time 4/4
  ef, ef' bf, bf' ef,, ef' bf bf' |

  <af, af'>8 q <cf cf'> q <bf bf'> q <bff bff'> q |
  <af' af'>8 q <cf cf'> q <bf bf'> q <bff bff'> q |
  af-> <ef' af> ef,-> <ef' af> cf,-> <ef' af> bf,-> <ef' af> |

  \time 6/4
  <<
    \relative c {
      s4 <af ef' af>8 <g ef' g> q <af ef' af> q <g ef' g> q <af ef' af> <g ef' g>4 |
      \override Stem #'direction = #DOWN
      s4 r16 g'
      \change Staff = "right"
      df' ef g g df' ef g g df' ef g4 s4 |
      \change Staff = "left"

      \override Stem #'direction = #UP
      s4 <af,,,, ef' af>8 <g ef' g> q <af ef' af> q <g ef' g> q <af ef' af> <g bf g'>4 |
      \override Stem #'direction = #DOWN
      s4 r16 g'
      \change Staff = "right"
      df' e g g df' e g g df' e g4 s4 |
      \change Staff = "left"

      \override Stem #'direction = #UP
      s4 <df,,, af' df>8 <c af' c> q <df af' df> q <c af' c> q <df af' df> <c af' c>4 |

      s4 r16 c gf' af
      \override Stem #'direction = #DOWN
      \change Staff = "right"
      c c gf' af c c gf' af c4 s4 |
      \change Staff = "left"

      \time 5/4
      \override Stem #'direction = #UP
      s4 <df,,, af' df>8 <c af' c> q <df af' df> q <c af' c> q <df af' df> |
    }
    \\
    \relative c, {
      <af af'>1. |
      ef'1 ~ ef4 <ef, ef'> |
      <af af'>1. |
      ef'1 ~ ef4 <ef, ef'> |
      <df df'>1. |
      <af' af'>1 ~ q4 q |
      <df, df'>1 ~ q4 |
    }
  >>

  \time 6/4
  <gf, gf'>4 <cf, cf'> <df df'>4.( <cf cf'>16 <bff bff'> <af af'>2\fermata)

  \time 4/4
  \key cs \minor

  % 2nd c# minor interlude
  \relative c {
    \flowingSectionL
  }

  \scaleDurations #'(2 . 3) {
    g'4 e'8 g g e' g e g, g e4 |
    bf4 e8 bf' bf e bf' e, bf bf e,4 |

    \key d \minor
    d4
    \clef treble
    a'8 d d a' d a d, d a4 |
    \clef bass
    cs,4
    \clef treble
    a'8 cs cs a' cs a cs, cs a4 |
    \clef bass
    c,?4
    \clef treble
    g'8 c? c g' c? g c, c g4 |
    \clef bass
    b,4
    \clef treble
    g'8 b b g' b g b, b g4 |
    \clef bass
    bf,?4
    \clef treble
    g'8 bf? bf g' bf? g bf, bf g4 |
    \clef bass
    a,4 e'8 a a e' a e a, a e4 |
    bf4
    \clef treble
    f'8 bf bf f' bf f bf, bf f4 |
    \clef bass
    f,4 d'8 f f d' f d f, f d4 |

    \key ef \minor
    \repeat unfold 2 {
      ef,4 bf'8 ef ef bf' ef bf ef, ef bf4 |
    }
    \repeat unfold 2 {
      d,4 bf'8 d d bf' d bf d, d bf4 |
    }
    \repeat unfold 2 {
      af4 ef'8 af af ef' af ef af, af ef4 |
    }
    \repeat unfold 2 {
      g,4 ef'8 g g ef' g ef g, g ef4 |
    }
    gf,?4 ef'8 gf? gf ef' gf? ef gf, gf ef4 |
    gf,4 ef'8 gf gf ef' gf ef gf, gf ef4 |
    \repeat unfold 2 {
      gf,4 df'8 gf gf df' gf df gf, gf df4 |
    }
    f,4 df'8 f f df' f df f, f df4 |
    ff,4 df'8 ff ff df' ff df ff, ff df4 |
  }

  e,8 df'16 e e8 df'16 e ~ e4 e, |

  \defaultTimeAndStyle
  <af, af'>2. |
  <gf gf'>2. |
  <f df' f>2. |
  <cf cf'>2. |
  <ef, ef'>2.\laissezVibrer |

  ef''4 bf' ef |
  \clef treble
  bf' ef bf' |
  \ottava #1
  ef bf' ef\fermata |
}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { \clef bass \left }
  >>
  \layout {
    \context {
      \PianoStaff
    }
  }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 116 4)
    }
  }
}