% Created on Wed Dec 26 18:54:54 GMT 2007
\version "2.18.2"


myStaffSize = #17.8


backColor =       #(rgb-color 0.99 0.96 0.8)

colLightRed =     #(rgb-color 1.0  0.7  0.7)
colDarkRed =      #(rgb-color 0.8  0.2  0.2)
colRedLetter =    #(rgb-color 0.6  0.0  0.0)

colLightOrange =  #(rgb-color 1.0  0.8  0.6)
colDarkOrange =   #(rgb-color 0.65 0.3  0.1)
colOrangeLetter = #(rgb-color 0.6  0.3  0.0)

colLightGreen =   #(rgb-color 0.7  0.9  0.7)
colDarkGreen =    #(rgb-color 0.2  0.5  0.3)
colGreenLetter =  #(rgb-color 0.0  0.3  0.0)

colLightBlue =    #(rgb-color 0.8  0.8  1.0)
colDarkBlue =     #(rgb-color 0.3  0.3  0.9)
colBlueLetter =   #(rgb-color 0.0  0.0  0.3)


#(set-global-staff-size myStaffSize)

\header {
  title = "Fugue 17, A-flat Major"
  subtitle = "BWV 862"
  composer = "J. S. Bach"

  mutopiatitle = "Das Wohltemperierte Clavier I, Fuga XVII"
  mutopiacomposer = "BachJS"
  mutopiainstrument = "Harpsichord, Piano"
  mutopiaopus = "BWV 862"
  source = "Bach-Gesellschaft edition, 1866 (Dover reprint)."
  style = "Baroque"
  %  copyright = "Public Domain"
  maintainer = "Andrew Hawryluk"
  maintainerWeb = "http://www.musicbyandrew.ca/"
  footer = "Mutopia-2008/03/27-1375"
  tagline = ""
}

\include "english.ly"


\layout {
  \context {
    \Voice
    \consists "Balloon_engraver"
    %\override BalloonTextItem #'annotation-line = ##f
    \override BalloonTextItem #'annotation-balloon = ##f
  }
}

colorSpan =
#(define-music-function (parser location y-lower y-upper color) 
   (number? number? color?)
   #{
     \override HorizontalBracket.stencil =
     $(lambda (grob)
        (let* (
                (area (ly:horizontal-bracket::print grob))
                (X-ext (ly:stencil-extent area X))
                (Y-ext (ly:stencil-extent area Y)))
          (set! Y-ext (cons y-lower y-upper))
          (ly:grob-set-property! grob 'layer -10)
          (ly:make-stencil (list 'color color
                             (ly:stencil-expr (ly:round-filled-box X-ext Y-ext 0))
                             X-ext Y-ext))))
     \override HorizontalBracket.Y-offset = #0
     \override HorizontalBracket.shorten-pair = #'(-.95 . -1.0)
   #})

RightHandOne = \relative c' {
  \key af \major
  % \tempo 4=60
  \balloonLengthOff
  \colorSpan #-12 #5 \backColor
  \override MultiMeasureRest #'staff-position = #6
  << {R1} {s4 \hide r4\startGroup s2} >>
  R1*3
  \voiceOne r4  <af'-\balloonText #'(2 . -2) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colRedLetter "Sopran [1]" "Dux" } }
  >8
  ef' c af f' df 
  ef2. af4
  af\stopGroup g f2~
  f16 bf, c d ef4~ ef8 af df, bf'
  df,4 c bf2
  af2~ af16 af bf c df4~
  df16 bf c ef af g af bf c bf af g f g af c
  bf af g f ef f g bf af g f ef d ef f af
  g f e g f e f g c,8 f~ f g16 e
  f e f g af2  g4~
  g f2 e4
  f4~ f16 ef df c bf af g af bf df c bf
  \override BalloonTextItem #'annotation-line = ##f
  a c df <ef-\balloonText #'(1 . -5) \markup {\box \bold "3. Durchführung"}
  > f\startGroup  ef df c bf df gf f ef df c bf
  a4 bf16 c df8~ df c16 df ef4~
  ef16 c df f\stopGroup <bf-\balloonText #'(0.1 . -8) \markup {\box \bold "Zwischenspiel"}
  >8 f gf ef af ef
  \override BalloonTextItem #'annotation-line = ##t
  f df16 f gf8 df ef c f c
  df2. c8 f
  d bf ef2 d4
  ef r  r2
  r4 <af,-\balloonText #'(1 . -3) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colRedLetter "Sopran [2]" "Dux (var.)" } }
  >8
  ef' c af gf' ef
  f4 f8 g ef4 ef8 f
  df4 df8 bf' c, df16 bf c8 af'
  bf,4 r16  ef f g af4~ af16 g f af
  g2.~ g16 c, f8~
  f16 ef df f ef2 df4~
  df16 c bf df <c-\balloonText #'(2 . -4.5) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colRedLetter "Sopran [3]" "Dux (var.)" } }
  >8
  f df bf gf' ef
  \override BalloonTextItem #'annotation-line = ##f
  f4 <af-\balloonText #'(1 . -8) \markup {\box \bold "Zwischenspiel"}
  >8  \override Glissando.thickness = #2
  f\glissando g4 \override Glissando.thickness = #1   bf8 g\glissando
  af f \once \override Tie #'staff-position = #6 df4~ df8 ef\glissando c\glissando f
  c4 bf~ bf8 af16 <g> <af-\balloonText #'(-2 . -4) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colRedLetter "Sopran [4]" "Dux" } }
  >8\startGroup
  ef'
  c af f' df ef\stopGroup g, af4~
  af g af2^\fermata \bar "|."
}

