\version "2.17.97"
\language "deutsch"

sOf = \sustainOff
sOn = \sustainOn

rhMvtIB = {
  \time 3/4
  \override TupletBracket.bracket-visibility = ##t
  \autochange \relative c'' { 
    \tuplet 3/2 { h8\( c16 h ais h\) }
    \tuplet 6/4 { h16 <g, g,> <h' c> <g, g,> <h' d> <g, g,> }
    \tuplet 3/2 { dis''8\( e16 dis cis dis\) } |
    % BAR 2
    \tuplet 6/4 { e16 <d,, d,> <e'' f> <d,, d,> <e'' g> <d,, d,> }
    \tuplet 3/2 { a'''8\( b16 a gis a\) }
    \tuplet 6/4 { \absolute { h''16 <h, h,,> <h'' a''> <b, b,,> <h'' d'''> <a, a,,> } } |
    % BAR 3
    \tuplet 6/4 4 { 
      \absolute {
        <e'' e'''>16 <fis fis,> <d'' d'''> <fis fis,> <c'' c'''> <fis fis,>
        <h' h''> <fis fis,> <a' a''> <fis fis,> <g' g''> <fis fis,>
      }
    } e4\trill |
  }|
  % BAR 4
  \tuplet 3/2 4 {
    \relative c'' {
      <e e'>8-. r r <d d'>8-. r r h'8-. c-. a-. |
    }
  }
}

lhMvtIB = \relative c {
  \override TupletBracket.bracket-visibility = ##t
  \clef bass
  \time 3/4
  \tuplet 3/2 { <h h'>8[ r q] } s4 \once\stemDown \tuplet 3/2 { <g g'>8[ r q] } |
  s4\< \tuplet 3/2 { <c c'>8[ r q] } s4 |
  s2\f g4\glissando |
  \tuplet 3/2 4 { 
    g,8 b des fis a c es g des |
  } 
}

dynMvtIB = {
  s2.\p | s2. | s2. | s2.
}

\score {
  \new PianoStaff <<
    \accidentalStyle Score.piano-cautionary
    \new Staff = "up" <<
      \rhMvtIB
    >>
    \new Dynamics { \dynMvtIB }
    \new Staff = "down" {\lhMvtIB }
  >>
  \layout {
    \context {
      \Score
      \override StaffGrouper.staff-staff-spacing.basic-distance = #15
    }
  }
}