\version "2.12"
\include "deutsch.ly"

rhA= \transpose c c' { 
  \mark \markup "A"
  \hideNotes
  \voiceTwo
  g,1*1/8^( 
  \unHideNotes
  \oneVoice
  r4*1/2
  \voiceOne
  \set tieWaitForNote = ##t 
  g16 ~ h16 ~ e'16 ~ c'16 ~ <g h e' c'>2) |
}

lhA = {
  \oneVoice
  \set tieWaitForNote = ##t 
  cis,16 _(~ as,16 ~ f16 ~ c'16 ~ <cis, as, f c'>2.*1/3 
  \change Staff = upper
 \voiceThree
  \hideNotes
  c'1*1/2) |
  \unHideNotes
  \change Staff = lower
}

rhB = \transpose c c' {
  \mark \markup "B"
  \hideNotes
  \change Staff = lower
  \voiceTwo
  g,4^( 
  \unHideNotes
  \change Staff = upper
  \voiceOne
  \set tieWaitForNote = ##t 
  g16 ~ h16 ~ e'16 ~ c'16 ~ <g h e' c'>2) |
}

rhBrest = { \oneVoice r4 s2. }

lhB = { 
  \oneVoice
  \set tieWaitForNote = ##t 
  cis,16_( ~ as,16 ~ f16 ~ c'16 ~ <cis, as, f c'>2.*1/3 
  \change Staff = upper
 \voiceThree
  \hideNotes
  c'2) |
  \unHideNotes
  \change Staff = lower
}

\score { \new PianoStaff <<
    \new Staff=upper { 
     s1 
     \rhA  
     s1 
     << \rhB \\ \rhBrest >>
     s1 
    }
    \new Staff=lower { \clef bass 
     s1 
     \lhA  
    s1 
     \lhB  
     s1 
    }
  >> 
}