ClustersRightHandOne = {
  \key af \major
  % \tempo 4=60
  
  R1*4
  \voiceOne 
  \override Voice.ClusterSpanner.color = \colLightRed
  \override Voice.ClusterSpanner.layer = #-2
  \makeClusters {
    <<{
      \relative c'' {
        % Takt 5
        r4 bf8 f' d bf g' ef
        f2. bf4
        bf a g2~
        g16 c, d e f4~ f8 bf ef, c'
        ef,4 ef c4 c
        bf16 d d c bf4 bf16 bf c d ef4~
        ef16 c d f bf a bf c d c bf a g a bf d
        c bf a g f g a c bf a g f e f g bf
        a g fs a g fs g a d,8 g~ g a16 fs
        g fs g a bf2 a4~
        a g4 g8 a fs4
        g4~ g16 f ef d c bf a bf c ef d c
        b d ef f g f ef d c ef af g f ef d c
        b4 c16 d ef8~ ef d16 ef f4~
        f16 d ef g c8 g af f bf f
        g ef16 g af8 ef f d g d
        ef4 ef8 g ef4 d8 g
        e c f4. g8 e4
        f f \hide r2
        s4 bf,8 f' d bf af' f
        g16 a g8 g8 a f16 g f8  f8 g
        ef16 f ef8 ef8 c' d, ef16 c d8 bf'
        c,16 f8. a16 f g a bf8 c bf16 a g bf
        a8 a16 a    a2   a16 d, g8~
        g16 f ef g    f8 g4.    f4
        
        \voiceTwo
        f16 d c ef    d8 g    ef c   af' f
        g16 b8.    bf16 bf g16 a     a16 c8.   c8 a
        
        bf16 b g8   ef8 f   ef8 f   d g
        d4    c8 c    c8 bf16 a     bf8 f'16 f
        e16 d bf8     g' ef   f16 f a,8    bf8 c
        bf8.. c32   b16 c8.    bf4 bf
      }
      }
      {
        \relative c'' {
          % Takt 5
          r4 g8 d' b g e' c
          d2. g4
          g fs e2~
          e16 a, b cs d4~ d8 g c, a'
          c,4 c b4 b
          a16 d d b a4 a16 g a b c4~
          d16 b b d g fs g a b a g fs e fs g b
          a g fs e d e fs a g fs e d cs d e g
          fs16 e ds fs e ds e fs c8 e f fs16 ds
          e ds f fs a2 g4
          fs4 f4 f8 g e4
          e4 e16 d c b a g fs g a c b a
          gs b c d e d c b a c f e d c b a
          gs4 a16 b d8 c b16 c e4
          e16 c c e a8 e f d g d
          e c16 e f8 c d b e b
          c4 c8 e c4 b8 e
          cs a d4. f8 d4
          d d \hide r2
          s4 g,8 d' b g f' f
          e16 g e8 e8 g e16 g e8 e8 f 
          d16 f d8 d8 a' c, d16 b c8 g'
          b,16 e8. gs16 e e fs g8 b g16 fs e g
          g8 fs16 a   fs2 fs16 b, e8~
          e16 d c e    d8 e4.    d4
          
          \voiceTwo
          d16 c a c   b8 e c a f' f
          e16 a8.  g16 g g16 fs    g16 b8.   a8 g
          
          a16 a e8    c8 e    c8 e     d e
          c4    b8 c     b8 g16 fs    a8 e'16 e
          d16 c a8    e' d    e16 e g,8   g8 b
          g8.. b32    g16 a8.  g4 g
        }
    }>>
    
  }
}

