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

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

\header {
  filename =    "grieg_op54_no3.ly"
  title = "Lyric Pieces"
  subtitle =       "Troldtog."
  subsubtitle = "(Zug der Trolle.)"
  composer =    "Edvard Grieg"
  dedication = "Herrn Julius R\\\"ontgen gewidmet."
  opus = "Op. 54 No. 3"
  enteredby =   "KSW 2004/09/07"
  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 = #2
	\property Voice.TextSpanner \override #'edge-height = #'(0 . 3)
	\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
}
bOn = {
	\property Staff.autoBeaming = ##t
}
bOff = {
	\property Staff.autoBeaming = ##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)
}
restartMeasure = {
	\property Timing.measurePosition = #(make-moment 6 8)
}
ffp = \dynamicscript #"ffp"
ffz = \dynamicscript #"ffz"

slurHeadHead = {
	\property Voice.Slur \set #'attachment = #'(head . head)
}
slurStemHead = {
	\property Voice.Slur \set #'attachment = #'(stem . head)
}
slurStemStem = {
	\property Voice.Slur \set #'attachment = #'(stem . stem)
}
slurRevert = {
	\property Voice.Slur \set #'attachment = #'(#f . #f)
}

startGraceMusic = \sequential {
	\startGraceMusic
	\slurUp
%	\slurStemHead
}
stopGraceMusic = \sequential {
%	\slurRevert
	\slurBoth
	\stopGraceMusic
}
invisible = {
	\property Voice.NoteHead \override #'transparent = ##t
	\property Voice.Stem \override #'transparent = ##t
}
visible = {
	\property Voice.NoteHead \revert #'transparent
	\property Voice.Stem \revert #'transparent
}
shiftRight = {
%	\property Voice.NoteColumn \set #'horizontal-shift = #-3
	\property Voice.NoteColumn \set #'horizontal-shift = #-1
}


global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 2/4
	\key d \minor
% 1
		\repeat unfold 6 { s2 } | \originalBreak
% 7
		\repeat unfold 6 { s2 } | \originalBreak
% 13
		\repeat unfold 5 { s2 } | \originalBreak
% 18
		\repeat unfold 6 { s2 } | \originalBreak
% 24
		\repeat unfold 6 { s2 } | \originalBreak
% 30
		\repeat unfold 6 { s2 } | \originalBreak
% 36
		\repeat unfold 6 { s2 } | \originalBreak
% 42
		\repeat unfold 6 { s2 } | \originalBreak
% 48
		\repeat unfold 5 { s2 } | \originalBreak
% 53
		\repeat unfold 5 { s2 } | \originalBreak
% 58
		\repeat unfold 5 { s2 } | \originalBreak
% 63
		\repeat unfold 5 { s2 } | \break
		s2 |
		{
% 69
			\property Score.repeatCommands = #'((volta "1."))
			s2 |
			s4 s8 s8 \property Score.repeatCommands = #'((volta #f))
				|
			\bar "||"
		}
		{
% 71
			\property Score.repeatCommands = #'((volta "2."))
			\repeat unfold 3 { s2 } |
			\property Score.repeatCommands = #'((volta #f))
			\bar "|." \originalBreak
		}
% 74
	\key d \major \grace s4
	\repeat unfold 6 { s2 } | \originalBreak
% 80
	\repeat unfold 7 { s2 } | \originalBreak
% 87
	\repeat unfold 3 { s2 } | \bar "||"
		\repeat unfold 2 { s2 } | \originalBreak
% 92
	\repeat unfold 4 { s2 } | \originalBreak
% 96
	\repeat unfold 4 { s2 } | \originalBreak
% 100
	\repeat unfold 6 { s2 } | \originalBreak
% 106
	\repeat unfold 6 { s2 } | \originalBreak
% 112
	\repeat unfold 6 { s2 } | \originalBreak
% 118
	\repeat unfold 4 { s2 } | \originalBreak
