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

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

\header {
  filename =    "pastime_no5.ly"
  title = "Pastime Rag"
  subtitle =  "No. 5"
  %subsubtitle = ""
  composer =    "Artie Matthews"
  %dedication = ""
  %opus = ""
  enteredby =   "KSW 2004/10/23"
  copyright =   "public domain"
}

%{
Source: Classic Piano Rags: Complete Original Music for 81 Rags
	published by Dover 1973.
	Selected by Rudi Blesh.
	ISBN 0-486-20469-3
	pp. 244-245
%}

\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 = #1
	% \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
}
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"
pdashf = \dynamicscript #"p - f"
mfdashf = \dynamicscript #"mf - f"

slurHeadHead = {
	\property Voice.Slur \set #'attachment = #'(head . head)
}
slurStemHead = {
	\property Voice.Slur \set #'attachment = #'(stem . head)
}
slurRevert = {
	\property Voice.Slur \set #'attachment = #'(#f . #f)
}
startGraceMusic = \sequential {
	\startGraceMusic
%	\slurUp
}
stopGraceMusic = \sequential {
%	\slurBoth
	\stopGraceMusic
}
mergeDiffDots = {
	\property Staff.NoteCollision \override #'merge-differently-dotted = ##t
}
mergeDiffHeads = {
	\property Staff.NoteCollision \override #'merge-differently-headed = ##t
}
invisible = {
	\property Voice.NoteHead \override #'transparent = ##t
	\property Voice.Stem \override #'transparent = ##t
}
visible = {
	\property Voice.NoteHead \revert #'transparent
	\property Voice.Stem \revert #'transparent
}
joinArpeggios = {
	\property PianoStaff.connectArpeggios = ##t
}
unjoinArpeggios = {
	\property PianoStaff.connectArpeggios = ##f
}
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 e \minor
% 1
	s2 * 3 | s4. \bar "||" s8 |  \repeat volta 2 { s2 * 2 | \originalBreak
% 7
		s2 * 6 | \originalBreak
% 13
		s2 * 6 | \originalBreak
% 19
		s2 } \alternative { {s2} {s2} } \bar "||" s2 * 4 | \originalBreak
% 26
	s2 * 6 | \originalBreak
% 32
	s2 * 6 | \bar "||" \originalBreak
% 38
	s2 * 6 | \originalBreak
% 44
	s2 * 6 | \originalBreak
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 | \originalBreak
% 57
		s2 * 7 | \originalBreak
% 64
		s2 * 5 } \alternative {{s2} {s2} } \bar "||" | \originalBreak
% 71
	\repeat volta 2 { s2 * 6 | \originalBreak
% 77
		s2 * 5 | \originalBreak
% 82
		s2 * 4 } \alternative {{s2} {s2}} | \bar "|." \originalBreak
% 88
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
% 1
	s2^" "^" "^"Moderato"
	s2 * 3 \repeat volta 2 { s2 * 2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 } \alternative { {s2} {s2} } s2 * 4 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2 * 6 |
% 44
	s2 * 6 |
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 |
% 57
		s2 * 7 |
% 64
		s2 * 5 } \alternative {{s2} {s2} } |
% 71
	\repeat volta 2 { s2 * 6 |
% 77
		s2 * 5 |
% 82
		s2 * 4 } \alternative {{s2} {s2}} |
% 88
}

upperOne = \notes\relative c'{
	\clef G\oneVoice