ClustersRightHandOne_C = \relative c' {
  \key af \major
  % \tempo 4=60
  
  R1*4
  \voiceOne 
  \override Voice.ClusterSpanner.color = \colDarkRed
  \override Voice.ClusterSpanner.layer = #-1
  \makeClusters {
    r4 af'8 ef' c af f' df
    e4 \hide r4 s2
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    
    s4 af,8 ef' c af gf' ef
    f8 f \hide r4 s2
    s1
    s1
    s1
    s1
    s4 c8 f df bf gf' ef
    f8 g \hide r4 s2
    s1
    s2.  af,8 ef'
    c af f' df ef \hide r8 s4
    
  }
}

RightHandTwo = \relative c' {
  \override MultiMeasureRest #'staff-position = #2
  R1*4
  \voiceTwo
  \override MultiMeasureRest #'staff-position = # -2.0
  \balloonLengthOff
  R1
  r4 <ef-\balloonText #'(-2 . -2) \markup { \right-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colOrangeLetter "Alt [1]" "Comes" } }
  >8
  af g ef c' af
  \override BalloonTextItem #'annotation-line = ##f
  <bf-\balloonText #'(2 . -5) \markup {\box \bold "Zwischenspiel"}
  >4~ bf16 ef, f g af bf c bf af g f af
  g2 f
  r16 ef f g af2 g4
  af8 g16 <f-\balloonText #'(1 . -5) \markup {\box \bold "2. Durchführung"}
  > \colorSpan #-12 #5 \backColor ef\startGroup df c df ef8 r8 c8\rest\glissando
  \override BalloonTextItem #'annotation-line = ##t
  \voiceThree \change Staff = LH af8\glissando \change Staff = RH \voiceTwo
  af'8 r8 r4 r2
  R1
  r4 <f-\balloonText #'(-2 . -2) \markup { \right-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colOrangeLetter "Alt [2]" "Dux" } }
  >8
  c' af f df' bf
  \override BalloonTextItem #'annotation-line = ##f
  c\stopGroup d16 e <f-\balloonText #'(0.1 . -6) \markup {\box \bold "Zwischenspiel"}
  >8 c df bf ef bf
  \override BalloonTextItem #'annotation-line = ##t
  c af df af bf16 c df c bf af g bf
  af4 r4 r2
  R1
  r4 <f-\balloonText #'(2 . -3) \markup { \right-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colOrangeLetter "Alt [3]" "Dux (var.)" } }
  >8
  bf gf ef c' a
  bf4 r16 f gf af bf af gf f ef f gf bf
  af gf f ef df ef f af gf f ef df c df ef gf
  f4 f8 bf g ef~ ef af
  f d r g af16 bf c bf af g f af
  \override BalloonTextItem #'annotation-line = ##f
  g af bf <g-\balloonText #'(1.5 . -4) \markup {\box \bold "4. Durchführung"}
  > \override BalloonTextItem #'annotation-line = ##t <ef-\balloonText #'(-1 . -2.5) \markup { \right-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colOrangeLetter "Alt [4]" "Dux" } }
  >8\startGroup
  bf' g ef df' bf
  \override BalloonTextItem #'annotation-line = ##f
  c4 r r c8 ef~
  ef af,\stopGroup <bf-\balloonText #'(0.1 . -4) \markup {\box \bold "Zwischenspiel"}
  >  df~ df g, a c~
  c f, bf2 af4~
  af16 g af bf <c-\balloonText #'(0.1 . -4) \markup {\box \bold "5. Durchführung"}
  >4~\startGroup c16 df ef c df4~
  df16 c bf df c4~ c16 bf af g af8. af16
  \override BalloonTextItem #'annotation-line = ##t
  g8 r <ef-\balloonText #'(2 . -3) \markup { \right-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colOrangeLetter "Alt [5]" "Dux (var.)" } }
  >
  af f df bf' g
  af4 r r r8 <c ef>
  \break
  ef df\stopGroup d\rest \override Glissando.thickness = #2 <f d>\glissando f \override Glissando.thickness = #1 ef d\rest <e g>\glissando
  <c f> b\rest g\rest \voiceThree bf g[ bf\glissando] \voiceTwo <c af>\glissando[ <af f>]
  \break
  af4. g8 <f c>4 r8  <bf ef,>
  <af ef> r r <bf f> <bf ef,> c,\rest c\rest f
  bf,16 c df f ef df c df c2
  \override BalloonTextItem #'annotation-line = ##t
}

