\include "italiano.ly"
\paper {
        indent = #0
}
\header {
  title = \markup {"Now winter comes slowly, pale as an old fugue (2"\super e " version)"}
  subtitle = \markup { \column { \line {\center-align "( pour alto, tenor et basse )"}
  \line { \center-align "( ou clavier )" } } }
    composer = "d'après H. Purcell"
  arranger = "(arrangement I. Benz)"
}
\score {
\new PianoStaff << \relative do'' \context Staff=haut {
\time 3/2 \key do \major
\tempo Lento 2 = 65
\partial 2 \stemUp  la2 sold sold sol fad fad fa mi2. mi4 la,2 mi'1. ~ mi1 mi4 mi fad2 fad sold \break
la la la4 la si2 si dod re re \breathe red \time 4/2 mi4. re8 do4. si8 la4 sol8 fa mi2 \time 3/2 mi4 re mi2 la \break
r la sold sol! fad fa mi la do, do1 red2 mi1 ^~ mi4 fad \break
sol1 r2 r1 mi2 dod2. dod4 la'2 fad2. fad4 si2 sold1 sold2 \break
mi la do red mi4._\ff re8 do4._\markup \italic decrescendo si8 la4 sol8 fa  mi2._\p re4 mi1. la
  \bar "|." 
}
\relative do' \context Staff=bas  { 
\clef bass
\key do \major
\stemDown r2 r1. r r r r1 mi2 red red re
dod2. si4 dod2 si4. la8 sol4. fad8 mi4 re8 do si2. do4 si2 
<< 
{\stemUp  mi'2 red red re do si la
 si-\markup { \postscript #"0.2 setlinewidth 1 setlinecap [1 2] 1 setdash -2 -1 moveto -4 -2  40 -4 37 3 rcurveto stroke" } 
 do re re re re mi4.-\markup { \postscript #"0.2 setlinewidth 1 setlinecap [1 2] 1 setdash -2 1 moveto -4 6  24 7 20.5 -3 rcurveto stroke" }
 re8 do4. si8 la4 sol8-\markup { \postscript #"0.2 setlinewidth 1 setlinecap [1 2] 1  setdash  -0.8 1 moveto -4 -8  22 -2 22 0 rcurveto stroke" }
 fa mi2. si'4 do2 \once \set followVoice = ##t \change Staff=haut \stemDown  si do red 
 mi1 \change Staff=bas \stemUp mi,2 fad^\markup \italic crescendo fad sold la la la4 la \once \set followVoice = ##t \change Staff=haut \stemDown si2 si dod re re re
 \change Staff=bas \stemUp mi4. re8-\markup { \postscript #"0.2 setlinewidth 1 setlinecap [1 2] 1 setdash -2 2 moveto -4 4  47 2 46 -3 rcurveto stroke" }
 do4. si8 la4 sol8 fa mi2. re4 mi2
 la1-\markup { \postscript #"0.2 setlinewidth 1 setlinecap [1 2] 1 setdash -3 -1 moveto -4 -2  27 -1 27 0 rcurveto stroke" }
 do2 si2.^\mf do4^\pp mi2 ^~ mi1.
  
}
  \\
  
  { mi,2 fad1 sold2 la la1
r2 \stemDown la, si si do re mi mi mi4 mi, la1 la2 sol fad mi _~ mi1 r2
r1. r1. r1 fa2 sold la si do mi mi4. re8 do4. si8 la4 sol8 fa mi2 _~ mi4 re mi1 la1. _~ la }

>>


}
>>
\layout { }

  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 65 2)
      }
    }

}