\version "2.18.2"
\header {
  tagline = ##f
}

Dux   = { r4 r8-\markup{Dux}  cis8 a fis d'4~ d8 cis16 b cis4~ cis8 fis b,4~  b8 a16 gis a8 fis gis2\trill }
Comes = { r4 r8-\markup{Comes} fis8 e cis a'4~ a8 gis16 fis gis4~ gis8 cis fis,4~ fis8 e16 dis e8 cis dis2 }

upper = \relative c' {
  \clef treble 
  \key fis \minor
  \time 4/4
  \tempo 4 = 84
  \set Staff.midiInstrument = #"harpsichord" 

   %% FUGUE CBT II-14, BWV 883, fa-dièse mineur
   R1*3 \Comes 
   << { cis8 cis' fis,4_~ fis8 b e,4_~ e8 a4 gis fis eis8 fis4 r8  b8 gis e r8 a | fis dis r8 gis eis cis fis4~ | fis eis fis8 a b d r8 gis, a cis r8 fis,16 gis gis8.\trill fis32 gis a4 r8 dis bis gis r8 cis | fis4 dis gis8 e fis a r8 } \\ { s4*6 \relative c' { a4 gis | fis r4 s4*3 d'8 b gis4 r8 a8 b d r8 gis, a cis s4*3 d4 s4 | e8 cis dis fis } } >>
   
}

lower = \relative c' {
  \clef bass 
  \key fis \minor
  \time 4/4
  \set Staff.midiInstrument = #"harpsichord" 

   << { \Dux fis8 gis a b cis4 r8 dis8 e4 r8 e8 ais,4 r8 bis8 cis4 r8  \tag #'midi { s4 } \tag #'part { cis8~ cis } bis16 ais bis8 gis | e'4. a,8 d4. gis,8 | cis4 b s4*4 r4 e,4  a s4*6 r8 fis8 gis b r8 a8 s4 b4 s4*2 r8 bis8 cis e | r8 ais,16 bis bis8.\trill ais32 bis cis4 r8 fis d b } \\ { s1*7 s2 \relative c { \Dux fis4 d'~ | d cis b r8 e8 | cis a fis'2 e4 | dis r8 gis8 e cis a'4~ a } } >>
   
} 

\score {
  \new PianoStaff <<
    \set PianoStaff.instrumentName = #"BWV 883"
    \new Staff = "upper" \upper
    \new Staff = "lower" \keepWithTag #'part \lower 
  >>
  \layout {
    \context {
      \Score
      \remove "Metronome_mark_engraver"
      \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/2) 
    }
  }
}

\score {
  << \upper \\ \keepWithTag #'midi \lower >>
  \midi { }
}