ClustersRightHandTwo = {
  \override MultiMeasureRest #'staff-position = #2
  R1*4
  \override Voice.ClusterSpanner.color = \colLightOrange
  \override Voice.ClusterSpanner.layer = #-3
  \override MultiMeasureRest #'staff-position = # -2.0
  \makeClusters {
    <<{
      \relative c' {
        R1
        % Takt 6
        r4 f8 bf a f d' bf
        c4~ c16 f, g a bf c d c bf a g bf
        a2 g
        f16 f g a bf2 <a>8  \hide r
        q16 bf16 a16 g f ef d ef f8 f8 f 
        %\voiceThree 
        \change Staff = LH bf,16 bf \change Staff = RH \voiceTwo
        bf'8 bf8 r4 r2
        R1
        r4 g8 d' bf g ef' c
        d e16 fs g8 d ef c f c
        d bf ef bf c16 d ef d c bf a c
        bf4 bf4 r2
        R1
        r4 g8 c af f d' b
        c4 g16 g af bf c bf af g f g af c
        bf af g f ef f g bf af g f ef d ef f af
        g4 g8 c a f~ f bf
        g e g a bf16 c d c bf a g bf
        a16 bf c a f8 c' a f ef' c
        d4 d, d8 d d'8 f~
        f bf, c ef~ ef a, b d~
        d g, c2 bf4~
        bf16 a bf c    d4~    d16 ef f d    ef4~
        ef16 d c ef    d4~     d16 d c a    bf8. bf16
        a8 a16 \hide r f8 bf g ef c' a
        bf4 e, e e8 <f'>
        f ef e <g> g f fs <a>
        <g> cs, a \voiceThree c a[ c] \voiceTwo d[ <bf>]
        bf4. a8 <f>8. c16 d8 <c'>
        <bf> f f <c'> <c> fs, fs g
        c,16 d ef g f ef d ef d4 d
      }
      }{
        \relative c' {
          R1
          % Takt 6
          r4 d8 g fs d b' g
          a4~ a16 d, e fs g a b a g fs e g
          fs2 e
          d16 d e fs g2 <fs>8  \hide r
          q16 g16 fs16 e d c b c d8 d8 d 
          %\voiceThree 
          \change Staff = LH g,16 g \change Staff = RH \voiceTwo
          g'8 g8 r4 r2
          R1
          r4 e8 b' g e c' a
          b cs16 ds e8 b c a d a
          b g c g a16 b c b a g fs a
          g4 g4 r2
          R1
          r4 e8 a f d b' gs
          a4 e16 e f g a g f e d e f a
          g f e d c d e g f e d c b c d f
          e4 e8 a fs d~ d g
          e cs e fs g16 a b a g fs e g
          fs16 g a fs d8 a' fs d c' a
          b4 b, b8 b b'8 d~
          d g, a c~ c fs, gs b~
          b e, a2 g4~
          g16 fs g a b4~ b16 c d b c4~
          c16 b a c b4~ b16 a g fs g8. g16
          fs8 f16 \hide r d8 g e c a' fs
          g4 cs, cs cs8 <d'>
          d c cs <e> e d ds <fs>
          <e> as, fs \voiceThree a fs[ a] \voiceTwo b[ <g>]
          g4. fs8 <e>4 b8 <a'>
          <g> d d <a'> <a> b, b e
          a,16 b c e d c b c b4 b
        }
    }>>
    
  }
}

ClustersRightHandTwo_A = \relative c' {
  \key af \major
  \override Voice.ClusterSpanner.color = \colLightGreen
  \override Voice.ClusterSpanner.layer = #-2
  
  \makeClusters {
    
    s1
    s1
    s4 <f a>2 <e g>4
    <e g>16 <d f> \hide r8 s2.
    % Takt 5
    s1
    s1
    s1
    s1
    s1
    % Takt 10
    s1
    s1
    s1
    s1
    s1
    
    s1
    s1
    s1
    s1
    s1
    % Takt 20
    s1
    s1
    s1
    s1
    s1
    
    s1
    s1
    s1
    s1
    s1
    % Takt 30
    s2. s8 <b' a>
    <a f>8 \hide r8 s2.
    s2. <as f>8 <f e>
    <es d>4 d \hide r4
    
    
  }
}

