more piano sonata

piano-sonata.ly

@@ -192,6 +192,47 @@ global = {
   <cs fs gs cs>8. <cs ds gs cs>16 q8 <cs es gs cs>4. |
   <cs,, cs'>8. <cs' cs'>16 <fs fs'>8 <gs gs'>4. |
 
+  fs''16 a cs, a fs a cs, a fs a cs, a |
+  \clef treble a'''16 gs fs cs a gs fs cs \clef bass a gs fs cs |
+
+  \repeat unfold 3 { fs'16-> a cs, a } |
+  \ottava #-1  \repeat unfold 6 { fs,,16 fs' } |
+
+  \repeat unfold 3 { e'16-> gs cs, b } |
+  \repeat unfold 6 { e,16 e' } |
+
+  \repeat unfold 3 { ds16-> fs b, a } |
+  \repeat unfold 6 { ds,16 ds' } |
+
+  d!16-> e b gs \repeat unfold 2 { d'16-> e b gs  } |
+  d,!16 d'! \repeat unfold 5 { d,16 d' } |
+
+  \clef bass r16^"Agitato" cs, gs es d' fs, r cs' gs es d' fs, |
+  <cs, cs'>4 <d d'>8( <cs cs'>4) <bs bs'>8( |
+
+  \repeat unfold 2 { r16 cs' gs es d' fs, } |
+  <cs cs'>4) <d d'>8( <cs cs'>4) <d d'>8( |
+
+  \repeat unfold 2 { r16 ds' as fss e' gs, } |
+  <ds ds'>4) <e e'>8( <ds ds'>4) <css css'>8( |
+
+  \repeat unfold 2 { r16 ds' as fss e' gs, } |
+  <ds ds'>4) <e e'>8( <ds ds'>4) <e e'>8( |
+
+  \repeat unfold 2 { r16 fs' cs as g' b, } |
+  <fs fs'>4) <g! g'!>8( <fs fs'>4) <es es'>8( |
+
+  \repeat unfold 2 { r16 fs' cs as g' b, } |
+  <fs fs'>4) <g g'>8( <fs fs'>4) <g g'>8( |
+
+  r16 a' e cs \times 2/3 { a     cs e } \times 6/9 { a cs e a e cs a cs e } |
+  <a a'>4)    \ottava #0 \times 2/3 { cs16 e  a } \times 6/9 { cs e a cs a e cs e a } |
+
+  \clef treble \times 6/9 { a cs e a e cs a cs e } \ottava #1 \times 6/9 { a cs e a e cs a cs e } |
+  \clef treble \times 6/9 { cs e a cs a e cs e a } \times 6/9 { cs e a cs a e cs e a } |
+
+  \times 2/3 { a cs e } a4 \ottava #0 r4. |
+  \ottava #1 \times 2/3 { cs16 e a } cs4 \ottava #0 r4. |
 }
 
 \score {