\version "2.12.0"


tempoMark =
    #(define-music-function (parser location prependText notevalue appendText) (string? string? string?)
        #{
            \mark \markup
            { \line { \fontsize #-2 \italic $prependText " (" \fontsize #-4 \general-align #Y #DOWN 
\note #$notevalue #1 \fontsize #-2 $appendText ) } }
        #})



RH = \relative c' {

%20

\time 5/4

b1 ~ b4



%21

\once \override Score.RehearsalMark #'self-alignment-X = #-1
\time 4/4 \tempoMark "sehr langsam" "8" "= 60"    


\once \override Staff.OttavaBracket #'padding = #4
\ottava #1

\times 2/3 { b'''8^\markup { \halign #-0.72 \italic "anzuschlagen wie Regentropfen" } \( c,8 
\ottava #0 r8 } 

\once \override Staff.OttavaBracket #'padding = #2

\ottava #1 es'4 

\change Staff = "LH"

r4

\change Staff = "RH"

es,4 \) \ottava #0


%22

\time 5/4

des,4 \( 
\once \override Staff.OttavaBracket #'dash-period = #-1 
\once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)

\ottava #1 fis'4 

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(5 . -1.5)

\ottava #2 as'4
\ottava #0 e,,2 ~ 



%23

e4 \) 

\once \override PhrasingSlur #'extra-offset = #'(0 . 2)

r4 \( g2 

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)

\ottava #2 d''4 \ottava #0



%24

\time 6/4

ces,,2 e,4 

\change Staff = "LH"

r4

\change Staff = "RH"

es'4 \ottava #2 

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(5 . -1.2)
\once \override Script #'padding = #4

d''4\fermata \)
\ottava #0

\bar "||"



%25

\once \override Score.RehearsalMark #'self-alignment-X = #-1
\time 7/4 \tempoMark "schneller" "4" "= 80"

r8 e,,16 (
as16-. ) r8 f,16-. d16-. r4 fis'4 ( des'4 ) bes,,16->-. r8. r4

}


LH = \relative c, {

\clef bass

%20

\time 5/4

d16_\markup { \italic "rubato, acc." } ( ges16-. ) es16-. c16-. 
e4\tenuto_\markup { \italic "a tempo" } \( 
\acciaccatura ces'16^\markup { \italic "r.h." } as,4 g'4 \) 
des16-. f,16_\markup { \italic "poco rit." } ( bes16 a16 )



%21

\time 4/4

\times 2/3 { r4 g'8 }

\ottava #-1

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)

d,4 \ottava #0 

\once \override Slur #'direction = #UP

\acciaccatura ges'16

\change Staff = "RH"

a''''4

\change Staff = "LH"

bes,,,4



%22

\time 5/4

r2 \times 2/3 { d,,8 e''8^\markup { \italic r.h. } as,,,8 }

g'4 \clef treble

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)

\ottava #2 des'''''4 \ottava #0



%23

\clef bass \ottava #-2

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)

a,,,,,,4\ppp \ottava #0

f''8 des''8^\markup { \italic "r.h." }

r2

as4



%24

\time 6/4

\clef bass

\ottava #-1

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)

fis,,4 \ottava #0 des''4 r4 

\once \override Slur #'direction = #UP

\acciaccatura g16

\change Staff = "RH"

c''4

\change Staff = "LH"

\once \override Staff.OttavaBracket #'dash-period = #-1
\once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)

\ottava #-1 c,,,,,4 \ottava #0 r4\fermata

\bar "||"



%25

\time 7/4

<ges''\harmonic d'\harmonic es\harmonic>1*7/4_\markup { \italic "stumm niederdrücken" } 


}





dynamics = {

%20
s4\p\< s4\!\mp s4\> s4\!\p s4

%21
s1

%22
s1 s4

%23
s4 s2.\p s4

%24
s1.

%25
s8 s8\mf s8 s8\mp s4 s2\mf s2\f

}

pedal = {

\set PianoStaff.pedalSustainStyle = #'bracket

%20
s4 s8\sustainOn s8\sustainOff s4 s4 s8.
\override Staff.SustainPedalLineSpanner #'staff-padding = #1
s16\sustainOn 
|
%21
s1

%22
s1 s4

%23
s1 s4

%24
s1.

%25
\override Staff.SustainPedalLineSpanner #'staff-padding = #5
s8 s8\sustainOff s4 s4 s4 s4 s4 s4\sustainOn

}



\score {

 \new PianoStaff <<
  \new Staff = "RH" << \RH >>
  \new Dynamics = "dynamics" \dynamics
  \new Staff = "LH" << \LH \pedal >>
>>

\layout {
  % define Dynamics context
  \context {
    \type "Engraver_group"
    \name Dynamics
    \alias Voice
    \consists "Output_property_engraver"
    \consists "Piano_pedal_engraver"
    \consists "Script_engraver"
    \consists "New_dynamic_engraver"
    \consists "Dynamic_align_engraver"
    \consists "Text_engraver"
    \consists "Skip_event_swallow_translator"
    \consists "Axis_group_engraver"

    pedalSustainStrings = #'("Ped." "*Ped." "*")
    pedalUnaCordaStrings = #'("una corda" "" "tre corde")

    \override DynamicLineSpanner #'Y-offset = #0
    \override TextScript #'font-size = #2
    \override TextScript #'font-shape = #'italic
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    \consists "Text_spanner_engraver"    


}

    \context {
     \PianoStaff
     \accepts Dynamics
     
     \override TupletBracket #'bracket-visibility = ##f

  
    }
  }
}

\score {
 \new PianoStaff <<
  \new Staff = "RH" << \RH \dynamics >>
  \new Staff = "LH" << \LH \dynamics >>
  \new Dynamics = "pedal" \pedal
>>

\midi {
 \context {
  \type "Performer_group"
   \name Dynamics
   \consists "Piano_pedal_performer" 
   }

 }


}

\paper {

paper-height = 28\cm
ragged-last = ##t

}