ClustersRightHandTwo_B = \relative c' {
  \key af \major
  \override Voice.ClusterSpanner.color = \colLightOrange
  \override Voice.ClusterSpanner.layer = #-3
  \makeClusters {
    
    s1
    s1
    s1
    s1
    % Takt 5
    s1
    s1
    s1
    s1
    s2. <g' f>4
    
    % Takt 10
    <g f>16 a \hide r16
    
    
  }
}

ClustersRightHandTwo_C = \relative c' {
  \override MultiMeasureRest #'staff-position = #2
  R1*4
  \override Voice.ClusterSpanner.color = \colDarkOrange
  \override Voice.ClusterSpanner.layer = #-1
  \override MultiMeasureRest #'staff-position = # -2.0
  \makeClusters {
    R1
    % Takt 6
    r4 ef8 af g ef c' af
    bf8 b \hide r4 s2
    s1
    s1
    s1
    s1
    s1
    
    r4 f8 c' af f df' bf
    c8 \hide r s2.
    s1
    s1
    s1
    
    r4 f,8 bf gf ef c' a
    bf8 f \hide r4 s2
    s1
    s1
    s1
    s4 ef8 bf' g ef df' bf
    c4 \hide r4 s2
    s1
    s1
    s1
    s1
    s4 ef,8 af f df bf' g
    af4 \hide r4 s2
    
  }
}

LeftHandOne = \relative c {
  \clef "bass"
  \key af \major
  \balloonLengthOff
  r4 \colorSpan #-5 #10 \backColor
  <af'-\balloonText #'(-2 . 2) \markup {  \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colGreenLetter "Tenor [1]" "Dux"  } }
  >8
  ef' c af \voiceTwo \change Staff = RH f'  df^\markup {\box \bold \center-align "1. Durchführung (Exposition)"}  
  
  ef4~ ef16 df c df ef f g ef af bf c bf
  af g f af g2 f4~
  f16 ef d f ef4~ ef8 df16 c df f bf af
  g f ef df\glissando \voiceOne \change Staff = LH c bf c df ef4 af,
  g af16 bf c8 bf8. bf16 af8 c
  f, r8  r4  r2
  \voiceOne
  \override MultiMeasureRest #'staff-position = #7
  R1*2
  r4 <af-\balloonText #'(-2 . 2) \markup {  \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colGreenLetter "Tenor [2]" "Dux"  } }
  >8\startGroup ef' c af f' df
  ef4 ef2 df4~
  df4 c2 bf4~
  bf4 af8 g~ g16 bf af g f e f g
  af\stopGroup bf af g f8 r8 r2
  R1
  %\override MultiMeasureRest #'staff-position = #6
  R1
  r4 <bf-\balloonText #'(-2 . 3) \markup { \whiteout \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colGreenLetter "Tenor [3]" "Dux (var.)"  } }
  >8\startGroup f' df bf gf' ef
  f4 bf,2 a16 bf c a
  f8 bf16 c\stopGroup df2 c4~
  \oneVoice c4 bf2 a4
  bf16 ef df c bf af g f ef df' c bf af g f g
  af c bf af g f ef df c8 af' bf bf,
  ef4~ <ef>16\startGroup f g af bf c df c bf af g bf
  af ef f g af bf c df ef f gf f ef df c ef
  df ef f\stopGroup ef df c bf df c df ef df c bf a c
  bf c df c bf af g bf af bf af g f ef f df
  \voiceOne ef df c bf <af-\balloonText #'(2 . 5) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colBlueLetter "Bass [2]" "Dux" } }
  >8 r8 r2
  r4 <g'-\balloonText #'(-2 . 3) \markup {  \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colGreenLetter "Tenor [4]" "Dux (var.)"  } }
  >8 c8 af f d' b
  c16 ef, f g af bf c bf af g f g af g f ef
  \override Glissando #'breakable = ##t
  f ef df f ef8 r8 r4 r8 \change Staff = RH \voiceFour s
  \once \override Voice.NoteColumn #'force-hshift = #-0.7
  af'4 r8 \hideNotes d\glissando \unHideNotes
  \once \override Voice.NoteColumn #'force-hshift = #-0.7
  bf4 r8 s
  s r8 a,4\rest r8 \once \override Voice.NoteColumn #'force-hshift = #0.5 g' s4
  \once \override Voice.NoteColumn #'force-hshift = #0.5
  ef4 df s 
  g,8\rest s
  s g\rest a\rest s s f\rest \change Staff = LH \voiceOne 
  \override BalloonTextItem #'annotation-line = ##f
  \balloonGrobText #'Rest #'(-1 . 3) \markup {\box \bold "Coda"} 
  r bf
  bf4 ef, ef2
}

