\version "1.6.12"
\paper{ papersize = "letter" }
\include "paper20.ly"

#(set-point-and-click! 'line-column)

\header {
  filename =    "grieg_op54_no4.ly"
  title = "Lyric Pieces"
  subtitle =       "(Nocturne)"
  composer =    "Edvard Grieg"
%  dedication = ""
  opus = "Op. 54 No. 4"
  enteredby =   "KSW 2004/08/22"
  copyright =   "public domain"
}

\include "english.ly"

staffUp = {\translator Staff = upper}
staffDown = {\translator Staff = lower}
ottavaSetup = {
	\property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
	\property Voice.TextSpanner \revert #'type
	\property Voice.TextSpanner \override #'type = #'dotted-line
	\property Voice.TextSpanner \set #'padding = #6
	% \property Voice.TextSpanner \override #'edge-height = #'(0 . 1.5)
	\property Staff.centralCPosition = #-13
}
ottavaBasso = {
	\property Staff.centralCPosition = #+13
	\property Voice.TextSpanner \override #'direction = #-1
}
ottava = #'( \spanrequest \start "text" )
loco = #'( \spanrequest \stop "text" )
locoSetup = {
	\property Staff.centralCPosition = #-6
}
followOn = {
	\property PianoStaff.followVoice = ##t
}
followOff = {
	\property PianoStaff.followVoice = ##f
}
originalBreak = {
	% \break
}
Up = \sustainUp
Down = \sustainDown
trStart = \spanrequest\start "text"
trStop = \spanrequest\stop "text"
trSetup = {
	\property Voice.TextSpanner \set #'type = #'trill
	\property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
	\property Voice.TextSpanner \set #'edge-text = #'((line (music "scripts-trill") " ") . "")
}
tupletEighth = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 8)
}
tupletQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 4)
}
tupletDottedQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 3 8)
}

global = \notes {
% 55 bars
	% \property Staff.TimeSignature \set #'style = #'()
	\time 9/8
	\key c \major
% 1
	\repeat unfold 2 { s4. * 3 } \originalBreak
% 3
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 6
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 9
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 12
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 15
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 18
	\repeat unfold 3 { s4. * 3 } \time 6/8 \originalBreak
% 21
	\repeat unfold 3 { s4. * 2 } \originalBreak
% 24
	\repeat unfold 3 { s4. * 2 } \originalBreak
% 27
	\repeat unfold 3 { s4. * 2 } \originalBreak
% 30
	\repeat unfold 3 { s4. * 2 }
		\time 3/8 s4. \time 9/8 \originalBreak
% 34
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 37
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 40
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 43
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 46
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 49
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 52
	\repeat unfold 3 { s4. * 3 } \originalBreak
% 55
	\repeat unfold 3 { s4. * 2 } \originalBreak
% 57
	s4. * 3 | \time 3/8
	s4. | \time 9/8
	s4. * 3 | \originalBreak
% 60
	s4. * 3 | \time 3/8
	s4. | \time 9/8
	s4. * 3 |
	s4. * 3 \bar "|."
% 64
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
	s4.^" "^" "^"Andante." s4. * 2 |
	s4. * 3 |
	\repeat unfold 18 { s4. * 3 }
% 21
	s4.^" "^" "^"Pi\`u mosso." s4. |
	\repeat unfold 11 { s4. * 2 } |
	s4. |
% 34
	s4.^" "^" "^"a tempo" s4. * 2 |
	\repeat unfold 20 { s4. * 3 } |
% 55
%	s4.^" "^" "^"a tempo" s4. * 2 | % larger "a tempo." ???
	s4.  s4. * 2 |
	s4. * 3 |
% 57
	\ottavaSetup s4.\spanrequest\start "text" s4. s8 \locoSetup s8\spanrequest\stop "text" s8 |
	s4. |
	s4. * 3 |
% 60
	\ottavaSetup s4.\spanrequest\start "text" s4. s8 \locoSetup s8\spanrequest\stop "text" s8 |
	s4. |
	s4.^" "^" "^"Adagio." s4. * 2 |
	s4. * 3 |
% 64

%{
	s4 s4\ottavaSetup s4\spanrequest\start "text" \locoSetup s4\spanrequest\stop "text"
%}
}

upperOne = \notes\relative c' {
	\clef G \clef F c,4. ~ c8 r r r4. \clef G |
	\grace {\slurUp a''8(} )a'4.^>( )e2. \clef F |