% 122
	\repeat unfold 5 { s2 } | \originalBreak

	\bar "||" \key d \minor
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
% 1
		s2^" "^" "^"Allegretto marcato." |
		\repeat unfold 5 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		\repeat unfold 5 { s2 } |
% 18
		\repeat unfold 6 { s2 } |
% 24
		\repeat unfold 6 { s2 } |
% 30
		\repeat unfold 6 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		\repeat unfold 5 { s2 } |
% 53
		\repeat unfold 5 { s2 } |
% 58
		\repeat unfold 5 { s2 } |
% 63
		\repeat unfold 6 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 2 { s2 } |
			s4 s4^"Fine."
		}
% 74
	\grace s4
	\repeat unfold 6 { s2 } |
% 80
	\repeat unfold 7 { s2 } |
% 87
	\repeat unfold 5 { s2 }
% 92
	\repeat unfold 4 { s2 } |
% 96
	\repeat unfold 4 { s2 } |
% 100
	\repeat unfold 6 { s2 } |
% 106
	\repeat unfold 6 { s2 } |
% 112
	\repeat unfold 6 { s2 } |
% 118
	\repeat unfold 4 { s2 } |
% 122
	\repeat unfold 3 { s2 } |
	s2^"Da Capo al Fine." |
	s2 |
}

upperOne = \notes\relative c'{
	\clef G\voiceOne\oneVoice
% 1
		R2 |
		r4 r8 d32( e f g |
		)a8^. <d^. f, d> <d^.^> f, d> <cs^. f, d> |
		<cs^.^> f, d> <c^. f, d> <c^.^> f, d> <b^. f d> |
		<b^.^> f d> <bf^. f d> <bf^.^> f d> <a^. f d> |
		<gs^. e b> <gs4^- e b> g32( a bf c |
% 7
		)d8^. <g^. bf, g> <g^.^> bf, g> <fs^. bf, g> |
		<fs^.^> bf, g> <f^. bf, g> <f^.^> bf, g> <e^. bf g> |
		<e^.^> bf g> <ef^. bf g> <ef^.^> bf g> <d^. bf g> |
		<cs^. a e> <cs4^- a e> r8 |
		[ d32^>( e f g )a8^. ] [ g32^>( f e d )c8^. ] |
		[ bf32^>( c d e )f8^. ] [ e32^>( d c bf )a8^. ] |
% 13
		[ g32^>( a bf c )d8^. ] [ c32^>( bf a g )f8^. ] |
		\repeat unfold 2 { r <e4.^- a,> |
			[ d''32^>( c bf a )g8^. ] [ d32^>( c bf a )g8^. ] | }
