\version "2.11.39"

\header {
  tagline = ##f
  title = \markup { \fontsize #2 "Sonata no.1" }
  composer = \markup \center-align { \fontsize #3 \bold "Hu Haipeng" \small "(1984)" }
  copyright = "© 2008, All Rights Reserved"
}

  stu = { \change Staff = upper }
  stl = { \change Staff = lower }

  upper = \relative c''' {
    \clef treble \key d \minor \time 4/4 \tempo 4=92
    \showStaffSwitch
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    <f d a f>8->\(^\markup { \bold \italic "Ad libtum" } <f d a f>-> <f d a f>4-> <d a f d>16 <f d a f>8.-> ~ <f d a f>4\) |
    <d,, a f>8\( <f d a f>4. ~ <f d a f>2\) |
    <f'' d bes f>8->\( <g d bes g>-> <d bes f d>-> <f d bes f>-> <f d bes f>16 <g g,> <f d bes f>4.->\) |
    <d,, bes f>8\( <f d bes f>4. ~ <f d bes f>2\) |
    \clef bass
    r2^\markup { \italic "Riten." }
      \textSpannerUp
      \override TextSpanner #'bound-details #'left #'text =
      \markup { \bold \italic "Accel poco a poco" }
      \times 2/3 { e,8\(\startTextSpan e e } \times 2/3 { e d c\) } |
    \time 6/4
    <<
      { \times 2/3 { e'8\( e e e d c\) } } \\
      { \times 2/3 { a8 a g } e4 }
    >>
      \clef treble
      \times 2/3 { <e'' a, e>8\( <e a, e> <e a, e> <e a, e> <d d,> <c c,>\) <e' c a e>\( <e c a e> <e c a e>\stopTextSpan <e c a e>^\markup { \italic "Rit." } <d d,> <c c,>\) } |
    \time 4/4
    #(set-octavation 1)
    \times 2/3 { <e' c a e>-- <e c a e> <e c a e> <e c a e> <d d,> <c c,> <c c,> <a a,> <e e,> <e e,> <d d,> <c c,> } |
    #(set-octavation 0)
    \times 2/3 { <c c,> <a a,> <e e,> <e e,> <d d,> <c c,>^\markup { \bold \italic "Allargando" } <c c,> <a a,> <e e,> \clef bass <e e,>---> <d d,>---> <c c,>---> } |
    \tempo 4=120 <d a f d>4--->\fermata^\markup { \bold \italic "Allegro con brio" } r4 r2 | \clef treble R1 |
    <f'' d a f>8->\(\f <f d a f>-> <f d a f>4-> <d a f d>16 <f d a f>8.-> ~ <f d a f>4\) |
    <d,, a f>16\(\mf <f d a f>8. ~ <f d a f>2.\) |
    <a' f d a>8->\(\f <d a f d> <d a f d> <a f d a> <a f d a>-> <g' d a-1 g-1>16 <f d a f>-> ~ <f d a f>4\) |
    <g,, d a>16\(\mf <f d a>8. ~ <f d a>2.\) |
    <f'' d bes f>8->\(\f <g d bes g>-> <d bes f d>-> <f d bes f>-> <f d bes f>16 <g g,> <f d bes f>4.->\) |
    <g,, d bes g>16\(\mf <f d bes f>8. ~ <f d bes f>4 ~ <f d bes f>8\) g,32(\p\< bes d f g bes d f g bes d f) |
    <g d bes g>8.-^\(\!\f <g d bes g>16 <g d bes g>4 ~ <g d bes g>4 <f f,>8 <d d,> |
    <d a e-1 d-1>4 \grace { <e e,>16[ <d d,>] } <c a e c>2.\) |
    <a e c a>4\< <a' e c a>2-^\! ~ <a e c a>8. <c c,>16 |
    <c, a e c>4-> <a e c a>-> <c a e c>-> \afterGrace <f c a f>-> { <g g,>16[ <f f,>] } |
    <d a f d>1-> | R1 |
    <f,, d a>8\( <f d a> <f d a>4 <d a f>16 <f d a>8. ~ <f d a>4\) |
    \time 6/4 <d'' a f d>8\( <f d a f> \times 2/3 { <f d a f>8 <d d,> <c c,> } <d a f d>8 <f d a f>8^\trill ~ <f d a f>4 ~ <f d a f>2\) |
  }

  lower = \relative c {
    \clef bass \key d \minor \time 4/4
    \showStaffSwitch
    <f a d f>8->\( <f a d f>-> <f a d f>4-> <d f a d>16 <f a d f>8.-> ~ <f a d f>4\) |
    <d, a' d>8 <a' d>4. ~ <a d>2 |
    <f' bes d f>8->\( <g bes d g>-> <d f bes d>-> <f bes d f>-> <f bes d f>16 <g g'> <f bes d f>4.->\) |
    <bes,, f' bes>8 <f' bes>4. ~ <f bes>2 |
    \times 2/3 { e8\( e e } \times 2/3 { e d c\) } a4 c |
    <e a> <g c> <a e' a> <c g' c> <e a c e> \clef treble <a c e a> |
    \times 2/3 { <e' a c e>8-- <e a c e> <e a c e> <e a c e> <d d'> <c c'> <c c'> <a a'> <e e'> \clef bass <e e'> <d d'> <c c'> } |
    \times 2/3 { <c c'> <a a'> <e e'> <e e'> <d d'> <c c'> #(set-octavation -1) <c c'> <a a'> <e e'> <e e,>---> <d d,>---> <c c,>---> } |
    <d d'>16--->\fermata #(set-octavation 0) a'' f'-1 g-3 a-2 d-1 f-3 g a g f d a g f d |
    <d, a'> d' f g a d f g a g f d a g f d |
    <d, a'> d' f g a d f g a g f d a g f d |
    <d, a'> d' f g a g f d <d, a'> d' f g a g f d |
    <d, a'> d' f g a d f g a g f d a g f d |
    <d, a'> d' f g a g f d <d, a'> d' f g a g f d |
    <bes, f'> bes' d f g bes d f g f d bes g f d bes |
    <bes, f'> bes' d f g f d bes <bes, f'> bes' d f g f d bes |
    <bes, g'> bes' d f g bes d f g f d bes g f d bes |
    <a, e'> a' c d e a c d e d c a e d c a |
    <a, e'>(\< a' c d e a c d \clef treble e a c d e a)\! r <c,, c'> |
    <a c e a>4-> \clef bass <e a c e>-> <a, e' a>-> <a, a'>-> |
    <d a'>16 d' f g a d f g a g f d a g f d |
    <d, a'> d' f g a d f g a g f d a g f d |
    <d, a'> d' f g a g f d a d f g a g f d |
    <d, a'> d' f g a d f g a g f d a g f d a d f g a g f d |
  }

  dynamics = {
    s1\f s1\mf s1\f s1\mf
    s2\pp s2\cresc s1.
    s1\!\ff s1 s1\> s1
    s1*6\!\mp s1\f s1 s1\ff s1 s1\> s1
    s1\!\p s1.\f
  }
  pedal = {
    s1\sustainDown s1\sustainDown
    s2\sustainDown s8\sustainDown s4.\sustainDown s1\sustainDown
    s1 s1. s1 s1
    s1\sustainDown s1\sustainDown
    s1\sustainDown s2\sustainDown s2\sustainDown
    s1\sustainDown s2\sustainDown s2\sustainDown
    s1\sustainDown s2\sustainDown s2\sustainDown
    s1\sustainDown s4\sustainDown s2.\sustainDown
    s2.\sustainDown s8\sustainUp s16 s16\sustainDown s2\sustainDown s4\sustainDown s4\sustainDown
    s1\sustainDown s2.\sustainDown s8. s16\sustainUp
    s1 s1.
  }

  \score {
    \new PianoStaff <<
    \set PianoStaff.connectArpeggios = ##t
      \new Staff = "upper" \upper
      \new Dynamics = "dynamics" \dynamics
      \new Staff = "lower" <<
        \clef bass
        \lower
      >>
      \new Dynamics = "pedal" \pedal
    >>
    \layout {
      \context {
        \type "Engraver_group"
        \name Dynamics
        \alias Voice % So that \cresc works, for example.
        \consists "Output_property_engraver"
        \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \override DynamicLineSpanner #'Y-offset = #0
        pedalSustainStrings = #'("Ped." "*Ped." "*")
        pedalUnaCordaStrings = #'("una corda" "" "tre corde")
        \consists "Piano_pedal_engraver"
        \consists "Script_engraver"
        \consists "Dynamic_engraver"
        \consists "Text_engraver"
        \override TextScript #'font-size = #2
        \override TextScript #'font-shape = #'italic
        \consists "Skip_event_swallow_translator"
        \consists "Axis_group_engraver"
      }
      \context {
        \PianoStaff
        \accepts Dynamics
      }
    }
  }

  \score {
    \new PianoStaff <<
      \new Staff = "upper" << \upper \dynamics >>
      \new Staff = "lower" << \lower \dynamics >>
      \new Dynamics = "pedal" \pedal
    >>
    \midi {
      \context {
        \type "Performer_group"
        \name Dynamics
        \consists "Piano_pedal_performer"
      }
      \context {
        \PianoStaff
        \accepts Dynamics
      }
    }
  }