ClustersLeftHandOne = \relative c {
  \clef "bass"
  \key af \major
  \override Voice.ClusterSpanner.color = \colLightGreen
  \override Voice.ClusterSpanner.layer = #-2
  
  \makeClusters {
    <<
      {
        % Obere Begrenzung

        s4 bf'8 f' d bf \voiceTwo \change Staff = RH g' ef
        f4~ f16 ef d ef f g a f bf c d c
        bf a g bf a2 \hide r4
        g16 f e g f4~ f8 ef16 d ef g c bf
        a g f ef\glissando \voiceOne \change Staff = LH d c d ef f4 bf,8 bf
        a4 bf16 c d8 c8. c16 bf16 bf d16  \hide r
        g,8 g8 \hide r4 s2
        %\voiceOne
        s1
        s1
        s4 bf8 f' d bf g' ef
        f4 f2 ef4~
        ef4 d2 c4~
        c4 bf8 a~ a16 c bf a g fs g a
        bf c bf a g8 g8 \hide r2
        s1
        s1
        r4 c8 g' ef c af' f
        g4 c,2 b16 c d b
        g8 c16 d ef2 d4~
        \oneVoice d4 c2 b4
        c16 f ef d c bf a g f ef' d c bf a g a
        bf d c bf a g f ef d8 bf' c c,
        f4~ f16 g a bf c d ef d c bf a c
        bf f g a bf c d ef f g af g f ef d f
        ef f g f ef d c ef d ef f ef d c b d
        c d ef d c bf a c bf c bf a g f g ef
        \voiceOne f4 c16 c r8 r2
        r4 a'16 e' d8 bf g e' cs
        d16 f, g a bf c d c bf a g a bf a g f
        g f ef g f8 b8 b4 cs8 \change Staff = RH \voiceFour b'16 \hide r16
        \once \override Voice.NoteColumn #'force-hshift = #-0.7
        a4 e8 ds'
        \once \override Voice.NoteColumn #'force-hshift = #-0.7
        b4 es,8 es'
        cs8 es, cs4  cs8 gs'8 as8 \hide r % fs
        \once \override Voice.NoteColumn #'force-hshift = #0.5
        e4 d c g8 e'
        e8 a,8 b e e g,
        \change Staff = LH \voiceOne
        c8 c
        c4 f, f4 f

      }
      % Untere Begrenzung
      {

        s4 g8 d' b g \voiceTwo \change Staff = RH e' c
        d4~ d16 c b c d e fs d g a b a
        g fs e g fs2 \hide r4
        e16 d cs e d4~ d8 c16 b c e a g
        fs e d c\glissando \voiceOne \change Staff = LH c b b c d4 a8 b
        fs4 g16 a b8 b8. b16 a16 b b16  \hide r
        e,8 e8 \hide r4 s2
        %\voiceOne
        s1
        s1
        % Takt 10
        s4 g8 d' b g e' d
        d4 d2 c4~
        c4 b2 a4~
        a4 g8 fs~ fs16 a g fs e ds e fs
        g a g fs e8 e8 \hide r2
        s1
        s1
        r4 a8 e' c a f' d
        e4 a,2 gs16 a b gs
        e8 a16 b c2 b4~
        \oneVoice b4 a2 gs4
        a16 d c b a g fs e d c' b a g fs e fs
        g b a g fs e d c b8 g' a a,
        d4~ d16 e fs g a b c b a g fs a
        g d e fs g a b c d e f e d c b d
        c d e d c b a c b c d c b a gs b
        a b c b a g fs a g a g fs e d e c
        \voiceOne d4 a16 a r8 r2
        r4 fs'16 cs' b8 g e cs' as
        b16 d, e fs g a b a g fs e fs g fs e d
        e d c e d8 gs8 gs4 as8 \change Staff = RH \voiceFour a'
        \once \override Voice.NoteColumn #'force-hshift = #-0.7
        fs4 cs8 bs'
        \once \override Voice.NoteColumn #'force-hshift = #-0.7
        gs4 cs,8 cs'
        as8 cs, as4  as8 es'8 fs8 \hide r % ds
        \once \override Voice.NoteColumn #'force-hshift = #0.5
        d4 c b f8 d'
        d g,8 a d d f,
        \change Staff = LH \voiceOne
        a8 a
        a4 d, d4 d

      }
    >>


  }
}

