\version "2.12.0"

\header {

 title = "Variationen"
 composer = "Stefan Kägi"
 tagline = ""
 
}

fixA = {
  \once \override Stem #'length = #9
  \once \override Accidental #'extra-offset = #'(0.3 . 0)
}
fixB = {
 
  \once \override NoteHead #'extra-offset = #'(1.7 . 0)
  \once \override Stem #'rotation = #'(45 0 0)
  \once \override Stem #'extra-offset = #'(-0.2 . -0.2)
  \once \override Stem #'flag-style = #'no-flag

}


tsa = \markup {
   \override #'(baseline-skip . 0)
   \column {
     \concat {
       \number 5 } \number 4
   }
}


RH = \relative c' {

#(set-accidental-style 'dodecaphonic)

\clef treble

\once \override Staff.TimeSignature #'style = #'default
\once \override Staff.TimeSignature #'stencil = #(lambda (grob)
    (grob-interpret-markup grob tsa))

\time 4/4

r4^\markup { \italic "freies Tempo (Rep. mit beiden Händen spielen)" }

\cadenzaOn

\once \override Beam #'grow-direction = #RIGHT
as64
( [ as as as as as as as as as as as as ] )

\cadenzaOff

r4

<< 
   { \fixA <d fis>4^\markup { \italic "rit." }
     \( <a bes d fis>4 <a bes d fis>4 \) } \\ 
   { \voiceThree \fixB 
     \once \override Accidental #'extra-offset = #'(4.1 . 0) des4 
     \fixB \once \override Accidental #'extra-offset = #'(5.1 . 0) des4 
     \fixB \once \override Accidental #'extra-offset = #'(5.1 . 0) des4 } \\
>>

}


LH = \relative c, {

#(set-accidental-style 'dodecaphonic)

\clef bass
\time 7/4

\once \override Staff.TimeSignature #'style = #'default
\once \override Staff.TimeSignature #'stencil = #(lambda (grob)
  (grob-interpret-markup grob tsa))

\time 4/4

\ottava #-1

<<
  { e,4\tenuto \( \ottava #0 

    \cadenzaOn

    \once \override Beam #'grow-direction = #RIGHT
     s64 s s s s s s s s s s s s

    \cadenzaOff
    f''1\tenuto \) } \\
  { s4 
    \cadenzaOn

    \once \override Beam #'grow-direction = #RIGHT
     s64 s s s s s s s s s s s s

    \cadenzaOff

    r2. <g, es'>4 } \\
>>

}


dynamics = {

%30
s4\mf \cadenzaOn 
\once \override Beam #'grow-direction = #RIGHT 
s64\pp\< s s s s s s s s s s s s 
\cadenzaOff s1\!\mp

}


pedal = {

\set PianoStaff.pedalSustainStyle = #'bracket

%30
s4\sustainOn \cadenzaOn 
\once \override Beam #'grow-direction = #RIGHT s64 s s s s s s s s s s s s
\cadenzaOff 
s1\sustainOff\sustainOn

}


\score {

 \new PianoStaff <<
  %\set PianoStaff.instrumentName = "Piano   "
  \new Staff = "RH" \RH
  \new Dynamics = "dynamics" \dynamics
  \new Staff = "LH" << \LH >>
  \new Dynamics = "pedal" \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
%     \override TupletNumber #'stencil = ##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

}