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

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

\header {
  filename =    "ragtime_nightingale.ly"
  title = "Ragtime Nightingale."
  %subtitle =       ""
  %subsubtitle = ""
  composer =    "Joseph E. Lamb"
  %dedication = ""
  %opus = ""
  enteredby =   "KSW 2004/10/09"
  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. 190-193
%}

\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"

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 c \minor
% 1
	s2 * 4 | \repeat volta 2 { s2 | \originalBreak
% 6
		s2 * 6 | \originalBreak
% 12
		s2 * 5 | \originalBreak
% 17
		s2 * 3 | } \alternative { { s2 } { s2 \bar "||" } } | \originalBreak
% 22
	\repeat volta 2 { s2 * 4 | \originalBreak
% 26
		s2 * 4 | \originalBreak
% 30
		s2 * 4 | \originalBreak
% 34
		s2 * 3 | } \alternative { { s2 } { s2 \bar "||" } } | \originalBreak
% 39
	s2 * 4 | \originalBreak
% 43
	s2 * 4 | \originalBreak
% 47
	s2 * 4 | \originalBreak
% 51
	s2 * 4 \key af \major \bar "||" | \originalBreak
% 55
	\repeat volta 2 { s2 * 4 | \originalBreak
% 59
		s2 * 4 | \originalBreak
% 63
		s2 * 4 | \originalBreak
% 67
		s2 * 3 | } \alternative { { s2 } { s2 \bar "||" } } \key c \minor | \originalBreak
% 72
	s2 * 4 \bar "||" | \originalBreak
% 76
	s2 * 4 | \originalBreak
% 80
	s2 * 4 | \originalBreak
% 84
	s2 * 4 | \originalBreak
% 88
	s2 * 4 \bar "|." | \originalBreak