% 3
	c,,4. ~ c8 r r r4. \clef G |
	\grace {\slurUp a''8(} )a'8.-- a16-- gs8-- e2. ~ |
	\tupletDottedQuarter
	\times 3/2 { e8 a,\( [  gs a--  b-- c--  ] } |
% 6
	\stemUp\grace {cs8} ~ cs4. \)d2. ~ |
	\stemBoth\times 3/2 { \slurUp d8 g,\( [ fs g--  a-- bf-- ] } |
	\stemUp\grace {b8} ~ b4. \)c2. |
% 9
	[ \times 3/2 {b8 a^- gs^- a^- b^- c^-} ] |
	ef2.^-( )af,4. |
	[ \times 3/2 {b8 a^- gs^- a^- b^- c^-} ] |
% 12
	\tieUp e4.^> ~ [ \times 3/2 {e8 b^- d^- c^-} ] |
	[ \times 3/2 {b^- a^- gs^- a^- b^- fs^-} ] |
	a4.^>( )g2. |
% 15
	\tieBoth\slurBoth\stemBoth
	d''4( ~ d16 )a \repeat unfold 3 { d( )a }
		\tupletEighth
		\times 2/3 { d16( a d  a d a d a )d} |
	\trSetup
	d2._>\trStart( \grace{[cs16\trStop d]} )a'8^. r r \clef F |
	\slurDown d,,,,4._>( ~ <d2. )g,> \clef G |