% 1
	\staffDown \voiceOne b16^>^\f as b c^> ~ c b as b |
	\staffUp \oneVoice ds^> b ds fs^> ~ fs ds fs8 |
	<c''16 fs, ds c> <b b,> <a a,> <c fs, ds c> ~ <c fs, ds c> <b b,> <a8 fs ds a> |
	[ <b fs ds b> r <b^^\arpeggio fs ds a> ] r |
	\repeat volta 2 {
		r16 <e b g e> <ds b g ds> <d b g d> ~ <d b g d> <cs g cs,> <c8 g c,> |
		<b16 g e b> <as g e as,> <b g e b> <c g e c> ~ <c g e c> <b b,> <as as,> <b b,> |
% 7
		<b fs b,> <as8 g as,> <a16 fs a,> ~ <a fs a,> <gs f gs,> <g8 e g,> |
		<fs16 ds fs,> <es8 d es,> <fs16 ds fs,> ~ <fs ds fs,> <es d es,> <fs8 ds fs,> |
		r16 <fs' ds fs,> <f d f,> <e cs e,> <ef c ef,> <d b d,> <cs as cs,> <c a c,> |
		<b fs b,> <as fs as,> <b fs b,> <c fs, c> ~ <c fs, c> <b b,> <as as,> <b b,> |
		<b g e b> ds, e <b' g e b> ~ <b g e b> <as as,> <b8 g e b> |
		<b16 fs ds b> ds, fs <b fs ds b> ~ <b fs ds b> <as as,> <b8 fs ds b> |
% 13
		r16 <e b g e> <ds b g ds> <d b g d> ~ <d b g d> <cs g cs,> <c8 g c,> |
		<b16 g e b> <as g e as,> <b g e b> <c g e c> ~ <c g e c> <b b,> <as as,> <b b,> |
		<b fs b,> <as8 g as,> <a16 fs a,> ~ <a fs a,> <gs f gs,> <g8 e g,> |
		<fs16 ds fs,> <es8 d es,> <fs16 ds fs,> ~ <fs ds fs,> <es d es,> <fs8 ds fs,> |
		e,16^> ds e fs^> ~ fs e fs g^> ~ |
		g fs g a^> ~ a gs a as |
% 19
		[b8^> r r <b'^^\arpeggio fs ds a>] |
	}
	\alternative {
		{ [ <e,8^^ b g> \repeat unfold 3 {\grace{as8(} <)b^> b,>} ] | }
		{ <e,8^^ b g> r <d4_>\arpeggio c fs, d> | }
	}
	r16 <d, b d,> <d b e,> <d b fs> <d b g> a b c |
	<d c fs,> d,8 <d'16 c fs,> ~ <d c fs,> d, <d'8 c fs,> |
	r16 <d b d,> <d b e,> <d b fs> <d b g> a b c |
	<d c fs,> d,8 <d'16 c fs,> ~ <d c fs,> <cs cs,> <d d,> <ds ds,> |
% 26
	<e8 gs, e> \grace e8( <)d8 gs,> \grace e8( <)c8 gs> \grace e8( <)b8 gs> |
	\grace e8( <)d16 a e> cs8 <c16 a e> ~ <c a e> b <c a e> b |
	<a g> b c <cs g> ~ <cs g> fs <e cs g> ef |
	<d c> e fs <b fs d> ~ <b fs d> bf <a8 fs c> |
	r16 <d, b d,> <d b e,> <d b fs> <d b g> a b c |
	<d c fs,> d,8 <d'16 c fs,> ~ <d c fs,> d, <d'8 c fs,> |
% 32
	r16 <d b d,> <d b e,> <d b fs> <d b g> a b c |
	<d c fs,> d,8 <d'16 c fs,> ~ <d c fs,> <cs cs,> <d d,> <ds ds,> |
	<e8 gs, e> \grace e8( <)d8 gs,> \grace e8( <)c8 gs> \grace e8( <)b8 gs> |
	\grace e8( <)d16 a e> <cs8 a e> <c16 a e> ~ <c a e> d e g |
	<b, g e> as b <d fs, d> ~ <d fs, d> b <d fs, d> b |
	<g8 d> r <b'^^ fs ds a> r |
% 38
	r16 <e b g e> <ds b g ds> <d b g d> ~ <d b g d> <cs g cs,> <c8 g c,> |
	<b16 g e b> <as g e as,> <b g e b> <c g e c> ~ <c g e c> <b b,> <as as,> <b b,> |
	<b fs b,> <as8 g as,> <a16 fs a,> ~ <a fs a,> <gs f gs,> <g8 e g,> |
	<fs16 ds fs,> <es8 d es,> <fs16 ds fs,> ~ <fs ds fs,> <es d es,> <fs8 ds fs,> |
	r16 <fs' ds fs,> <f d f,> <e cs e,> <ef c ef,> <d b d,> <cs as cs,> <c a c,> |
	<b fs b,> <as fs as,> <b fs b,> <c fs, c> ~ <c fs, c> <b b,> <as as,> <b b,> |
% 44
	<b g e b> ds, e <b' g e b> ~ <b g e b> <as as,> <b8 g e b> |
	<b16 fs ds b> ds, fs <b fs ds b> ~ <b fs ds b> <as as,> <b8 fs ds b> |
	r16 <e b g e> <ds b g ds> <d b g d> ~ <d b g d> <cs g cs,> <c8 g c,> |
	<b16 g e b> <as g e as,> <b g e b> <c g e c> ~ <c g e c> <b b,> <as as,> <b b,> |
	<b fs b,> <as8 g as,> <a16 fs a,> ~ <a fs a,> <gs f gs,> <g8 e g,> |
	<fs16 ds fs,> <es8 d es,> <fs16 ds fs,> ~ <fs ds fs,> <es d es,> <fs8 ds fs,> |
% 50
	e,16^> ds e fs^> ~ fs e fs g^> ~ |
	g fs g a^> ~ a gs a as |
	[b8^> r r <b'^^\arpeggio fs ds a>] |
	<e,8^^ b g> r <d4_>\arpeggio c fs, d> |
	\repeat volta 2 {
		<d16 b g> d,8 <d'16 b g> ~ <d b g> d, <d' b es,> d, |
		r <a' fs c> <b fs d> <c fs, e> ~ <c fs, e> <b fs d> <a8 fs c> |
		<b16 g d> b,8 <g'16 d g,> ~ <g d g,> fs <e cs g> es |
% 57
		<fs d c> fs,8 <d'16 c> ~ <d c> <e' c fs,> <d8 c fs,> |
		<d16 b g> d,8 <d'16 b g> ~ <d b g> <cs cs,> <d d,> <e e,> |
		<fs d a> fs,8 <fs'16 d a> ~ <fs d a> <es es,> <fs fs,> <g g,> |
		<a8 a,> <g cs, b> <fs cs a> <e cs g> |
		<d c fs,> <c fs, e> <b fs d> <a fs c> |
		<d16 b g> d,8 <d'16 b g> ~ <d b g> d, <d' b es,> d, |
		r <a' fs c> <b fs d> <c fs, e> ~ <c fs, e> <b fs d> <a8 fs c> |
% 64
		<d16 b g> d,8 <d'16 b g> ~ <d b g> d, <d' b es,> d, |
		r <a' fs c> <b fs d> <c fs, e> ~ <c fs, e> <b fs d> <a8 fs c> |
		\grace cs8( )d16 d, e fs g a b cs? |
		d e8 d16 ~ d8 r |
		r16 <a fs c> <b fs d> <c fs, e> ~ <c fs, e> <b fs d> <a8 fs c> |
	}
	\alternative {
		{<g8 d b> r <d'4_> c fs, d> | }
		{<g8 d b> r r4 | }
	} |
% 71
	\repeat volta 2 {
		r16. [<as'32 cs,> <b16. d,> <fs32 as,>] [<g16. b,> <ds32 fs,> <e16. g,> <ds32 fs,>] |
		<e16 c fs,> <ef8 c fs,> <d16 c fs,> ~ [<d16. c fs,> e'32 <d8 c fs,>] |
		r16. [<as32 cs,> <b16. d,> <fs32 as,>] [<g16. b,> <ds32 fs,> <e16. g,> <ds32 fs,>] |
		<e16 c fs,> <ef8 c fs,> <d16 c fs,> ~ [<d16. c fs,> <d32 d,> <e16. e,> <fs32 fs,>] |
		[<g16. b, g> d32 fs16. <g32 b, g>] [d16. fs32 <g16. b, g> d32] |
		[<g16. c, g> e32 fs16. <g32 c, g>] [e16. fs32 <g16. c, g> e32] |
% 77
		[<a16. g a,> gs32 <a16. g a,> gs32] [<a16. g a,> gs32 <a16. g a,> gs32] |
		[<b16. g cs,> as32 <b16. g cs,> <d32 fs, d> ~ ] <d8 fs, d> r |
		r16. [<as32 cs,> <b16. d,> <fs32 as,>] [<g16. b,> <ds32 fs,> <e16. g,> <ds32 fs,>] |
		<e16 c fs,> <ef8 c fs,> <d16 c fs,> ~ [<d16. c fs,> e'32 <d8 c fs,>] |
		r16. [<as32 cs,> <b16. d,> <fs32 as,>] [<g16. b,> <ds32 fs,> <e16. g,> <ds32 fs,>] |

% 82
		<e16 c fs,> <ef8 c fs,> <d16 c fs,> ~ [<d16. c fs,> <d32 d,> <e16. e,> <fs32 fs,>] |
		[<g16. b, g> d32 fs16. <g32 b, g>] [d16. fs32 <g16. b, g> d32] |
		[<g16. c, g> e32 fs16. <g32 c, g>] [e16. <g32 g,> <a16. a,> <as32 as,>] |
		\voiceOne b16. [cs32 d16. as32] [b16. fs32 g16. cs,32] |
	}
	\alternative {
		{\voiceOne d16 r \oneVoice [<b'8^^ fs c> <g^^ d b>] r | }
		{\voiceOne d16 r \oneVoice [<b'8^^ fs c> <g^^ d b>] r | }
	} |
% 88
}

upperTwo = \notes\relative c' {
	\voiceTwo
% 1
	s2 * 4 \repeat volta 2 { s2 * 2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 } \alternative { {s2} {s2} } s2 * 4 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2 * 6 |
% 44
	s2 * 6 |
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 |
% 57
		s2 * 7 |
% 64
		s2 * 5 } \alternative {{s2} {s2} } |
% 71
	\repeat volta 2 { s2 * 6 |
% 77
		s2 * 5 |
% 82
		s2 * 4 } \alternative {{s2} {s2}} |
% 88
}

lowerOne = \notes\relative c {
	\clef F\oneVoice
% 1
	\voiceTwo b16_> as b c_> ~ c b as b |
	\oneVoice ds^> b ds fs^> ~ fs ds fs8 |
	<fs'8. ds c a> <ds16 c a fs> ~ <ds8 c a fs> <c a fs ds> |
	[<b a fs ds> r <ds^^\arpeggio fs, b,>] b,^> |
	\repeat volta 2 {
		\repeat unfold 2 {
			<e8. e,> <e'16 b g> ~ <e8 b g> b, } |
% 7
		<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
		\repeat unfold 2 { 
			<fs'8. a,> <ds'16 b a fs> ~ <ds8 b a fs> b, } |
		<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
		<e8. e,> <e'16 b g> ~ <e8 b g> b, |
		<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
% 13
		\repeat unfold 2 {
			<e8. e,> <e'16 b g> ~ <e8 b g> b, } |
		<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
		<fs'8. a,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
		e16^> ds e fs^> ~ fs e fs g^> ~ |
		g fs g a^> ~ a gs a as |
% 19
		[b8^> r r <ds^^\arpeggio fs, b,>] |
	}
	\alternative {
		{<e8^^ b g e> [ <b,_> b,> <cs_> cs,> <ds_> ds,> ] | }
		{<e8^^ b g e> r <fs,4\arpeggio_> a, d,> | }
	}
	\repeat unfold 2 {
		<b8\arpeggio d, g,> <b g d> <d, d,> <b' g d> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> | 
	}
% 26
	<b8 b,> <f'\arpeggio e,> <e e,> <d e,> |
	<a a,> <c a e> <a a,> <c a e> |
	<cs\arpeggio e, a,> <cs a g> <a a,> <cs a g> |
	<fs, a, d,> <c' fs, d> <d, d,> <c' fs, d> |
	\repeat unfold 2 {
		<b8\arpeggio d, g,> <b g d> <d, d,> <b' g d> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> | 
	}
% 34
	<b8 b,> <f'\arpeggio e,> <e e,> <d e,> |
	<a a,> <c a e> <a a,> <c a e> |
	<cs\arpeggio e, a,> <cs a g e> <fs,\arpeggio a, d,> <c' fs, d> |
	<b\arpeggio d, g,> r \stemDown <ds^^\arpeggio fs, b,> b,^> |
% 38
	\oneVoice \repeat unfold 2 {
		<e8. e,> <e'16 b g> ~ <e8 b g> b, } |
	<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
	\repeat unfold 2 { 
		<fs'8. a,> <ds'16 b a fs> ~ <ds8 b a fs> b, } |
	<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
% 44
	<e8. e,> <e'16 b g> ~ <e8 b g> b, |
	<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
	\repeat unfold 2 {
		<e8. e,> <e'16 b g> ~ <e8 b g> b, } |
	<ds8. ds,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
	<fs'8. a,> <ds'16 b a fs> ~ <ds8 b a fs> b, |
% 50
	e16^> ds e fs^> ~ fs e fs g^> ~ |
	g fs g a^> ~ a gs a as |
	[b8^> r r <ds^^\arpeggio fs, b,>] |
	{<e8^^ b g e> r <fs,4\arpeggio_> a, d,> | }
	\repeat volta 2 {
		<g8 g,> <b g d> <g g,> <gs gs,> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<g g,> <b g d> <b b,> <bf bf,> |
% 57
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<g g,> <b g d> <b b,> <bf bf,> |
		<a a,> <fs' d a> <a, a,> <fs' d a> |
		< e, e,> <g' cs, a> <a,, a,> <g'' cs, a> |
		<d, d,> <c' fs, d> <d, d,> <c' fs, d> |
		<g g,> <b g d> <g g,> <gs gs,> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
% 64
		<g g,> <b g d> <g g,> <gs gs,> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		\grace cs8( )d16 d, e fs g a b cs?  |
		d e8 d16 ~ d8 <ef,^^ ef,> |
		<d2^^ d,> |
	}
	\alternative {
		{<g8 g,> r <fs4\arpeggio_> a, d,> | }
		{[<g8 g,> <d_> d,> <e_> e,> <fs_> fs,>] | }
	} |
% 71
	\repeat volta 2 {
		\stemDown <g8 g,> <b g d> <d, d,> <b' g d> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<g g,> <b g d> <d, d,> <b' g d> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<f8. b, g> <f16 b, g> ~ <f8 b, g> <f b, g> |
		<e8. c g> <e16 c g> ~ <e8 c g> <e c g> |
% 77
		<cs e,> <cs fs,!> <cs g> <cs fs,> |
		<cs4( e, a,> <)c8 fs, d> <d, d,> |
		<g8 g,> <b g d> <d, d,> <b' g d> |
		<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<g g,> <b g d> <d, d,> <b' g d> |
% 82
	 	<a a,> <c fs, d> <d, d,> <c' fs, d> |
		<f8. b, g> <f16 b, g> ~ <f8 b, g> <f b, g> |
		<e8. c g> <e16 c g> ~ <e8 c g> r |
		\staffUp\voiceTwo b'16. [cs32 d16. as32] [b16. fs32 g16. cs,32] |
	}
	\alternative {
		{\staffUp\voiceTwo d16 r \staffDown\voiceOne [<d,8_^ d,> <g_^ g,>] <d_> d,> | }
		{\staffUp\voiceTwo d16 r \staffDown\voiceOne [<d,8_^ d,> <g_^ g,>] r | }
	} |
% 88
}

lowerTwo = \notes\relative c {
	\voiceTwo
% 1
	s2 * 4 \repeat volta 2 { s2 * 2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 } \alternative { {s2} {s2} } s2 * 4 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2 * 6 |
% 44
	s2 * 6 |
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 |
% 57
		s2 * 7 |
% 64
		s2 * 5 } \alternative {{s2} {s2} } |
% 71
	\repeat volta 2 { s2 * 6 |
% 77
		s2 |
		\invisible a4( )d8 s8 \visible | 
		s2 * 3 |
% 82
		s2 * 4 } \alternative {{s2} {s2}} |
% 88
}

dynamics = \notes {
%	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
	s2 |
	s2 |
	s16\< s8. s8 \!s8 |
	s2 |
	\repeat volta 2 {
		s2\pdashf |
		s2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 }
	\alternative {
		{s2}
		{s2}
	}
	s2\mf
	s2 * 3 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2\f
	s2 * 5 |
% 44
	s2 * 6 |
% 50
	s2 * 3 |
	s4 s4\fz |
	\repeat volta 2 {
		s2\pdashf
		s2 * 2 |
% 57
		s2 * 7 |
% 64
		s2 * 5 |
	}
	\alternative {
		{s4 s4\fz | }
		{s2 |}
	} |
% 71
	\repeat volta 2 {
		s2\mfdashf
		s2 * 5 |
% 77
		s2 * 5 |
% 82
		s2 * 4 |
	}
	\alternative {
		{s2}
		{s2}
	} |
% 88
}

pedal = \notes {
% 1
	s2 * 4 \repeat volta 2 { s2 * 2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 } \alternative { {s2} {s2} } s2 * 4 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2 * 6 |
% 44
	s2 * 6 |
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 |
% 57
		s2 * 7 |
% 64
		s2 * 5 } \alternative {{s2} {s2} } |
% 71
	\repeat volta 2 { s2 * 6 |
% 77
		s2 * 5 |
% 82
		s2 * 4 } \alternative {{s2} {s2}} |
% 88
}

outline = \notes {
% 1
	s2 * 4 \repeat volta 2 { s2 * 2 |
% 7
		s2 * 6 |
% 13
		s2 * 6 |
% 19
		s2 } \alternative { {s2} {s2} } s2 * 4 |
% 26
	s2 * 6 |
% 32
	s2 * 6 |
% 38
	s2 * 6 |
% 44
	s2 * 6 |
% 50
	s2 * 4 \repeat volta 2 { s2 * 3 |
% 57
		s2 * 7 |
% 64
		s2 * 5 } \alternative {{s2} {s2} } |
% 71
	\repeat volta 2 { s2 * 6 |
% 77
		s2 * 5 |
% 82
		s2 * 4 } \alternative {{s2} {s2}} |
% 88
}

\score {
\context PianoStaff <
\pianoAccidentals
\followOn\followOff
%\joinArpeggios
\context Staff=upper < \global \Tempo 
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
	\mergeDiffDots\mergeDiffHeads
	\context Voice = one \upperOne
	%{ \context Voice = two \dynamics %}
	\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
      \mergeDiffDots\mergeDiffHeads
      \context Voice = three \lowerOne
      \context Voice = four \lowerTwo
    >
    \context Dynamics=pedal \pedal
  >
  \paper {
    textheight = 10.35\in
    \translator {
      \type "Engraver_group_engraver"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver"
      
      minimumVerticalExtent = #'(-1 . 1)
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      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)
      DynamicTextSpanner \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 = 72
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}