\version "2.4.6"

\include "english.ly"

\paper {
	#(set-paper-size "letter")
	leftmargin = 0.5\in
	linewidth = 3.9\in
}

\layout {
	\context {
		\Score
		skipBars = ##t
	}
}

upper = \relative c'' {
	\set Voice.restNumberThreshold = #10000
	\clef treble
	\key f \major
	\time 4/4

	c4\sfz c\pp r2 |
	c2 d4. e8 |

	\key ef \major
	R1 |

	R1*20 |
	R1*21 \bar "||" |

	\time 2/2
	R1 |
	\fatText R1^\markup { \bold "Andante" } |
	R1^\markup { \musicglyph #"scripts-ufermata" }
	c1 ~ |
	c1 ~ |
	c1 ~ |
	\unset Voice.restNumberThreshold
}

lower = \relative c' {
	\override Voice.MultiMeasureRestNumber #'staff-padding = #2
	\clef bass
	\key f \major
	\time 4/4

	R1*2 |

	\key ef \major
	a4 a r2 |

	R1*20 |
	R1*21 \bar "||" |

	\time 2/2
	R1 |
	R1 |
	R1^\markup { \musicglyph #"scripts-ufermata" }
	c1 ~ |
	c1 ~ |
	c1 |

	\revert Voice.MultiMeasureRestNumber #'staff-padding
}

dynamics = {
	s1 |
	\fatText s2^"crescendo" s4.\< s8 |
	s4\! s2. |

	s1*54 |
}

\score {
	\context PianoStaff <<
		\context Staff=upper \upper
		\context Dynamics=dynamics \dynamics
		\context Staff=lower \lower
	>>
	\layout {
		\context {
			\type "Engraver_group_engraver"
			\name Dynamics
			\alias Voice % So that \cresc works, for example.
			\consists "Output_property_engraver"

			minimumVerticalExtent = #'(-1 . 1)

			\consists "Script_engraver"
			\consists "Dynamic_engraver"

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

			\consists "Text_spanner_engraver"
			\override TextSpanner #'font-size = #1

			\consists "Skip_event_swallow_translator"
			\consists "Axis_group_engraver"
		}
		\context {
			\PianoStaff
			\accepts Dynamics
			\override VerticalAlignment #'forced-distance = #5
		}
	}
}