% 18
	\slurBoth
	f'''4( ~ f16 )c \repeat unfold 3 { f( )c }
		\times 2/3 {f( c f c f c f c )f} 
	f2._>\trStart( \grace{[e16\trStop f]} )c'8^. r r \clef F |
	\slurDown f,,,,4.->( ~ <f2. )bf,> \clef G |
% 21
	\slurBoth
	<fs''8.( d> <e16 b> <d gs,> <e b> <fs4 d> <)b,8 gs> |
	<fs'8.( d> <e16 b> <d gs,> <e b> <)fs4. d> |
	<a8.( fs> <gs16 d> <fs b,> <gs d> <a4 fs> <)d,8 b> |
% 24
	<a'8.( fs> <gs16 d> <fs b,> <gs d> <)a4. fs> |
	<bf8.( gf> <af16 ef> <gf c,> <af ef> <bf4 gf> <)ef,8 c> |
	<bf'8.( gf> <af16 ef> <gf c,> <af ef> <)bf4. gf> |
% 27 - 28
	\repeat unfold 4 { <e8.( c> <d16-. a> <c-. fs> <)d-. a> } |
% 	29 - 30
	<e-> c> <d a> <c f,> <d a> \repeat unfold 5 { <e c> <d a> <c f,> <d a> } |
% 31
	<e8--( c> <d-- a> <)c-- f,> r4. |
	<e,8( c> <d a> <)c f,> r4. |
	r4. \clef F
% 34
	c,,4. ~ c8 r r r4. \clef G |
	\grace {\slurUp a''8(} )a'4.^>( )e2. \clef F |
	c,,4. ~ c8 r r r4. \clef G |
% 37
	\grace {\slurUp a''8(} )a'8.^> a16-- gs8-- e2. ~ |
	\tupletDottedQuarter
	\times 3/2 { e8 a,\( [  gs a--  b-- c--  ] } |
	\stemUp\grace {cs8} ~ cs4. \tieUp \)d2. ~ |
% 40
	\stemBoth\tieBoth\times 3/2 { \slurUp d8 g,\( [ fs g--  a-- bf-- ] } |
	\stemUp\grace {b8} ~ b4. \)c2. |
	[ \times 3/2 {b8 a gs a^- b^- c^-} ] |
% 43
	[ \times 3/2 {e8( )d cs^- d^- e^- f^-} ] |
	af2.->( )df,4. |
	[ \times 3/2 {e8( )d cs^- d^- e^- f^-} ] |
% 46
	\tieUp a4.^>( ~ [ \times 3/2 { a8 )e g^- f^- } ] | \tieBoth
	[ \times 3/2 { e^- d^- cs^- d^- e^- b^- } ] |
	d4.^>( )c2. |
% 49
	[ \times 3/2 { d8^- c^- b^- c^- d^- a^_ } ] |
	c4.^>( )bf2. |
	[ \times 3/2 { c8( bf a bf c\arpeggio )fs, } ] |
% 52
	[ \times 3/2 { bf( af g af bf\arpeggio )e,} ] |
	[ \times 3/2 { gs( fs af\arpeggio d, ] [ fs! e! |
	gf\arpeggio c, ] e )d } r4. |
% 55
	R1 R8 \clef F |
	\tieBoth\slurBoth\stemBoth
	<c4. f,> \clef G \grace{a''8(} )a'4->( ~ a16 )e
		\tupletEighth \times 2/3 { a( e a e a e a e )a } |
% 57
	a2._>\trStart \grace{[gs16\trStop( a]} )e'8^. r r |
	r4. \clef F |
	<c,,,4.^- f,> \clef G \grace{af''8(} )af'4->( ~ af16 )ef
		\times 2/3 {af( ef af ef af ef af ef )af} |
% 60
	\slurUp af2._>\trStart \grace{[g16\trStop( af]} )ef'8^. r r |
	r4. |
	\stemUp\staffDown <e,,,2. c g e> <e4. b g e> |
	<e2. c g e> ~ <e4.\fermata c g e> |
% 64
}

upperTwo = \notes\relative c' {
	s4. * 3 |
	s4. * 3 |
% 3
	s4. * 3 |
	s4. * 3 |
	s4. * 3 |
% 6
	\slurDown\stemDown a'2._>( )af4. |
	s4. * 3 |
	g2._>( )fs4. |
% 9
	\tieDown r8 <fs d> <fs d> ~
		<fs d> <fs d> <fs d> ~
		<fs d> <fs d> <fs d> |
	r ef ef ~ ef ef ef ~ ef ef ef |
	r <fs d> ~ <fs d> ~
		<fs d> <fs d> <fs d> ~
		<fs d> <fs d> <fs d> |
% 12
	r <gs e> <gs e> ~
		<gs e> <gs e> <gs e>
		r <g ef> <g ef> |
	r <fs d> <fs d> ~
		<fs d> <fs d> <fs d> ~
		<fs d> <fs d> d |
	r <ef b_"poco rit."> <ef b>
		r <ef b> <ef b>
		c\rest <d b> <d b> |
% 15
	s4. * 3 |
	s4. * 3 |
	s4. * 3 |
% 18
	s4. * 3 |
	s4. * 3 |
	s4. * 3 |
% 21
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 24
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 27
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 30
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. |
% 34
	s4. * 3 |
	s4. * 3 |
	s4. * 3 |
% 37
	s4. * 3 |
	s4. * 3 |
	\slurDown\stemDown a'2._>( )af4. |
% 40
	s4. * 3 |
	g2._>( )fs4. |
	\tieDown r8 <fs d> <fs d> ~
		<fs d> <fs d> <fs d> ~
		<fs d> <fs d> <fs d> |
% 43
	r8 <b g> <b g> ~
		<b g> <b g> <b g> ~
		<b g> <b g> <b g> |
	r af af ~ af af af ~ af af af |
	r <b g> <b g> ~ 
		<b g> <b g> <b g> ~
		<b g> <b g> <b g> |
% 46
	r <cs a> <cs a> ~
		<cs a> <cs a> <cs a>
		r <c af> <c af> |
	r <b g> <b g> ~
		<b g> <b g> <b g> ~
		<b g> <b g> g |
	r <bf e,> <bf e,> ~
		<bf e,> <bf e,> <bf e,> ~
		<bf e,> <bf e,> <bf e,> |
% 49
	r <a f> <a f> ~
		<a f> <a f> <a f> ~
		<a f> <a f> f |
	r <af d,> <af d,> ~
		<af d,> <af d,> <af d,> ~
		<af d,> <af d,> <af d,> |
	r <g ef> <g ef> ~
		<g4. ef>
		fs\arpeggio |
% 52
	r8 <f df> <f df> ~
		<f4. df> e\arpeggio |
	ds d\arpeggio cs_"poco rit." |
	c\arpeggio b! s |
% 55
	s4._"a tempo" s4. * 2 |
	s4. * 3 |
% 57
	s4. * 3 |
	s4. |
	s4. * 3 |
% 60
	s4. * 3 |
	s4. |
	s4. * 3 |
	s4. * 3 |
% 64
}

lower = \notes\relative c' {
	<
	{
		r8 <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> ~ |
		<e c> <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> ~ |
		<e c> <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> ~ |
		<e c> <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> |
	} \\
	{
		s4. b( bf |
		a af )g |
		s b( bf |
		a af )g |
	}
	>
% 5
	c,8 <e' a, fs> <e a, fs> ~
		<e a, fs> <e a, fs> <e a, fs> ~
		<e a, fs> <e a, fs> <e a, fs> |
% 6
	b, <d' a f> <d a f> ~
		<d a f> <d a f> <d a f> ~
		<d a f> <d af f> <d af f> |
	bf, <d' g, e> <d g, e> ~
		<d g, e> <d g, e> <d g, e> ~
		<d g, e> <d g, e> <d g, e> |
	a, <c' g ef> <c g ef> ~
		<c g ef> <c g ef> <c g ef> 
		af, <c' fs, ef> <c fs, ef> |
% 9
	d,, <c'' d,> <c d,> ~
		<c d,> <c d,> <c d,> ~
		<c d,> <c d,> <c d,> |
	< {
		r8 <c af> <c af> ~
			<c af> <c af> <c af> ~
			<c af> <c af> <c af>
	} \\
	{
		c,2. ~ c4.
	}
	> |
	d,,8 <c'' d,> <c d,> ~
		<c d,> <c d,> <c d,> ~
		<c d,> <c d,> <c d,> |
% 12
	< {
		r8 <d gs,> <d gs,> ~
			<d gs,> <d gs,> <d gs,>
			r <c g> <c g> |
	} \\ {
		b,2. a4. |
	} > |
	d,,8 <c'' d,> <c d,> ~
		<c d,> <c d,> <c d,> ~
		<c d,> <c d,> <c d,> |
	< {
		ef,2.^>( )d4.
	} \\ {
		\grace {g,8} ~ g2. ~ g4.
	} > \clef G |
% 15
	r8 <a''^" "^"a tempo" f b,> <a f b,> ~
		<a f b,> <a f b,> <a f b,> ~
		<a f b,> <a f b,> <a^" "^"poco" f b,> ~ |
	<a f b,> <a f b,> <a f b,> ~
		<a f b,> <a f b,> <a f b,> ~
		<a f b,> <a f b,> <a f b,> ~ |
	<a f b,> <a f b,> <a f b,> ~
		<a f b,> <a f b,> <a f b,> ~
		<a f b,> <a f b,> <a f b,> |
% 18
	r <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c^"poco" af d,> ~ |
	<c af d,> <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c af d,> ~ |
	<c af d,> <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c af d,> ~
		<c af d,> <c af d,> <c af d,> \clef F |
% 21
	e,,,16( b' d )gs r8 fs'16( d b )gs r8 |
	e,16( b' d )gs r8 fs'16( d b )gs r8 |
	e,16( b' d )a' r8 a'16( fs d )b r8 |
% 24
	e,,16( b' d )a' r8 a'16( fs d )b r8 |
	ef,,16( af c )gf' r8 \clef G bf'16( gf ef )c r8 \clef F |
	ef,,16( af c )gf' r8 \clef G bf'16( gf ef )c r8 \clef F |
% 27
	d,,16( a' c )fs r8 d16( a' c )fs r8 \clef G |
	d16( a' c )fs r8 \clef F d,,16( a' c )fs r8 |
	\stemUp [ g,,,8_> g'_> d'_> f_> a_> c_> ] \clef G |
% 30
	[ d_> f_> a_> c_> d_> f_> ] |
	r4. <e8--^"poco rit."( c> <d-- a> <)c f,> |
	r4. \clef F <e,8( c> <d a> <)c f,> |
	r4. |
% 34
	\stemBoth
	<
	{
		r8 <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> ~ |
		<e c> <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> |
		r <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> ~ |
% 37 top
		<e c> <e c> <e c> ~ <e c> <e c> <e c> ~ <e c> <e c> <e c> |
	} \\
	{
		s4. b( bf |
		a af )g |
		s b( bf |
% 37 bottom
		a af )g |
	}
	>
% 38
	c,8 <e' a, fs> <e a, fs> ~
		<e a, fs> <e a, fs> <e a, fs> ~
		<e a, fs> <e a, fs> <e a, fs> |
	b, <d' a f> <d a f> ~
		<d a f> <d a f> <d a f> ~
		<d a f> <d af f> <d af f> |
% 40
	bf, <d' g, e> <d g, e> ~
		<d g, e> <d g, e> <d g, e> ~
		<d g, e> <d g, e> <d g, e> |
	a, <c' g ef> <c g ef> ~
		<c g ef> <c g ef> <c g ef> 
		af, <c' fs, ef> <c fs, ef> |
	d,, <c'' d,> <c d,> ~
		<c d,> <c d,> <c d,> ~
		<c d,> <c d,> <c d,> |
% 43
	g, <f'' g,> <f g,> ~
		<f g,> <f g,> <f g,> ~
		<f g,> <f g,> <f g,> |
	<{
		r8 <f df> <f df> ~
			<f df> <f df> <f df> ~
			<f df> <f df> <f df> |
	} \\ {
		f,2. ~ f4. |
	}> |
	g,,8 <f'' g,> <f g,> ~
		<f g,> <f g,> <f g,> ~
		<f g,> <f g,> <f g,> |
% 46
	e, <g' cs,> <g cs,> ~
		<g cs,> <g cs,> <g cs,>
		d, <f' c> <f c> |
	g,, <f'' g,> <f g,> ~
		<f g,> <f g,> <f g,> ~
		<f g,> <f g,> <f g,> |
	\slurDown\grace {g,8(} <c2.^> )g(> ~ <c4. )gf> |
% 49
	f,,8 <ef'' f,> <ef f,> ~
		<ef f,> <ef f,> <ef f,> ~
		<ef f,> <ef f,> <ef f,> |
	\grace{f,8(} <bf2.^> )f(> ~ <bf4. )ff> |
	ef,,8 <df'' ef,> <df ef,> ~
		<df4. ef,> <c\arpeggio d,> |
% 52
	df,,8 <cf'' df,> <cf df,> ~
		<cf4. df,> <bf\arpeggio c,> |
	<a! b,!> <af\arpeggio bf,> <g a,> |
	<gf\arpeggio af,> <f g,> r \clef G |
% 55
	<{
		r8 <e'' c> <e c> ~
			<e c> <e c> <e c> ~
			<e c> <e c> <e c> |
		r8 <e c> <e c> ~
			<e c> <e c> <e c> ~
			<e c> <e c> <e c> ~ |
% 57a
		<e c> <e c> <e c> ~
			<e c> <e c> <e c> ~
			<e c> <e c> <e c> |
		r4. |
		r8 <ef c> <ef c> ~
			<ef c> <ef c> <ef c> ~
			<ef c> <ef^"morendo" c> <ef c> ~ |
% 60a
		<ef c> <ef c> <ef c> ~
			<ef c> <ef c> <ef c> ~
			<ef c> <ef c> <ef c> |
% 61a
	} \\ {
		s4. b( bf |
		)a2._> ~ a4. ~ |
% 57b
		a2. ~ a4. |
		s4. |
		af2._> ~ af4. ~ |
% 60b
		af2. ~ af4. |
% 61b
	}> |
% 61
	r4. \clef F |
	\stemDown <c,,2. g c,> <g4. g,> |
	\grace{[c,,8( c' g' c e g c]} 
		<)c,2. g c, c,> ~ <c4._\fermata g c, c,> |
% 64

%{
	\clef F \ottavaSetup\ottavaBasso a,,,,,^\ppp\spanrequest\start "text" r\spanrequest\stop "text" r2 |
%}
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
	s8\p s4 s4. * 2 |
	s4. * 3 |
% 3
	s4. * 3 |
	s4. * 3 |
	s4. s8 s8\< s8 s8 s8 \!s8 |
% 6
	s4 s8\> s4. \!s8 s4 |
	s4. * 2 s8\< s8 \!s8 |
	s4. s4.\> s4 \!s8 |
% 9
	s4.\p s4.\< s4 \!s8 |
	s8 s8\> s8 s4 \!s8 s4. |
	s4.\cresc s4. * 2 |
% 12
	\!s4.\f s4. * 2 |
	s4. * 3 |
	s4.\> s4. s4 \!s8 |
% 15
	s4.\p s4. s16 s\< s8 \times 2/3 {s16 s \!s} |
	s4.\> s8 \!s8 s8 s4. |
	s4. * 3 |
% 18
	s4.\p s4. s16 s\< s8 \times 2/3 {s16 s \!s} |
	s4. * 2 s4\> s16 \!s16 |
	s4. * 3 |
% 21
	s4.\pp s4. |
	s4. * 2 |
	s4. * 2 |
% 24
	s4. * 2 |
	s4.\ppp s4.^"poco a poco" |
	s4.^"cresc."  s4. |
% 27
	s4. * 2 |
	s4.^"molto" s4. |
	s4.\ff s4. |
% 30
	s4. s16 s\< s8 s16 \!s16 |
	s4. s4.\> |
	s4. \!s4. |
	s4. |
% 34
	s4.\p s4. * 2 |
	s4. * 3 |
	s4. * 3 |
% 37
	s4. * 3 |
	s4. s8 s8\< s8 s4 \!s8 |
	s8 s8\> s8 s4. \!s8 s4 |
% 40
	s4. s4.\< s4 \!s8 |
	s4 s8\> s4. s16 \!s16 s4 |
	s4.\p s8 s4^"cresc." s4. |
% 43
	s4. s8 s8^"molto" s8 s4. |
	s8\f s8\> s8 s4. \!s8 s4 |
	s4. s4.\< s4 \!s8 |
% 46
	s4.\ff s4. * 2 |
	s4. * 3 |
	s8 s4\> s4. s4 \!s8 |
% 49
	s4. * 3 |
	s4.\> s4. \!s4. |
	s4.^"dim sempre" s4. * 2 |
% 52
	s4. * 3 |
	s4. * 2 s4.\> |
	s4. \!s4. s4. |
% 55
	s4.\p s4. * 2 |
	s4. * 3 |
% 57
	s4. * 3 |
	s4. |
	s4. * 3 |
% 60
	s4. s4 s8\> s4 \!s8 |
	s4. |
	s8 s4\pp\< s4. s4 \!s8 |
        \grace{s8\> s s s s s s}
	\!s4. s4. s4. |
% 64
}

pedal = \notes {
	s4.\Down s4 s8\Up s4. |
	s4. * 3 |
% 3
	s4.\Down s4 s8\Up s4. |
	s4. * 3 |
	s4.\Down s4. * 2 |
% 6
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. s4.\Up\Down |
% 9
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
% 12
	s4.\Up\Down s4. s4.\Up\Down |
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
% 15
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
	s4. * 3 |
% 18
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
	s4. * 3 |
% 21
	s8\Up\Down s8\unaCorda s8 s4. |
	s4. * 2 |
	s4.\Up\Down s4. |
% 24
	s4. * 2 |
	s4.\Up\Down s4. |
	s4. * 2 |
% 27
	s8\Up\Down s8\treCorde s8 s4. |
	s4. * 2 |
	s4.\Up\Down s4. |
% 30
	s4. * 2 |
	s4. * 2 |
	s4. s4 s8\Up |
	s4. |
% 34
	s4. * 3 |
	s4. * 3 |
	s4. * 3 |
% 37
	s4. * 3 |
	s4.\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
% 40
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. s4.\Up\Down |
	s4.\Up\Down s4. * 2 |
% 43
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
	s4.\Up\Down s4. * 2 |
% 46
	s4.\Up\Down s4. s4.\Up\Down |
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
% 49
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
	s4.\Up\Down s4. * 2 |
% 52
	s4.\Up\Down s4. * 2 |
	s4. * 3 |
	s4. * 3 |
% 55
	s4. * 3 |
	s4.\Up\Down s4. * 2 |
% 57
	s4. * 2 s4 s8\Up |
	s4. |
	s4.\Down s4. * 2 |
% 60
	s4. * 2 s4 s8\Up |
	s4.
	s2.\Down s4. |
	s4. * 3 |
}

\score {
\context PianoStaff <
\pianoAccidentals
\followOn\followOff
\property PianoStaff.connectArpeggios = ##t
\context Staff=upper < \global \Tempo 
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
	\context Voice = one \upperOne
	\context Voice = two \upperTwo
	>
\context Dynamics=dynamics \dynamics
\context Staff=lower <
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
      \clef bass \global
      \lower
    >
    \context Dynamics=pedal \pedal
  >
  \paper {
    \translator {
      \type "Engraver_group_engraver"
      \name Dynamics
      \consists "Output_property_engraver"
      
      minimumVerticalExtent = #'(-1 . 1)
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalSustainStrings = #'("Ped." "Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "Dynamic_engraver"
      \consists "Text_engraver"

      TextScript \override #'font-relative-size = #1
      TextScript \override #'font-shape = #'italic
      DynamicText \override #'extra-offset = #'(0 . 2.5)
      Hairpin \override #'extra-offset = #'(0 . 2.5)

      \consists "Skip_req_swallow_translator"

      \consistsend "Axis_group_engraver"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
      VerticalAlignment \override #'forced-distance = #6
      VerticalAlignment \override #'forced-distance = #5
    }
  }
  \midi {
    \tempo 8 = 180
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}