ClustersLeftHandOne_A = \relative c' {
  \clef "bass"
  \key af \major
  \override Voice.ClusterSpanner.color = \colLightGreen
  \override Voice.ClusterSpanner.layer = #-2
  
  \makeClusters {
    s1
    s1
    s1
    s1
    s1
    
    s2. s8 <d b>
    <a g>16 <a f> q8 \hide r2
    
  }
}

ClustersLeftHandOne_C = \relative c {
  \clef "bass"
  \key af \major
  \override Voice.ClusterSpanner.color = \colDarkGreen
  \override Voice.ClusterSpanner.layer = #-1
  
  \makeClusters {
    
    s4 af'8 ef' c af \voiceTwo \change Staff = RH f' df
    ef4  \hide r4 s2 % df c df ef f g ef af bf c bf
    s1
    s1
    s1
    \change Staff = LH 
    s1
    s1
    s1
    s1
    
    s4 af,8 ef' c af f' df
    ef4 \hide r4 s2
    s1
    s1
    s1
    s1
    s1
    s4 b8 f' d b g' e
    f4 \hide r4 s2
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    
    \hide r4 g,16 d' c8 af16 af f8 d' b
    c16 \hide r16 s8 s2.
    
  }
}

LeftHandTwo = \relative c {

  \colorSpan #-5 #12 \backColor
  \voiceTwo
  << {R1} { s4 \hide r4\startGroup s2 }>>
  \balloonLengthOff
  \oneVoice
  r4 <ef-\balloonText #'(2 . 3) \markup { \center-align \override #'(baseline-skip . 0) \center-column { \bold \with-color \colBlueLetter "Bass [1]" "Comes" } }
  >8
  af g ef c' af
  bf ef, bf' g af ef af f
  g4~ g16 c, df ef f g af f bf c df c
  \voiceTwo bf af g bf af4~ af16 af, bf c df ef f ef
  df c bf df c8. d16 ef f g8~ g16 g f ef
  d\stopGroup bf c d ef4~ ef8 af d, bf'
  \voiceTwo ef,4~ ef16 ef f g af bf c bf af g f af
  g8 ef r16 af, bf c df ef f ef df c bf df
  \voiceTwo c4~ c16 df ef c f4~ f16 ef f df
  af' g af bf c8 g af f bf f
  g ef af ef f d g d
  e c d e f4 bf,
  f' r16 f, g af bf af g f ef f g bf
  \oneVoice af g f ef df ef f af g8 bf c c,
  f16 c' d e f4~ f8 bf e, c'
  \voiceTwo ef, a df,4 gf r8 gf16 f
  ef gf f ef df c bf df ef f gf ef f4
  bf, r4 r2
  s1*7
  r4 af8\startGroup
  ef' c af f' df
  ef4 e16 bf' af g f2
  c df
  af4~ af16 f g af bf c df ef df c bf af
  \oneVoice df c df\stopGroup f ef d c bf ef d ef g f e d c
  f g af f bf af g f ef df c bf af bf c df
  \override BalloonTextItem #'annotation-line = ##f
  \override BalloonTextItem #'layer = #3
  ef df c df ef8 ef, f4 \balloonGrobText #'Rest #'(0.1 . 4) \markup { \box \bold "6. Durchführung"} 
  r16\startGroup <ef-\tweak layer #2 -\balloonText #'(5 . 7) \markup { \with-color \backColor  \filled-box #'(-4.5 . -2.5) #'(3.5 . 6.8) #0.7 }
  > f g
  \override BalloonTextItem #'annotation-line = ##t
  af bf c ef df c bf af g\stopGroup f ef df c ef df f
  ef2 \voiceTwo af_\fermata
}

