\version "2.13.6"

#(ly:set-option 'point-and-click #f)

\header {
  tagline = ##f
  title = \markup { \bold Prelude }
  subtitle = \markup { \italic \fontsize #-1 { For Two Broken Souls } }
  composer = \markup { \bold { Hu Haipeng } }
  date = "March 20, 2004"
  copyright = "2004, All Rights Reserved"
}

#(define-markup-list-command (paragraph layout props args) (markup-list?)
  (let ((indent (chain-assoc-get 'par-indent props 2)))
  (interpret-markup-list layout props
  (make-justified-lines-markup-list (cons (make-hspace-markup indent)
  args)))))

\markuplines {
  \paragraph {
    This piece was written during March 19-20, 2004, dedicated to my ex-girlfriend. It''s a tragical lovesong, after 5 years' stop of composition.
  }
  \override-lines #'(par-indent . 4) \paragraph {
    About the recording: This was made on April 17 of the same year, with a storm recorded later (in the evening of 29) preceded by.
  }
}

  upper = \relative c'' {
    \clef treble \key b \minor \time 3/4
    \tempo \markup { \bold \italic "Larghetta elegiaco" }
    \times 2/3 { b8\( e fis } b,4. b8 |
    \times 2/3 { a8 b a } fis2\) |
    <<
      { e8\(\arpeggio b' a fis e\arpeggio d |
        fis2.\)\arpeggio } \\
      { <b, g>2\arpeggio s4 |
        r8 d(\p\< b a fis_"M'S" a)\! }
    >> |
  %5
    \times 2/3 { b'8\( e fis } b,4. b8 |
    \times 2/3 { a8 b a } fis2\) |
    <<
      { e8\(\arpeggio a fis d e8.\arpeggio b16 |
        b2.\)\arpeggio } \\
      { b2\arpeggio a4\arpeggio |
        fis2.\arpeggio }
    >> |
  %9
    <<
      { \times 2/3 { fis8\(\arpeggio a b } d4. d8 |
        \times 2/3 { e8 d e } fis2\)\arpeggio |
        \times 2/3 { fis,8\(\arpeggio a b } d4. d8 |
        \times 2/3 { e8 b' a } fis2\)\arpeggio } \\
      { fis,2\arpeggio <b fis>4 |
        <cis g>4 <d fis,>2\arpeggio |
        fis,2\arpeggio <b fis>4 |
        <cis g>4 <d fis,>2\arpeggio } \\
      { s2. | \voiceFour r2 <a'' fis a,>4\pp |
        s2. e4\rest e8\rest e16\rest e32\rest <a fis a,>32\p <a fis a,>4 }
    >> |
  %13
    \times 2/3 { <fis, d a>8\(\arpeggio <a a,> <b b,> } <d b fis d>4.\arpeggio <d d,>8 |
    \times 2/3 { <e b g e>8\arpeggio <d d,> <e e,> } <fis cis ais fis>4.\arpeggio <fis fis,>8 |
    \times 2/3 { <g e b g>8\arpeggio <fis fis,> <g g,> } <a fis d a>4\arpeggio ~ \times 2/3 { <a fis d a>8 <fis fis,>-- <a a,>-- } |
  %16
    <b fis dis b a>2->\)^\markup { \bold \italic "Con fuoco" } \times 2/3 { <a a,>8\( <fis fis,> <a a,> } |
    <b fis dis b a>2->\) \times 2/3 { <a a,>8\( <fis fis,> <a a,> } |
    <b fis dis b a>4-> ~ \times 2/3 { <b fis dis b a>8\)^\markup { \bold \italic "Molto rit." } <e, e,>( <fis fis,> } \times 2/3 { <a a,> <b b,> <d d,>) } |
  %19
    \times 2/3 { <e b g e>\(^\markup { \column { \bold \italic "Appassionato" \bold \italic "A tempo" } } <fis fis,> <d d,> } <b fis d b>4. <b b,>8 |
    \times 2/3 { <a e a,>8 <b b,> <a a,> } <fis dis b a fis>2\) |
    <e b e,>8\( <b' b,> <a a,> <fis fis,> <e cis a g e> <d d,> |
    <fis d a fis>2.\) |
    \times 2/3 { <b fis b,>8\( <e e,> <fis fis,> } <b, fis dis b a>4. <b b,>8 |
    \times 2/3 { <a e a,>8 <b b,> <a a,> } <fis dis c a fis>2\) |
  %25
    \times 2/3 { <e b e,>8\( <d d,> <e e,> } <fis cis a fis>4 ~ \times 2/3 { <fis cis a fis>8 <e e,> <fis fis,> } |
    \times 2/3 { <a e cis a>^\markup { \bold \italic "Accel." } <fis fis,> <a a,> } <b fis d b>4 ~ \times 2/3 { <b fis d b>8 <a a,> <b b,> } |
    \times 2/3 { <d b fis d> <b b,> <d d,> } <e b g e>4 ~ \times 2/3 { <e b g e>8 <d d,> <e e,> } |
    \times 2/3 { <fis cis a fis> <e e,> <fis fis,> } <a fis d a>4^\markup { \bold \italic "Rit." } ~ \times 2/3 { <a fis d a>8 <fis fis,>-> <a a,>-> } |
    <b gis eis d b>16->^\markup { \bold \italic "Con forza, patetico" } <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> <b gis eis d b>-> |
    <b gis eis d b>8-.->\) r8 r4 r4 |
  %31
  \time 4/4
    r2^\markup { \bold \italic "Languido" } r8 b,,,\(\mp d e |
    fis4. a8 fis4. e8 |
    cis4--\)^\markup { \bold \italic "Rit." } r \clef bass <a fis cis> r\fermata |
  %34
  \time 3/4
    <b fis d>^\markup { \bold \italic "Malinconia" } r r |
    <<
      { \times 2/3 { b8\( e fis } b,4. b8 |
        \times 2/3 { a fis a } b2\) |
        \times 2/3 { b8\( e fis } b,4. b8 |
        \times 2/3 { a8 fis a } b2\) |
        \times 2/3 { a8\( fis a } b2\) |
        \times 2/3 { a8\( fis a } b2\) |
        a2.->\(^\markup { \bold \italic "Flebile" } | fis |
        b\)^\markup { \bold \italic "Pesante" } | b | b ~ | b\verylongfermata } \\
      { <g e>4 <fis d>2 |
        <e cis>4 <fis d>2 |
        <gis e>4 <fis d>2 |
        <e c>4 <fis d>2 |
        <e c>4 <fis d>2 |
        <e c>4 <fis d>2 |
        <e c>2.-> ~ | <e c>
        <fis d>2. | <fis d b> | <fis d b> ~ | <fis d b>\verylongfermata }
    >> \bar "|."
  }

  lower = \relative c' {
    \clef bass \key b \minor \time 3/4
    <<
      { fis4 d fis |
        e <dis b>2 } \\
      { d8( cis b2) |
        cis8( b a4) b, }
   >> |
    <e, b' e>2\arpeggio <a cis g'>4\arpeggio |
    <d, a' d>2\arpeggio r4 |
  %5
    <<
      { fis''4 d fis |
        e <dis c>2 } \\
      { d8( cis b2) |
        c8( b a4) b, }
    >> |
    <g e'>2\arpeggio <fis cis'>4\arpeggio |
    <<
      { r8 a'(\>^"M.D" fis d b^"M.S" a)\! } \\
      { \voiceThree <b d>2\arpeggio r4 }
    >> |
  %9
    <d, a' d>2\arpeggio <b b'>4 |
    <a a'> <d a' d>2 |
    <d a' d>2\arpeggio <b b'>4 |
    <a a'> <d a' d>2\arpeggio |
  %13
    <d a' d>8\arpeggio cis' <b fis' b>4\arpeggio <a a'> |
    <g b e g>\arpeggio <fis ais cis fis>\arpeggio <f f'> |
    <e g b e>\arpeggio <d fis a d>\arpeggio <c c'>-- |
  %16
    \times 4/6 { <b b'>8-> dis16 fis a b } \times 4/6 { dis fis a b dis fis } <c e fis>4-> |
    \times 4/6 { <b,, b'>8-> dis16 fis a b } \times 4/6 { dis fis a b dis fis } <c e fis>4-> |
  \set tupletSpannerDuration = #(ly:make-moment 1 4)
    \times 2/3 { <b,, b'>8-> <c' c'> <b b'> <bes bes'> <a a'> <gis gis'> <g g'> <fis fis'> <f f'> } |
  %19
    <e e'>8 <g' b e> <d, d'> <fis' b d> <fis b d> <fis b d> |
    <cis, cis'> <e' a e'> <b, b'> <fis'' a b dis> <fis a b dis> <fis a b dis> |
    <g,, g'> <e'' b' e> <e b' e> <e b' e> <a,, a'> <e'' g a> |
    <d,, d'> <d'' d'>\< <b b'> <a a'> <fis fis'> <e e'>\! |
    <d d'> <cis cis'> <b b'> <fis'' a b dis> <fis a b dis> <fis a b dis> |
    <c, c'> <b b'> <a a'> <fis'' a c dis> <fis a c dis> <fis a c dis> |
    <g, g'> <g' b> <fis, fis'> <fis' a cis> <fis a cis> <fis a cis> |
    <e, e'> <fis' a cis> <d, d'> <fis' b d> <fis b d> <cis, cis'> |
    <b b'> <a a'> <g g'> <e'' g b e> <e g b e> <e g b e> | 
    <fis,, fis'> <e e'> <d d'> <d'' fis a d> <d fis a d> <c,, c'>-> |
    <b b'>16-> <d d'>-> <eis eis'>-> <gis gis'>-> <b b'>-> <d d'>-> <eis eis'>-> <gis gis'>-> <b b'>-> <d d'>-> \clef treble <eis eis'>-> <gis gis'>-> |
    <b d eis gis b>8-.-> r8 r4 r4 |
  %31
    \clef bass <fis,, fis>8-. b'\( d e fis2\)
    r8 b,(\( d e fis) a( b a |
    fis4--)\) r <fis,, fis'> r\fermata |
  %34
    \repeat tremolo 12 { b,32 b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b, b' } |
    \repeat tremolo 12 { b,-> b' } |
    \repeat tremolo 12 { b, b'~ } |
    <b, b'>2. | <b b'> | <b b'> ~ | <b b'>\verylongfermata \bar "|."
  }

  dynamics = {
    s2.\mf s2.*5 s2.\mp s2.
  %9
    s2.\p\< s2\! s4 s2.\mp\< s2\! s4
  %13
    \crescTextCresc s2.\mf\< s2. s2.^"rit."
  %16
    s2.^\sf s2.\sf
    \times 2/3 { s8 s8\< s8 } s4 s4\!
  %19
    s2.\ff s2.
    s2.\mp\< s2.
    s2.\f s2.
  %25
    s2.\p\< s2.
    s2. s2.
    s2. s2.\fff
  %31
    s1\p s1 s1
  %34
    s2.\p s2.*4 s2.\> s4\! \crescHairpin s2\<
    s2\sf s4\> s2.
    s2.\pp s2.*3
  }

  \score {
    \new PianoStaff <<
    \set PianoStaff.connectArpeggios = ##t
      \new Staff = "upper" \upper
      \new Dynamics = "dynamics" \dynamics
      \new Staff = "lower" { \lower }
    >>
    \layout {
      \context {
        \type "Engraver_group"
        \name Dynamics
        \alias Voice
        \consists "Output_property_engraver"
        \consists "Skip_event_swallow_translator"
        \consists "Axis_group_engraver"
        \consists "Piano_pedal_engraver"
        pedalSustainStrings = #'("Ped." "*Ped." "*")
        pedalUnaCordaStrings = #'("una corda" "" "tre corde")
        \consists "Script_engraver"
        \consists "New_dynamic_engraver"
        \consists "Dynamic_align_engraver"
        \consists "Text_engraver"
         \consists "Text_spanner_engraver"
        \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \override DynamicLineSpanner #'Y-offset = #0
        \override TextScript #'font-size = #2
        \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
        \override TextScript #'font-shape = #'italic
        \override TextSpanner #'breakable = ##t
        \override DynamicLineSpanner #'breakable = ##t
        \override DynamicTextSpanner #'breakable = ##t
      }
      \context {
        \PianoStaff
        \accepts Dynamics
      }
    }
  }

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