% 18
		\repeat unfold 4 { r <e!_. a,> [d'32^>( c bf a )g8^. ] | }
		r [ <e_. cs a> r <e_. cs bf> ] |
		r [ <e_. cs gs> r <e_. cs a> ] |
% 24
		r [ <e_. cs bf> r <e_. cs b> ] |
		r [ <e_. cs c> r <e_. cs b> ] |
		r [ <e_. cs bf> r <e_. cs a> ] |
		r \clef F [ <e^. cs gs> r <cs^. bf g> ] |
		r [ <cs^. bf fs> r <cs^. bf f> ] |
		r [ <cs^. a e> r <cs^. a g ef> ] |
% 30
		R2 \clef G |
		r4 r8 d'32( e f g |
		)a8^. <d^. f, d> <d^.^> f, d> <cs^. f, d> |
		<cs^.^> f, d> <c^. f, d> <c^.^> f, d> <b^. f d> |
		<b^.^> f d> <bf^. f d> <bf^.^> f d> <a^. f d> |
		<gs^. e b> <gs4^> e b> g32( a bf c |
% 36
		)d8^. <g^. bf, g> <g^.^> bf, g> <fs^. bf, g> |
		<fs^.^> bf, g> <f^. bf, g> <f^.^> bf, g> <e^. bf g> |
		<e^.^> bf g> <ef^. bf g> <ef^.^> bf g> <d^. bf g> |
		<cs^. a e> <cs4^> a e> r8 |
		\ottavaSetup
		[ d32^>(\ottava e f g )a8^. ] [ g32^>( f e d )c8^. ] |
		[ bf32^>( c d e )f8^. ] [ e32^>( d c bf )a8^. ] |
% 42
		[ g32^>( a bf c )d8^. ] [ c32^>( bf a g )f8^. ] |
		<e'8^. a, e> <e4^> a, e> r8 |
		[ bf32^>( c d e )f8^. ] [ e32^>( d c bf )a8^. ] |
		[ g32^>( a bf c )d8^. ] [ c32^>( bf a g )f8^. ] |
		[ ef32_>( f g a )bf8_. ] [ a32_>( g f ef )d8^. ] |
		<a'8^. e a,> <a4^> e a,> \locoSetup r8\loco |
% 48
		[ d,32^>( e f g )a8^. ] [ g32^>( f e d )c8^. ] |
		[ bf32^>( c d e )f8^. ] [ e32^>( d c bf )a8^. ] |
		[ g32^>( a bf c )d8^. ] [ c32^>( bf a g )f8^. ] |
		<e'8^. a, e> <e4^> a, e> r8 |
		[ bf32^>( c d e )f8^. ] [ e32^>( d c bf )a8^. ] |
% 53
		[ g32^>( a bf c )d8^. ] [ c32^>( bf a g )f8^. ] |
		[ ef32_>( f g a )bf8_. ] [ a32_>( g f ef )d8^. ] |
		<a'8^. e a,> <a4^> e a,> r8 |
		[ d'32^>( c bf a )g8^. ] [ d32^>( c bf a )g8^. ] |
		r8 <a4.^> e a,> |
% 58
		[ d'32^>( c bf a )g8^. ] [ d32^>( c bf a )g8^. ] |
		\repeat unfold 4 { r8 <a8_. e! a,> [ d32_>( c bf a )g8_. ] } |
% 63
		r4 r8 \clef F d,32( e f g |
		)a8^. <d^. f, d> <d^. f, d> <cs^. f, d> |
		<cs^. f, d> <c^. f, d> <c^. f, d> <b^. f d> |
		<b^. f d> <bf^. f d> <bf^. f d> <a f d> ~ |
		<a2 f d> |
		R2 \clef G |
		{
% 69
			[ d8^. a'^. d^. a'^> ] ~ |
			a2\fermata ~ %{ \grace { \invisible a4 \visible } %} |
		}
		{
% 71
			[ d,,8^. a'^. d^. a'^> ] ~ |
			a2 |
			<d16^> a d,> <d a d,> r8 r4 |
		}
% 74
	\voiceOne
	\grace {\invisible a8( b \visible}\phrasingSlurUp )a4\(\phrasingSlurUp b8 cs |
	d4 cs8 b |
	cs a4 cs8 |
	\grace cs8(\phrasingSlurUp )\)fs,2 |
	a4\(\phrasingSlurUp b8 cs |
	d4 cs8 b |
% 80
	cs fs,4 cs'8 |
	\grace cs8(\phrasingSlurUp )\)a2 |
	a,4\( b8 cs |
	d4 cs8 b |
	cs4 a8 cs |
	\grace cs8(\phrasingSlurUp )\)fs,2 |
	a4\( b8 cs |
% 87
	d4 cs8 b |
	cs4 fs,8 cs' |
	\grace cs8( )\)a2 |
	\repeat unfold 2 { \times 4/6 { [ \staffDown\stemUp a,16( g' cs \staffUp\stemDown e g )e'] } b4^- | }
% 92
	r8 g,16( cs b e d g |
	e a g cs b )e r8 |
	\repeat unfold 2 { \times 4/6 { [ \staffDown\stemUp f,,,16( ef' a \staffUp\stemDown c ef )c'] } g4^- | } |
% 96
	\stemUp\slurUp r8 ef,16( a g c bf ef |
	c f ef a g )c r8 |
	r8 c,,16( fs! e a g c |
	a d c fs! e )a r8\fermata |
% 100
	\voiceOne\slurUp d4\( e8 fs |
	g4 fs8 e |
	fs d4 fs8 |
	\grace fs8(\slurUp )\)b,2 |
	d4\( e8 fs |
	g4 fs8 e |
% 106
	fs b,4 fs'8 |
	\grace fs8(\slurUp )\)d2 |
	d,4\( e8 fs |
	g4 fs8 e |
	fs4 d8 fs |
	\grace fs8(\slurUp )\)b,2 |
% 112
	d4\( e8 fs |
	g4 fs8 e |
	fs4 b,8 fs' |
	\grace fs8( )\)d2 |
	\times 4/6 { [ \staffDown\stemUp d,16( c' f \staffUp\stemDown a c )a'] } e4^- |
	r8 g,16( d' b g' d )b' |
% 118
	\times 4/6 { [ \staffDown\stemUp d,,,16( a' cs! \staffUp\stemDown e g )e' ] } b4^- |
	r8 fs16( d' a fs' d )a' |
	\times 4/6 { [ \staffDown\stemUp d,,,,16( c' fs \staffUp\stemDown a c )a'] } e4^- |
	r8 g,16( d' b g' d )b' |
% 122
	\times 4/6 { [ \staffDown\stemUp d,,,16( a' cs! \staffUp\stemDown e g )e' ] } b4^- |
	r8 fs16( d' a fs' d )a' |
	R2 |
	R2 |
	R2 |
}

upperTwo = \notes\relative c' {
	\voiceTwo
% 1
		\repeat unfold 6 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		\repeat unfold 5 { s2 } |
% 18
		\repeat unfold 6 { s2 } |
% 24
		\repeat unfold 6 { s2 } |
% 30
		\repeat unfold 6 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		\repeat unfold 5 { s2 } |
% 53
		\repeat unfold 5 { s2 } |
% 58
		\repeat unfold 5 { s2 } |
% 63
		\repeat unfold 6 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 3 { s2 } |
		}
% 74
	\grace s4 \voiceTwo 
	<fs'2 d> |
	d |
	<fs d> |
	d |
	<fs d> |
	d |
% 80
	d |
	cs |
	r8 <fs,4. d> |
	r8 d4. |
	r8 <fs4. d> |
	r8 d4. |
	r8 <fs4. d> |
% 87
	r8 d4. |
	r8 d4. |
	r8 cs4. |
	\repeat unfold 2 { s2 }
% 92
	\repeat unfold 4 { s2 } |
% 96
	\repeat unfold 4 { s2 } |
% 100
	<b''2 g> |
	g |
	<b g> |
	g |
	<b g> |
	g |
% 106
	g |
	fs |
	r8 <b,4. g> |
	r8 g4. |
	r8 <b4. g> |
	r8 g4. |
% 112
	r8 <b4. g> |
	r8 g4. |
	r8 g4. |
	r8 fs4. |
	\repeat unfold 2 { s2 } |
% 118
	\repeat unfold 4 { s2 } |
% 122
	\repeat unfold 5 { s2 } |
}

% #(define text-pp '(lines "sempre"))
lowerOne = \notes\relative c, {
	\voiceOne\oneVoice
		[d8_._> a'_. d,_._> a'_.] |
		[d,^"staccato"_. a'_. d,_. a'_.] |
		\repeat unfold 8 { [d, a' d, a'] } |
% 11
		r <f''^. bf,> r <c^. f,> |
		r <d^. g,> r <a^. d,> |
% 13
		r <bf^. ef,> r <f^. bf,> |
		[ a,_. e'_. a,_. e'_. ] |
		[ ef,_. bf'_. ef,_. bf'_. ] |
		[ a_"staccato" e'! a, e' ] |
		[ ef, bf' ef, bf' ]
% 18
		\repeat unfold 4 { a_. e'!_. ef,_. bf'_. } |
		[a_"staccato" e' bf e ] |
		[gs, e' a, e' ] |
% 24
		[ bf e b e ] |
		[ c e b e ] |
		[ bf e a, e' ] |
		[ gs, e' g, cs ] |
		[ fs, cs' f, cs' ] |
		[ e, cs' ef, cs' ] |
% 30
	
		\repeat unfold 10 { [ <d_> d,> <a a,> <d_> d,> <a a,> ] } |
% 40
		[ \stemDown <f''^> f,> \stemUp <d, d,> ]
			[ \stemDown <e'^> e,> \stemUp <d, d,> ] |
		[ \stemDown <d'^> d,> \stemUp <d, d,> ]
			[ \stemDown <c'^> c,> \stemUp <d, d,> ] |
% 42
		[ \stemDown <bf'^> bf,> \stemUp <d, d,> ] 
			[ \stemDown <a'^> a,> \stemUp <d, d,> ] |
		\stemBoth
		<g_> g,> <d d,> <g_> g,> <d d,> |
		<d'^> d,> <d, d,> <c'^> c,> <d, d,> |
		<bf'^> bf,> <d, d,> <a'^> a,> <d, d,> |
		<g^> g,> <d d,> <f^> f,> <d d,> |
		<e^> e,> <d d,> <e^> e,> <d d,> |
% 48
		f_._> d,_. e'_._> d,_. |
		d'^>_"staccato" d, c'^> d, |
		bf'^> d, a'^> d, |
		g^> d g^> d |
		d'^> d, c'^> d, |
% 53
		bf'^> d, a'^> d, |
		g^> d f^> d |
		[ e^> d e^> d ] |
		[ ef_"sempre stacc." a ef a ] |
		[ d, a' d, a' ] |
% 58
		[ ef a ef a ] |
		\repeat unfold 4 { [ d, a' ef a ] | }
% 63
		\repeat unfold 5 { [ d, a' d, a' ] | }
		[ d,_. a'_. d_. a'_. ] |
		{
% 69
			R2 |
			r2\fermata |
		}
		{
% 71
			R2 |
			R2 |
			<d,16_> a d,> <d a d,> r8 r4 \clef G |
		}
% 74
	\grace s4 \voiceOne
	<a''2 d,> |
	<b fs b,> |
	<a d,> |
	<b fs b,> |
	a |
	b |
% 80
	a4( )gs |
	a2 \clef F |
	\oneVoice r8 <a,4. d,> |
	r8 <b4. fs b,> |
	r8 <a4. d,> |
	r8 <b4. fs b,> |
	\voiceOne r8 a4. |
% 87
	r8 <b4. b,> |
% peters has this (slur from lower grace to a4)
%	r8 \grace {\invisible\slurHeadHead e,8( \visible\slurRevert}\slurUp )a4( )gs8 |
	r8 a4( )gs8 |
	\oneVoice r8 <a4. e a,> \clef G |
	s4 g''^- |
	s4 g^- |
% 92
	[a,,8_. e'_. g_. b_.] |
	[cs^. e^. g^.] r |
	s4 ef^- |
	s4 ef^- \clef F |
% 96
	[\stemUp f,,8_. c'_. \staffUp\stemDown ef_. g_.] |
	[a_. c_. ef_.] r |
	[\staffDown\stemUp d,,_. a'_. c_. \staffUp\stemDown e_. ] |
	[fs!_. a_. c_.] r_\fermata\staffDown\clef G \oneVoice |
% 100
	<d2 g,> |
	<e b e,> |
	<d g,> |
	<e b e,> |
	\stemUp d |
	e |
% 106
	\slurUp d4( )cs |
	d2 \clef F |
	r8 <d,4. g,> |
	r8 <e4. b e,> |
	r8 <d4. g,> |
	r8 <e4. b e,> |
% 112
	r8 d4. |
	r8 e4. |
% peters has this (slur from grace a to d4)
%	r8 \grace {\invisible\slurHeadHead d,8( \visible\slurRevert}\slurUp )d'4( )cs8 |
	r8 d4( )cs8 |
	r8 \oneVoice <d4. a d,> \clef G |
	s4 c''^- |
	[ d,,8-. b'-. d-. g-. ] |
% 118
	s4 g4^- |
	[ d,8-. a'-. d-. fs-. ] \clef F |
	s4 \clef G c^- \clef F |
	[ d,,8-. b'-. d-. g-. ] |
% 122
	s4 g^- |
	[ d,8-. a'-. d-. a'-. ] \clef G |
	[ d^>_. a_. d,_. a'_. ] \clef F |
	[ d,-. a-. d-. a-. ] |
	[ d,-. a'-. d,-. a-. ] |
}

lowerTwo = \notes\relative c {
	\voiceTwo
% 1
		\repeat unfold 6 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		\repeat unfold 5 { s2 } |
% 18
		\repeat unfold 6 { s2 } |
% 24
		\repeat unfold 6 { s2 } |
% 30
		\repeat unfold 6 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		\repeat unfold 5 { s2 } |
% 53
		\repeat unfold 5 { s2 } |
% 58
		\repeat unfold 5 { s2 } |
% 63
		\repeat unfold 6 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 3 { s2 } |
		}
% 74
	\grace s4
	\repeat unfold 4 { s2 } |
	d'4( )cs |
	fs( )f |
% 80
	e2 |
	e4( )es |
	\repeat unfold 4 { s2 } |
	s8 d,4(\slurDown )cs8 |
% 87
	s8 fs4 f8 |
	s8 \grace e,8 ~ e4. |
	\repeat unfold 3 { s2 }
% 92
	\repeat unfold 4 { s2 } |
% 96
	\repeat unfold 4 { s2 } |
% 100
	\repeat unfold 4 { s2 } |
	\slurDown g''4( )fs |
	\slurUp b( )bf |
% 106
	s2 |
	a4( )as |
	\repeat unfold 4 { s2 } |
% 112
	s8 \slurDown g,4( )fs8 |
	s8 \slurBoth b4( )bf8 |
	s8 \grace a,8 ~ a4. |
	s2 |
	\repeat unfold 2 { s2 } |
% 118
	\repeat unfold 4 { s2 } |
% 122
	\repeat unfold 5 { s2 } |
}

lowerThree = \notes\relative c {
	\voiceThree\shiftRight\stemDown
% 1
		\repeat unfold 6 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		\repeat unfold 5 { s2 } |
% 18
		\repeat unfold 6 { s2 } |
% 24
		\repeat unfold 6 { s2 } |
% 30
		\repeat unfold 6 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		\repeat unfold 5 { s2 } |
% 53
		\repeat unfold 5 { s2 } |
% 58
		\repeat unfold 5 { s2 } |
% 63
		\repeat unfold 6 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 3 { s2 } |
		}
% 74
	\grace s4
	\repeat unfold 5 { s2 } |
	b'2 |
% 80
	s |
	a |
	\repeat unfold 5 { s2 } |
% 87
	\repeat unfold 5 { s2 }
% 92
	\repeat unfold 4 { s2 } |
% 96
	\repeat unfold 4 { s2 } |
% 100
	\repeat unfold 5 { s2 } |
	e'2
% 106
	a |
	d, |
	\repeat unfold 4 { s2 } |
% 112
	s2 |
	s8 e,4. |
	\repeat unfold 4 { s2 } |
% 118
	\repeat unfold 4 { s2 } |
% 122
	\repeat unfold 5 { s2 } |
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
		s2\pp |
		\repeat unfold 5 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		s2 |
		s2 |
		s4^"sempre" s4\pp | 
		\repeat unfold 2 { s2 } |
% 18
		\repeat unfold 5 { s2 } |
		s2^"cresc." |
% 24
		s2^"poco a poco" |
		\repeat unfold 3 { s2 } |
		s8\< s4^"molto" s8 |
		\!s8 s8 s4 |
% 30
		s2\ff |
		\repeat unfold 5 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		s2^"dim poco a poco" |
		\repeat unfold 4 { s2 } |
% 53
		\repeat unfold 3 { s2 } |
		s2\p |
		s2 |
% 58
		s2 |
		s4. s8_"dim." |
		\repeat unfold 3 { s2 } |
% 63
		s2\pp |
		\repeat unfold 5 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 2 { s2 } |
			s8\ff s4. |
		}
% 74
	\grace s4
	s4\p s4^"cant." |
	\repeat unfold 3 { s2 } |
	s8 s8\< s4 |
	s2 |
% 80
	\!s8 s4. |
	s8\> s4 \!s8 |
	\repeat unfold 4 { s2 } |
	s2\< |
% 87
	s4. \!s8 |
	\repeat unfold 2 { s2 }
	s2\p |
	s2 |
% 92
	\repeat unfold 4 { s2 } |
% 96
	\repeat unfold 2 { s2 } |
	s2\pp |
	s2 |
% 100
	s2\p |
	\repeat unfold 3 { s2 } |
	s2\< |
	s2 |
% 106
	s4 \!s4 |
	s8\> s4 \!s8 |
	\repeat unfold 4 { s2 } |
% 112
	s2\< |
	s2 |
	s4. \!s8 |
	s2 |
	s2\p |
	s2 |
% 118
	\repeat unfold 2 { s2 } |
	s2^" "^" "^"dim." |
	s2 |
% 122
	s2 |
	s8. s16\< s8. \!s16 |
	s4. s8\> |
	s2 |
	\!s8 s4. |
}

pedal = \notes {
% 1
		\repeat unfold 6 { s2 } |
% 7
		\repeat unfold 6 { s2 } |
% 13
		\repeat unfold 5 { s2 } |
% 18
		s2 |
		s2 |
		s2\unaCorda |
		s2 |
		s2 |
		s2\treCorde |
% 24
		\repeat unfold 6 { s2 } |
% 30
		\repeat unfold 6 { s2 } |
% 36
		\repeat unfold 6 { s2 } |
% 42
		\repeat unfold 6 { s2 } |
% 48
		\repeat unfold 5 { s2 } |
% 53
		\repeat unfold 5 { s2 } |
% 58
		\repeat unfold 3 { s2 } |
		s2\unaCorda |
		s2 |
% 63
		\repeat unfold 6 { s2 } |
		{
% 69
			\repeat unfold 2 { s2 } |
		}
		{
% 71
			\repeat unfold 3 { s2 } |
		}
% 74
	\grace s4
	\repeat unfold 6 { s2 } |
% 80
	\repeat unfold 7 { s2 } |
% 87
	s2 |
% manuscript has pedal indication, Peters doesn't -- obvious?
	s8 s8\Down s8 s8\Up | 
	s2 |
	s2\Down |
	s2 |
% 92
	s2\Up\Down |
	s2\Up |
	s2\Down |
	s2 |
% 96
	s2\Up\Down |
	s2\Up |
	s2\Down |
	s2\Up |
% 100
	\repeat unfold 6 { s2 } |
% 106
	\repeat unfold 6 { s2 } |
% 112
	\repeat unfold 2 { s2 } |
	s8 s8\Down s8 s8\Up |
	s2 |
	s2\Down |
	s2\Up\Down |
% 118
	\repeat unfold 4 { s2\Up\Down } |
% 122
	s2\Up\Down |
	s4.\Up\Down s8\Up |
	\repeat unfold 3 { s2 } |
}

\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
      \context Voice = three \lowerOne
      \context Voice = four \lowerTwo
      \context Voice = five \lowerThree
    >
    \context Dynamics=pedal \pedal
  >
  \paper {
    textheight = 11.25\in
    \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
    }
  }
  \midi {
    \tempo 4 = 96
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}