ClustersLeftHandTwo = {
  \override Voice.ClusterSpanner.color = \colLightBlue
  \override Voice.ClusterSpanner.layer = #-2
  \makeClusters {

    <<
      {
        
        \relative c {
  
          \voiceTwo
          s1
          s4 f8 bf a f d' bf
          c f, c' a bf f bf g
          a4~ a16 d, ef f g a bf g c d ef d
          \voiceTwo c bf a c    a16 f8.    a16 a32 c,16. d16     ef f g f
          ef d c ef    d8. e16    f g g16. e32     e16 g g f
          d c d e f4~ f8 bf e, c'
          \voiceTwo f,4~ f16 f g a bf c d c bf a g bf
          a8 f    a,16 bf c d     ef f g g     f e c ef
          \voiceTwo d4~ d16 ef f d g8 e g16 e f d
          bf' a bf c c8 a bf g b g
          a f a f g e g e
          fs8 d e e e16 f8. b,4
          f' a,16 g a bf c bf a g f g a c
          bf a g f ef f g bf a8 c d d,
          g16 d' e fs g4~ g8 c fs, d'
          \voiceTwo f, b ef,4 af a,8 af'16 g
          f af g f ef d c ef f g af f f4
          c c4 r2
          s1*7
          
          r4 bf16 bf f'8 d bf g' ef
          f4     e32 d b' b a16 g   f8 c4.
          c16 a a4. d8 b4.
          bf8 a   bf16 g a bf     c d ef f    f e c bf
          ef d ef g f e d c f e f a g fs e d
          g a bf g    c c b a    g f ef d     bf c d ef
          f ef d ef f8 f, g4 d'16 f, g a
          bf c d f ef d c bf a g f ef d f ef g
          f2 \voiceTwo bf4 bf
  
        }

      } {

        \relative c {
  
          \voiceTwo
          s1
          s4 d8 g fs d b' g
          a d, a' fs g d g e
          fs4~ fs16 b, c d e fs g e a b c b
          \voiceTwo a16 g fs a     f16 f8.    g16 a,32 a16. b16    c d e d
          c b a c    b8. cs16    d e fs16. e32     e16 fs e d
          cs a b cs d4~ d8 g cs, a'
          \voiceTwo d,4~     d16 d d e     g g b a     g fs e g
          fs8 d fs,16 g a b c d e d c b a c
          \voiceTwo b4~ b16 c d b e8 e e16 d e c
          g' fs g a b8 fs g e a e
          fs d g d e cs fs cs
          ds b cs ds e16 e8.  a,4
          e' fs,16 e fs g a g fs e d e fs a
          g fs e d c d e g fs8 a b b,
          e16 b' cs ds e4~ e8 a ds, b'
          \voiceTwo d, gs c,4 f fs,8 f'16 e
          d f e d c b a c d e f d e4
          a, a4 r2
          s1*7
          
          r4 f16 f d'8 b g e' c
          d4    ds32 d a' a32 g16 e     e8 b4.
          b16 g g4.  c8 a4.
          g8 f   g16 e fs g a b c d c b a g
          c b c e d cs b a d cs d fs e ds cs b
          e fs g e a g fs e d c b a g a b c
          d c b c d8 d, e4 b'16 d, e fs
          g a b d c b a g fs e d c b d c e
          d2 \voiceTwo f4 f

        }
      }
    >>
  }
}

ClustersLeftHandTwo_C = \relative c {
  \override Voice.ClusterSpanner.color = \colDarkBlue
  \override Voice.ClusterSpanner.layer = #-1
  \makeClusters {

    \voiceTwo
    s1
    s4 ef8 af g ef c' af
    bf \hide r8 s2.
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    s1
    
    s1*7
    r4 af,8 ef' c af f' df
    ef8. ef16 \hide r4 s2
  }
}


staffPiano = \new PianoStaff {
  \set PianoStaff.midiInstrument = #"acoustic grand"
  %\set PianoStaff.connectArpeggios = ##t
  <<
    \context Staff = "RH" {
      % Right hand
      %\set Staff.connectArpeggios = ##t
      <<
        \new Voice {\RightHandOne}
        \new Voice {\ClustersRightHandOne}
        \new Voice {\ClustersRightHandOne_C}
        \new Voice {\voiceTwo \RightHandTwo}
        \new Voice {\voiceTwo \ClustersRightHandTwo}
        \new Voice {\voiceTwo \ClustersRightHandTwo_A}
        \new Voice {\voiceTwo \ClustersRightHandTwo_B}
        \new Voice {\voiceTwo \ClustersRightHandTwo_C}
      >>
    }
    \context Staff = "LH" {
      % Left hand
      %\set Staff.connectArpeggios = ##t
      <<
        \new Voice {\voiceOne \LeftHandOne}
        \new Voice {\voiceOne \ClustersLeftHandOne}
        \new Voice {\voiceOne \ClustersLeftHandOne_A}
        \new Voice {\voiceOne \ClustersLeftHandOne_C}
        \new Voice {\LeftHandTwo}
        \new Voice {\ClustersLeftHandTwo}
        \new Voice {\ClustersLeftHandTwo_C}
      >>
    }
  >>
}



\score {
  <<
    \staffPiano
  >>

  \layout {
    \context {
      \Staff
      \override VerticalAxisGroup.default-staff-staff-spacing.minimum-distance = #10
      \consists Span_arpeggio_engraver
    }
    \context {
      \Score
      \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/8)
    }
    \context {
      \Voice
      \consists "Horizontal_bracket_engraver"
    }
  }
}