% 92
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
% 1
	s2^" "^" "^"Slow March Tempo."
	s2 * 3 | \repeat volta 2 { s2 |
% 6
		s2 * 6 |
% 12
		s2 * 5 |
% 17
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 22
	\repeat volta 2 { s2 * 4 |
% 26
		s2 * 4 |
% 30
		s2 * 4 |
% 34
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 39
	s2 * 4 |
% 43
	s2 * 4 |
% 47
	s2 * 4 |
% 51
	s2 * 4 |
% 55
	\repeat volta 2 { s2 * 4 |
% 59
		s2 * 4 |
% 63
		s2 * 4 |
% 67
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 72
	s2 * 4 |
% 76
	s2 * 4 |
% 80
	s2 * 4 |
% 84
	s2 * 4 |
% 88
	s2 * 4 |
% 92
}

upperOne = \notes\relative c''{
	\clef G\oneVoice
% 1
	R2 |
	<c16 f,> f <c f,> <g' b, g> ~ <g b, g> g, g' f |
	\voiceOne ef( d c )ef ~ ef( d )c8 |
	\oneVoice <g'4 b, g> r16 \voiceTwo g, <g' d> g, ~ |
	\repeat volta 2 {
		<ef'2 c g> |
% 6
		\oneVoice <c16 f,> f <c f,> <g' b, g> ~ \stemDown <g b, g> g, <g' d> g, ~ \voiceTwo |
		<ef'2 c g> |
		\oneVoice <c16 f,> f <c f,> <g' b, g> ~ <g8 b, g> g16 f |
		e( c' <bf df,> c <af c,> c <g bf,> )c |
		<f,( c af> g c, <)f c af> ~ <f c af> g <f af,> ef |
		<d( af> bf' <af c,> bf <g bf,> bf <f af,> )bf |
% 12
		<ef,( g,> g g, <)f' b,> ~ <f b,> g, \voiceTwo <g' d> g, ~ |
		<ef'2 c g> |
		\oneVoice <c16 f,> f <c f,> <g' b, g> ~ \stemDown <g b, g> g, <g' d> g, ~ \voiceTwo |
		<ef'2 c g> |
		\oneVoice <c16 f,> f <c f,> <g' b, g> ~ <g8 b, g> g16 f |
% 17
		e( c' <bf df,> c <af c,> c <g bf,> )c |
		<f,( c af> g c, <)f c f,> ~ <f8 c f,> <f? c fs,> |
		<g16 ef g,> <bf bf,> <b b,> <c af d, c> ~ <c af d, c> <bf bf,> <c8 af d, c> |
	}
	\alternative {
		{ <ef,4 bf g> ~ <ef16 bf g> g, <g' f b,> g, | }
		{ <ef,4 bf g> ~ <ef16 bf g> <ef' ef,> <d d,> <c c,> | }
	} |
% 22
	\repeat volta 2 {
		<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
		<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <ef ef,> <d d,> <c c,> |
		<b af f b,> <c8 af f c> <d16 af f d> ~ <d af f d> <ef ef,> <d d,> <c c,> |
		<b g ef b> <c8 g ef c> <d16 bf g d> ~ <d bf g d> <ef ef,> <d d,> <c c,> |
% 26
		<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
		<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <a a,> <bf bf,> <c c,> |
		<d bf g d> <bf bf,> <g g,> <ef a, g ef> ~ <ef8 a, g ef> <d c a d,> |
		[ <g d bf g> g,32( bf d g ] \invisible )g'16 \visible [ <ef ef,> <d d,> <c c,> ] |
% 30
		<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
		<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <ef ef,> <d d,> <c c,> |
		<b af f b,> <c8 af f c> <d16 af f d> ~ <d af f d> <ef ef,> <d d,> <c c,> |
		<b g ef b> <c8 g ef c> <d16 bf g d> ~ <d bf g d> <bf( bf,> <a a,> <bf bf,> |
% 34
		<)b ef, b> <ef8 ef,> <ef,16 af, ef> ~ <ef af, ef> <ef( ef,> <f ef a, f> <fs fs,> |
		<g ef bf g> <bf bf,> <c c,> <)d bf e, d> ~ <d bf e, d> <c8 bf e, c> <g16 g,> |
		<bf( df, bf> <af8 c, af> <)g16 bf, g> ~  <g8 bf, g> <f af, f> |
	}
	\alternative {
		{ <ef4 g, ef> ~ <ef16 g, ef> <ef' ef,> <d d,> <c c,> | }
		{ <ef4 g, ef> ~ <ef16 g, ef> g, <g' f b,> g, ~ | }
	} |
% 39
	\tieDown <ef2 c g> |
	\oneVoice <c16 f,> f <c f,> <g' b, g> ~ \stemDown <g b, g> g, <g' d> g, ~ \voiceTwo |
	<ef'2 c g> |
	\oneVoice <c16 f,> f <c f,> <g' b, g> ~ <g8 b, g> g16 f |
% 43
	e( c' <bf df,> c <af c,> c <g bf,> )c |
	<f,( c af> g c, <)f c af> ~ <f c af> g <f af,> ef |
	<d( af> bf' <af c,> bf <g bf,> bf <f af,> )bf |
	<ef,( g,> g g, <)f' b,> ~ <f b,> g, \voiceTwo <g' d> g, ~ |
% 47
	<ef'2 c g> |
	\oneVoice <c16 f,> f <c f,> <g' b, g> ~ \stemDown <g b, g> g, <g' d> g, ~ \voiceTwo |
	<ef'2 c g> |
	\oneVoice <c16 f,> f <c f,> <g' b, g> ~ <g8 b, g> g16 f |
% 51
	e( c' <bf df,> c <af c,> c <g bf,> )c |
	<f,( c af> g c, <)f c f,> ~ <f8 c f,> <f? c fs,> |
	<g16 ef g,> <bf bf,> <b b,> <c af d, c> ~ <c af d, c> <bf bf,> <c8 af d, c> |
	<ef,4 bf g> ~ <ef8 bf g> \times 2/3 {[c'16( ef )c]} |
% 55
	\repeat volta 2 {
		\voiceOne ef,16 ef' c ef c ef c ef |
		<ef df> <ef8 df> <ef16 df> ~ <ef8 df> \ottavaSetup \oneVoice \times 2/3 {[c'16(\ottava ef )c]} |
		\voiceOne ef,16 ef' c ef c ef c ef |
		<ef df> <ef8 df> <ef16 df> ~ <ef8 df> \locoSetup \oneVoice \times 2/3 {[c,16(\loco ef )c]} |
% 59
		\voiceOne ef,16 ef' c ef c ef8. |
		\oneVoice g,16( <bf bf,> <c c,> <)d fs, d> ~ <d fs, d> <c8 fs, c> <d16 fs, d> |
		\voiceOne bf8 af16 bf g bf f bf |
		ef,8 \times 4/5 {[bf32( c bf a bf]} )ef8 \oneVoice \times 2/3 {[c16( ef )c]} |
% 63
		\voiceOne ef,16 ef' c ef c ef c ef |
		<ef df> <ef8 df> <ef16 df> ~ <ef8 df> \oneVoice \times 2/3 {[c'16( ef )c]} |
		\voiceOne ef,16 ef' c ef c ef c ef |
		<ef df> <ef8 df> <ef16 df> ~ <ef8 df> \oneVoice \times 2/3 {[c,16( ef )c]} |
% 67
		\voiceOne af16 af' gf af gf af gf af |
		<af8. f> <af16 df,> ~ <af df,> af g f |
		ef f af g ~ g f ef8 |
	}
	\alternative {
		{ \oneVoice <af8 ef c af> ef\trill \grace{[d16( ef]} [ )ef'8 \times 2/3 {c16( ef )c]} | }
		{ <af8 ef c af> r \ottavaSetup <af'\ottava ef c af> \locoSetup r\loco | }
	} |
% 72
	bf8 \grace c8( )f8 \grace f8( )bf8 \ottavaSetup \grace c8(\ottava )f8 |
	\grace f8( )bf4 \locoSetup r8 \loco \voiceOne\times 2/3 {[c,,16^" "^"R.H."( f )d]} |
	bf8 \times 2/3 {[c'16( f )d]} bf8 \ottavaSetup \times 2/3 {[c'16(\ottava f )d]} |
	bf8 \locoSetup r\loco \oneVoice r16 <bf, bf,> <a a,> <bf bf,> |
% 76
	<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
	<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <ef ef,> <d d,> <c c,> |
	<b af f b,> <c8 af f c> <d16 af f d> ~ <d af f d> <ef ef,> <d d,> <c c,> |
	<b g ef b> <c8 g ef c> <d16 bf g d> ~ <d bf g d> <ef ef,> <d d,> <c c,> |
% 80
	<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
	<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <a a,> <bf bf,> <c c,> |
	<d bf g d> <bf bf,> <g g,> <ef a, g ef> ~ <ef8 a, g ef> <d c a d,> |
	[ <g d bf g> g,32( bf d g ] \invisible )g'16 \visible [ <ef ef,> <d d,> <c c,> ] |
% 84
	<b16( af f b,> <)c8. af f c> <cs,16( bf g cs,> <)d8. bf af d,> |
	<d16( bf g d> <ef8 bf g ef> <)bf'16 g ef bf> ~ <bf g ef bf> <ef ef,> <d d,> <c c,> |
	<b af f b,> <c8 af f c> <d16 af f d> ~ <d af f d> <ef ef,> <d d,> <c c,> |
	<b g ef b> <c8 g ef c> <d16 bf g d> ~ <d bf g d> <bf( bf,> <a a,> <bf bf,> |
% 88
	<)b ef, b> <ef8 ef,> <ef,16 af, ef> ~ <ef af, ef> <ef( ef,> <f ef a, f> <fs fs,> |
	<g ef bf g> <bf bf,> <c c,> <)d bf e, d> ~ <d bf e, d> <c8 bf e, c> <g16 g,> |
	<af c, af> <bf bf,> <c c,> <d af d,> ~ <d af d,> <c c,> <bf8 d, bf> |
	<ef4 bf g ef> \ottavaSetup <ef'8^>\ottava bf g ef> \locoSetup r\loco |
% 92
}

upperTwo = \notes\relative c' {
	\voiceTwo
% 1
	s2 |
	s2 |
	f8. fs16 ~ fs8 fs |
	s2 |
	\repeat volta 2 {
		\voiceOne ef'16 g8. ~ g4 |
% 6
		s2
		ef16 g8. ~ g4 |
		s2 * 4
% 12
		s4 \invisible f4( |
		\visible ef16 )g8. ~ g4 |
		s2 |
		ef16 g8. ~ g4 |
		s2 |
% 17
		s2 |
		s4 f16 ef f fs |
		s2 |
	} \alternative { { s2 } { s2 } } |
% 22
	\repeat volta 2 { s2 * 4 |
% 26
		s2 |
		s2 |
		s2 |
		\voiceTwo s4 r16 s s s |
% 30
		s2 * 4 |
% 34
		s2 * 3 |
	}
	\alternative {
		{ s2 }
		{ s2 }
	} |
% 39
	\voiceOne ef16 g8. ~ g4 |
	s2
	ef16 g8. ~ g4 |
	s2 |
% 43
	s2 * 3
	s4 \invisible f4( |
% 47
	\visible ef16 )g8. ~ g4 |
	s2 |
	ef16 g8. ~ g4 |
	s2 |
% 51
	s2 |
	s4 f16 ef f fs |
	s2 |
	s2 |
% 55
	\repeat volta 2 {
		\voiceTwo [ ef8 f af bf ] |
		af16 f8 g16 ~ g8 s |
		[ ef'8 f af bf ] |
		af16 f8 g16 ~ g8 s |
% 59
		ef,8 f af f16 fs |
		s2 |
		<bf8 d, bf> <af c,> <g bf,> <f af,> |
		g, f ef s |
% 63
		\voiceTwo [ ef8 f af bf ] |
		af16 f8 g16 ~ g8 s |
		[ ef'8 f af bf ] |
		af16 f8 g16 ~ g8 s |
% 67
		[af, a bf c] |
		bf16 f8 af16 ~ af8 <b af> |
		<c8. af> <df16 g,> ~ <df8 g,> <df g,> |
	}
	\alternative {
		{ s2 }
		{ s2 }
	} |
% 72
	s2 * 4 |
% 76
	s2 * 4 |
% 80
	s2 * 4 |
% 84
	s2 * 4 |
% 88
	s2 * 4 |
% 92
}

lowerOne = \notes\relative c, {
	\clef F\oneVoice
% 1
	\dynamicUp
	c16(\mf\< g' c d ef g c \!ef |
	<)d8 af> <d16 af> <d g,> ~ <d8 g,> r |
	<c8. af> <c16 af> ~ <c8 af> <ef af,> |
	<d4 g,> \bOff <g,,8_^ g,> <f'' b, g> \bOn |
	\repeat volta 2 {
		c,,16( g' c d ef g c ef |
% 6
		<)d8 af> <d af> <d g,> <f b,> |
		c,,16( g' c d ef g c ef |
		<)d8 af> <d af> <d g,> r |
		<g, g,> <e' c bf> <c, c,> <e' c bf> |
		<f, f,> <f' c af> <c, c,> <f' c af> |
		<f, f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
% 12
		\stemBoth <ef, ef,> <ef' bf g> <d, d,> <f' b, g> |
		c,,16( g' c d ef g c ef |
		<)d8 af> <d af> <d g,> <f b,> |
		c,,16( g' c d ef g c ef |
		<)d8 af> <d af> <d g,> r |
% 17
		<g, g,> <e' c bf> <c, c,> <e' c bf> |
		<f, f,> <f' c af> <af, af,> <a a,> |
		<bf bf,> <g' ef bf> <bf, bf,> <af' f bf,> |
	}
	\alternative {
		{ <ef8 ef,> <bf bf,> <ef, ef,> <d d,> | }
		{ <ef8 ef,> <bf bf,> <ef, ef,> r | }
	} |
% 22
	\repeat volta 2 {
		<f,8 f,> <d' bf af> <bf, bf,> <af af,> |
		\stemDown <g g,> <ef'' bf g> \stemBoth <g, g,> <gf gf,> |
		<f f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
		\stemBoth <ef, ef,> <ef' bf g> <g, g,> <gf gf,> |
% 26
		<f8 f,> <d' bf af> <bf, bf,> <af af,> |
		\stemDown <g g,> <ef'' bf g> \stemBoth <ef, ef,> <ef' bf g> |
		\stemDown <d, d,> <bf' g d> \voiceOne c16( )a fs( )d |
		g,4 \staffUp\stemUp g''''16^"L.H." \staffDown\stemBoth\oneVoice r16 r8 |
% 30
		<f,,,8 f,> <d' bf af> <bf, bf,> <af af,> |
		\stemDown <g g,> <ef'' bf g> \stemBoth <g, g,> <gf gf,> |
		<f f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
		\stemBoth <ef, ef,> <ef' bf g> <g, g,> <ef' bf g> |
% 34
		<af, af,> <f' b, af> <f b, af> <b, b,> |
		\stemDown <bf bf,> <g' ef bf> <g,, g,> <e'' bf g> |
		<f,, f,> <c'' af f> <bf, bf,> <d' bf af> \stemBoth |
	}
	\alternative {
		{ ef, <bf' bf,> <ef, ef,> r | }
		{ ef, <bf' bf,> <ef, ef,> <d d,> | }
	} |
% 39
	c,,16( g' c d ef g c ef |
	<)d8 af> <d af> <d g,> <f b,> |
	c,,16( g' c d ef g c ef |
	<)d8 af> <d af> <d g,> r |
% 43
	<g, g,> <e' c bf> <c, c,> <e' c bf> |
	<f, f,> <f' c af> <c, c,> <f' c af> |
	<f, f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
	\stemBoth <ef, ef,> <ef' bf g> <d, d,> <f' b, g> |
% 47
	c,,16( g' c d ef g c ef |
	<)d8 af> <d af> <d g,> <f b,> |
	c,,16( g' c d ef g c ef |
	<)d8 af> <d af> <d g,> r |
% 51
	<g, g,> <e' c bf> <c, c,> <e' c bf> |
	<f, f,> <f' c af> <af, af,> <a a,> |
	<bf bf,> <g' ef bf> <bf, bf,> <af' f bf,> |
	<ef8 ef,> <bf bf,> <ef, ef,> r |
% 55
	\repeat volta 2 {
		<af8 af,> <c af ef> <c c,> <c af ef> |
		<bf bf,> <df g, ef> <ef, ef,> <df df,> |
		<c c,> <c' af ef> <ef, ef,> <c' af ef> |
		<bf bf,> <df g, ef> <ef, ef,> <df df,> |
% 59
		<c c,> <c' af ef> <c c,> <cf cf,> |
		<bf bf,> <g' ef bf> <a, a,> <fs' ef a,> |
		<bf, bf,> <af' d, bf> <bf,, bf,> <d' bf af> |
		<ef, ef,> <af( bf,> <)g ef> r |
% 63
		\stemDown <af, af,> <c' af ef> <c, c,> <c' af ef> |
		<bf, bf,> <df' g, ef> \stemBoth <ef, ef,> <df df,> |
		\stemDown <c c,> <c' af ef> \stemBoth <ef, ef,> <c' af ef> |
		<bf bf,> <df g, ef> <ef, ef,> <df' g, ef> |
% 67
		<af af,> <gf' c, af> <c, c,> <gf' ef af,> |
		<df df,> <f df af> <f f,> <d d,> |
		<ef ef,> <ef c af> <ef, ef,> <df' bf ef,> |
	}
	\alternative {
		{ <af8 af,> <fs'( c a> <)g df bf> r | }
		{ <af8 af,> r <af, af,> r | }
	} |
% 72
	<d8 bf> r r4 |
	r\bOff <bf,8_^ bf,> \staffUp\voiceTwo <af''_"L.H."_" "_\f ef(> ~ |
	\bOn <af )d,> <af' ef(> ~ <af )d,> <af' ef(> ~ |
	<af )d,> r \staffDown\oneVoice <bf,,,,_^ bf,> r |
% 76
	\bOn <f'8 f,> <d' bf af> <bf, bf,> <af af,> |
	\stemDown <g g,> <ef'' bf g> \stemBoth <g, g,> <gf gf,> |
	<f f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
	\stemBoth <ef, ef,> <ef' bf g> <g, g,> <gf gf,> |
% 80
	<f8 f,> <d' bf af> <bf, bf,> <af af,> |
	\stemDown <g g,> <ef'' bf g> \stemBoth <ef, ef,> <ef' bf g> |
	\stemDown <d, d,> <bf' g d> \voiceOne c16( )a fs( )d |
	g,4 \staffUp\stemUp g''''16 \staffDown\stemBoth\oneVoice r16 r8 |
% 84
	<f,,,8 f,> <d' bf af> <bf, bf,> <af af,> |
	\stemDown <g g,> <ef'' bf g> \stemBoth <g, g,> <gf gf,> |
	<f f,> <d' bf af> \stemDown <bf, bf,> <d' bf af> |
	\stemBoth <ef, ef,> <ef' bf g> <g, g,> <ef' bf g> |
% 88
	<af, af,> <f' b, af> ~ <f b, af> <b, b,> |
	\stemDown <bf bf,> <g' ef bf> <g,, g,> <e'' bf g> |
	<f,, f,> <f'' c af> <bf,, bf,> <af'' f bf,> |
	<g ef bf> <bf,^> bf,> \stemBoth <ef,_> ef,> r |
% 92
}

lowerTwo = \notes\relative c {
	\voiceTwo
% 1
	s2 * 4 | \repeat volta 2 { s2 |
% 6
		s2 * 6 |
% 12
		s2 * 5 |
% 17
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 22
	\repeat volta 2 { s2 * 4 |
% 26
		s2 |
		s2 |
		s8 s c d, |
		s2 |
% 30
		s2 * 4 |
% 34
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 39
	s2 * 4 |
% 43
	s2 * 4 |
% 47
	s2 * 4 |
% 51
	s2 * 4 |
% 55
	\repeat volta 2 {
		s2 * 4 |
% 59
		s2 * 3 |
		s8 \invisible bf'( )ef \visible s |
% 63
		s2 * 4 |
% 67
		s2 * 3 |
	}
	\alternative {
		{ s8 \invisible a( )bf \visible s }
		{ s2 }
	} |
% 72
	s2 * 4 |
% 76
	s2 * 4 |
% 80
	s2 * 2 |
	s8 s c d, |
	s2 | 
% 84
	s2 * 4 |
% 88
	s2 * 4 |
% 92
}

dynamics = \notes {
%	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
	s2 %%%% s16\mf\< s8. s8. \!s16 |
	s2 |
	s2 |
	s4 s16 s16\> s16 \!s16 |
	\repeat volta 2 {
		s2\mp |
% 6
		s2 * 6 |
% 12
		s2 * 5 |
% 17
		s2 * 3 |
	}
	\alternative {
		{ s2 }
		{ s4 s16\< s8 \!s16 }
	} |
% 22
	\repeat volta 2 {
		s2\mf
		s2 * 3 |
% 26
		s2 * 4 |
% 30
		s2 * 4 |
% 34
		s2 * 3 |
	}
	\alternative {
		{ s2 }
		{ s4 s16\> s8 \!s16 }
	} |
% 39
	s2\mp 
	s2 * 3 |
% 43
	s2 * 4 |
% 47
	s2 * 4 |
% 51
	s2 * 4 |
% 55
	\repeat volta 2 {
		s2\mp |
		s2 * 3 |
% 59
		s2 |
		s16\< s8  \!s16 s4 |
		s2 |
		s8 s8\> \!s8 s8 |
% 63
		s2 * 4 |
% 67
		s2 * 3 |
	}
	\alternative {
		{ s2 }
		{ s4 s4\fz }
	} |
% 72
	s2\mf
	s2 * 2 |
	s4 s16 s8\ff s16 |
% 76
	s2 * 4 |
% 80
	s2 * 4 |
% 84
	s2 * 4 |
% 88
	s2 * 3 |
	s4 s8\fz s |
% 92
}

pedal = \notes {
% 1
	s2 * 4 | \repeat volta 2 { s2 |
% 6
		s2 * 6 |
% 12
		s2 * 5 |
% 17
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 22
	\repeat volta 2 { s2 * 4 |
% 26
		s2 * 4 |
% 30
		s2 * 4 |
% 34
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 39
	s2 * 4 |
% 43
	s2 * 4 |
% 47
	s2 * 4 |
% 51
	s2 * 4 |
% 55
	\repeat volta 2 { s2 * 4 |
% 59
		s2 * 4 |
% 63
		s2 * 4 |
% 67
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 72
	s2 * 4 |
% 76
	s2 * 4 |
% 80
	s2 * 4 |
% 84
	s2 * 4 |
% 88
	s2 * 4 |
% 92
}

outline = \notes {
% 1
	s2 * 4 | \repeat volta 2 { s2 |
% 6
		s2 * 6 |
% 12
		s2 * 5 |
% 17
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 22
	\repeat volta 2 { s2 * 4 |
% 26
		s2 * 4 |
% 30
		s2 * 4 |
% 34
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 39
	s2 * 4 |
% 43
	s2 * 4 |
% 47
	s2 * 4 |
% 51
	s2 * 4 |
% 55
	\repeat volta 2 { s2 * 4 |
% 59
		s2 * 4 |
% 63
		s2 * 4 |
% 67
		s2 * 3 | } \alternative { { s2 } { s2 } } |
% 72
	s2 * 4 |
% 76
	s2 * 4 |
% 80
	s2 * 4 |
% 84
	s2 * 4 |
% 88
	s2 * 4 |
% 92
}

\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
    }
  }
}