\version "2.20.0"
%\pointAndClickOff <= at the end

rhSpoprano = \fixed c' {
  | % mes.1
    R1
  | % mes.2
    d'4\rest d'8\rest b cis'4 d'16\rest fis gis ais
  | % mes.3
    b16 ais b cis' dis' e' fis' dis' b a b cis' b a b cis'
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}

rhAlto = \fixed c' {
  | % mes.1
    e4\rest e8\rest e fis4 e16\rest b, cis dis 
  | % mes.2
    e16 dis e fis gis a b gis e dis e fis e dis e fis
  | % mes.3
    dis16 cis dis e fis gis a fis gis8 \change Staff = "LH" \stemUp b, s4
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}  

lhAlto = {
  | % mes.1
    R1  
  | % mes.2
    R1 
  | % mes.3
    s2. e'4~
  | % mes.4
    1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}  


lhBasse = {
  | % mes.1
    s1  
  | % mes.2
    s1
  | % mes.3
    d2\rest b,4\rest b,8\rest e
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}

\paper {
  page-count = 2
  ragged-last-bottom = ##f
}

\header {
  title = "Das wohltemperierte Klavier I"
  piece = "Fuga IX"
  opus = "BWV 854"
  instrument = "Piano"
}

\score {
  \new PianoStaff <<
    \new Staff = RH <<
      \new Voice { \key e\major \voiceOne \rhSpoprano }
      \new Voice { \key e\major \voiceTwo \rhAlto }
    >>
    \new Staff = LH \with { \clef F } <<
      \new Voice { \key e\major \voiceOne \lhAlto }
      \new Voice { \key e\major \voiceTwo \lhBasse }
    >>
  >>
  \layout {
    system-count = 12
  }
  \midi {
    \tempo 4 = 108
  }
}