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

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

\header {
  filename =    "moto_app.ly"
  title =       "Moto Appassionato"
  composer =    "W. O. Forsyth"
  dedication = "To Miss Norma Florence Johnston"
  opus = "Op. 32 No. 1"
  enteredby =   "KSW 2004/08/11"
  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 = #.5
	% \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
}

global = \notes {
% 55 bars
	\property Staff.TimeSignature \set #'style = #'()
	\time 4/4
	\key a \major
% 1
	\repeat unfold 7 { s1 * 3 \originalBreak }
% 22
	s1 * 4 \originalBreak
% 26
	s1 * 3 \originalBreak
% 29
	s1 * 4 \bar "||" \break % \originalBreak
% 33
	s1 * 3 \originalBreak
% 36
	s1 * 3 \originalBreak
% 39
	s1 * 3 \originalBreak
% 42
	s1 * 4 \originalBreak
% 46
	s1 * 5 \originalBreak
% 51
	s1 * 5 \bar "|." \originalBreak
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
	s4^" "^" "^"Con am\`ore" s2. |
	s1 * 8 |
	\property Voice.TextScript \revert #'font-style
% 10
	s16 s16^" "^" "^"con abbandono" s8 s2. |
	s8^" "^" "^"a tempo" s8 s2. |
	s1 |
% 13
	s1 * 3 |
% 16
	s1 * 3 |
% 19
	s1 * 3 |
% 22
	s1 |
	\ottavaSetup s2\spanrequest\start "text" s2 |
	s1 * 2 |
% 26
	s4 s4 \locoSetup s16\spanrequest\stop "text" s8. s4 |
	s1 * 2 |
% 29
	s1 * 4 |
% 33
	s2^" "^"Tempo I" s2 |
	s1 * 2 |
% 36
	s1 * 3 |
% 39
	s1 * 3 |
% 42
	s1 * 4 |
% 46
	s1 * 4 |
	s2^"pi\`u lento" s2 |
% 51
	s1 * 3 |
	s4 s4\ottavaSetup s4\spanrequest\start "text" \locoSetup s4\spanrequest\stop "text"
	s1 |
}

upper = \notes\relative c' {
	\slurUp
	cs4.^-( b8 cs e a cs |
	<e4\arpeggio a, cs,> <b8 e, d> <bs e, d> <cs4 a e cs> <)a e cs> |
	cs,4.( b8 cs e a cs |
% 4
	< { <e4^.^- e,> <e^.^- e,> } \\ {b8 a b gs} >
		<)e4^. a, e> r |
	<a4.( e a,> <gs8 e a,> <fs d a> <a d, a> <gs d a> <fs d a> |
	<a4-- c, a> <a-- c, a> <a-- cs, a> <)e-- cs a> |
% 7
	<a4.--( fs ds a> <gs8 gs,> <fs fs,> <gs gs,> <a a,> <as as,> |
	<b4-- e, d b> <b-- e, d b> <b-- e, d b> <)gs gs,> |
	<cs4. gs es cs> <b8 b,>
		< {cs,4 s} \\ {<b'8 b,> <a a,> <gs cs, gs> <fs cs fs,> } >
% 10
	<cs'4-> a cs,> <b8. b,> <fs16 fs,> <a4-- a,> <gs8-- gs,> <fs-- fs,> |
	<e-. cs a e> <a-. a,> <cs-. e, cs> <fs-. fs,> <cs4-- e, cs> <fs,-- b, fs> |
	<a-- e cs a> r r2 |
% 13
	a,4.--( gs8 fs a gs fs |
	<gs4-. cs, gs> gs-. <gs-.\arpeggio ds b gs> <)cs,-. b> |
	<fs4.--( a,> e8-- d-- fs-- e-- d-- |
% 15
	<e4-. a,> e-. <e-. a,> )a,-. |
	<
		\phrasingSlurUp
		{b8\( c d fs b cs-- b-- a-- | a2( )\)gs | } \\
		{s4 d8 ~ <fs d> ~ <fs2 d> | <e1 d> | }
		\phrasingSlurBoth
	> |
% 19
	<a'8( e cs> e a cs < {e cs' b8. a16} \\ {e4 d8. cs16} >  |
	<a2 ds, c> ~ <)a8 ds, c> <fs-- fs,> <gs-- gs,> <a-- a,> |
	<a2 ds, c a> ~ <a8 ds, c a> <a8-> ds, c a> <b-> b,> <c-> c,> |
% 22
	<c2-> a e c> ~ <c8 a e c> <c8-> a e c> <e8.-> e,> <a16-> a,> |
	<c2 a f c> ~ <c8 a f c> <c8-> a f c> <d8.-> d,> <e16-> e,> |
	<f2 bf, f> ~ <f8 bf, f> <f8-> bf, f> <g8.-> g,> <gs16-> gs,> |
	<a1 c, a> ~ |
% 26
	\stemUp <a8 c, a> <g g,> <f16 f,> <ds ds,> <c c,> <a a,>
		<g g,> <f f,> <ds ds,> <c c,> <a a,> <g g,> <f f,> <ds ds,> |
%{ 27 - 29 first cut
	\stemBoth<e2 cs a e> r |
	< { e8( ds fs e d b gs fs | <)e2 cs a> } \\ { gs2 ~ gs4 gs8 fs | s2 } >
% 29 (contd.)
	r2 |
%}
%% 27 - 29 second cut
	<
		{ \stemBoth <e2 cs a e> r |
			\stemUp e8( ds fs e d b gs fs | 
			<)e2 cs a> r
		} \\
		{ s1 |
			gs2 ~ gs4 gs8 fs |
			s2 s2
		}
		> |
	< {e8(\< es \!gs--\> fs-- \!e-- d \staffDown b a | <)gs4 e>} \\
		{gs2 ~ gs4 s | s } >
% 31 (contd.)
	r4 r r8 <
		{<ds'8-> ~ c a> | ds4 e ~ e b8 <e\fermata\arpeggio bs>} \\
		{ s8 | s2 b4 ~ b4 } \\
		{ s8 | \tieDown\stemDown < a2 cs > ~ a4 gs8 gs\arpeggio}
	> |
% 33
	<cs4.--( a> b8 cs e a cs |
	<e4\arpeggio a, cs,> <b8 e, d> <bs e, d> <cs4 a e cs> <)a e cs> |
	cs,4.--( b8 <cs a> e a cs |
% 36
	< { <e4^.^- e,> <e^.^- e,> } \\ {b8 a b gs} >
		<)e4^. a, e> r |
	<a4.--( e a,> <gs8 e a,> <fs d a> <a d, a> <gs d a> <fs d a> |
	<a4 c, a> <a c, a> <a cs, a> <)e cs a> |
% 39
	<a4.--( fs ds a> <gs8 gs,> <fs fs,> <gs gs,> <a a,> <as as,> |
	<b4-> e, d b> <b-> e, d b> <b-> e, d b> <)gs gs,> |
	<cs4.( gs es cs> <b8 b,> <b cs, b> <a cs, a> <gs16 cs, gs> <fs fs,> <gs gs,> <a a,> |
% 42
	<cs4 a cs,> <b8. b,> <fs16 fs,> <a4 a,> <gs8 gs,> <fs fs,> |
	<e cs a e> <a a,> <cs e, cs> <fs fs,> <cs4 e, cs> <)fs, b, fs> |
	r2\fermata d2( ~ |
	d4. cs8 b d cs b |
% 46
	cs4^.^- cs4^.^- cs^.^- )fs, |
	<b4.--(\arpeggio es, d> a8 g-- b-- a-- g-- |
	<a4-- d,> <a-- d, a> <bf-- d, bf> <bf-- d, bf> |
	<b-- d, b> <b-- ds, b> <)e,-- d b> r\fermata |
	cs4.--( b8 <cs a> e <a fs cs> <cs e,> |
% 51
	<e4\arpeggio a, cs,> <b8 e, d> <bs e, d> <cs4 e, cs> <)a cs,> |
	cs,4.--( b8 cs <e a,> <a-- ds, bs> <cs-- e,> |
	<e4-. cs e,> <e-. b e,> <)a\arpeggio cs, a e> r |
	<a'\arpeggio cs, a e> r <a'\arpeggio cs, a e> r |
	R1 |
}

lower = \notes\relative c {
	gs4 < b' e, cs > fs, <a' e cs> |
	e,8 e' a gs a fs <e a,> gs, |
	fs4 <a' ds, b> e, <a' e cs> |
% 4
	gs8 fs gs d' <cs\arpeggio e, a,> fs,--( e-- d-- |
	)cs-- fs <e' a,> fs, d a' <fs' d> a, |
	ds, a' <fs' c> a, e a <e' cs> a, |
% 7
	b, fs' a b ds b a fs |
	[ \times 2/3 { e,8( b' e } \times 2/3 { gs8 b d } ] )e8 r r4 |
	cs,,16( gs' cs es gs b cs )es fs,,( cs' fs a )cs8 r |
% 10
	b,,16( b' ds fs a b )ds r r4 r |
	e,,4 <cs'' a e> e,, <d'' gs, e> |
	<cs\arpeggio e, a,> a,-- gs-- g-- |
% 13
	[ \times 2/3 {fs8( cs' )fs} \times 2/3 {a( fs )cs} ] a4-. <cs'-. fs, cs> |
	[ \times 2/3 {es,,8( gs )cs} \times 2/3 {gs'( cs, )gs} ] cs,4 <es' cs gs> |
	[ \times 2/3 {d,8( a' )d} \times 2/3 {fs( d )a} ] fs4-. <a'-. d, a> |
% 16
	[ \times 2/3 {cs,,8(\< e )gs} \times 2/3 {a( b \!)cs} ]
		[ \times 2/3 {d( ds )e} \times 2/3 {fs(\> f \!)e} ] |
	\tieDown
	d8 cs b4 ~ <b'2 fs d b> |
	\tieBoth
	e,,8 e' a as\< b-- \!bs--\> cs-- \!b-- |
% 19
	< { a2 } \\ { a4 a,} > <g2->( g,(> |
	<)fs8( )fs,> a c fs )a r r4 |
	<f,8->( f,> c a' c )f r r4 |
% 22
	<e,8->( e,> a c e )a r r4 |
	[ <ef,8->( ef,> f \times 2/3 { a8 c f} ] )a8 r r4 |
	[ <d,,8->( d,> f \times 2/3 { bf8 d f } ] )bf8 r <df,, df,> <f' df b gs> |
	\slurUp <f,,( f,> c' f a c \staffUp f' a c |
% 26
	)ds4_> \staffDown\slurBoth r r  <a,,\arpeggio ds, c f,> |
%{ 27 - 29 first cut
	<a8--\arpeggio e cs a e> gs-- a b cs \staffUp e-- gs-- fs-- |
	\staffDown <{e4 d^"calmato" b gs8-- fs--} \\ {e2 ~ e4 r }> |
% 29
	<e8 e,> gs, a b cs e gs-- fs-- |
%}

%% 27 - 29 second cut -- split into voices
	<
		{
			<a8--\arpeggio e cs a e> gs-- a b cs \staffUp\stemDown e-- gs-- fs-- |
			\staffDown\stemUp e4 d^"calmato" b gs8-- fs-- |
			<e8 e,> gs, a b cs e gs-- fs-- 
		} \\
		{
			s1 |
			e2 ~ e4 r |
			s1 
		}
	> |
	< { e4 d b \tieDown\stemDown d ~ | d8 cs-- b-- as--} \\ { e2 ~ e4 r | s2 } > 
		\stemBoth\tieBoth b16-- a-- gs-- fss-- a-- gs-- fs-- f-- |
	\slurUp e2( ~ <)e'4. e,> <e8\arpeggio\fermata bs e,> \slurBoth
% 33
	< { e2 } \\ {a,4 gs} > fs,8 cs' <a' e> cs, |
	e, e' a gs a fs <e a,> gs,-- |
	fs-- b <a' ds,> b, e, cs' e a |
% 36
	gs8 fs gs d' <cs\arpeggio e, a,> fs,--\> e-- \!d-- |
	cs-- fs <e' a,> fs, d-> a' <fs' d> a, |
	ds,-> a' <fs' c> a, e-> a <e' cs> a, |
% 39
	b,-> fs' a b ds b a fs |
	[ \times 2/3 { e,8( b' e } \times 2/3 { gs8 b d } ] )e8 r r4 |
	<cs,16( cs,> gs cs es gs b cs )es fs,,( cs' fs a )cs8 r |
% 42
	b,,16 b' ds fs a b ds r r4 <a\arpeggio c, ds,> |
	<a\arpeggio e cs e,> <cs a e> e,, <d'' gs, e> |
	R1\fermata |
	R |
% 46
	r2 <as4\arpeggio e cs fs,> <e' cs fs,> |
	<b\arpeggio es, d g,> r r2 |
	<a4\arpeggio d, fs,> <fs d fs,> <f d g,> <f d f,> |
	<e g,> <fs g,> <e gs,> r\fermata |
	< {e2.} \\ {a,4 gs-- fs-- }> <a4 e cs> |
% 51
	e,8 e' a gs a fs <e a,> g,-- |
	f-- b <a' ds,> b, e, cs' f-- <a-- e> |
	<ds4-. fs, e> <d-. gs, e> <cs\arpeggio a e a,> r |
	\clef G <cs'\arpeggio e, a,>  r <cs'\arpeggio e, a,> r |
	\clef F \ottavaSetup\ottavaBasso a,,,,,^\ppp\spanrequest\start "text" r\spanrequest\stop "text" r2 |
}

dynamics = \notes {
	s4.\mf s8\< s4. \!s8 |
	s2.\> \!s4 |
	s4.\p s8\< s4. \!s8 |
% 4
	s2\> s8 \!s8 s4 |
	s4.\mf s8 \cresc s2 |
	s2 s2 |
% 7
	\endcresc s4\f s4\cresc s2 |
	s2 s4 s8 \endcresc s8 |
	s16\sf s16^"appassionato" s8 s2. |
% 10
	s4 s8.\> s16 s4_"dim. rit." s8 \!s8 |
	s8\< s4 \!s8 s8 s8\> s4 |
	s8 \!s8 s4 s2_"poco rall" |
% 13
	s2_"tranquillo espress." s2\> |
	s2 s4 \! s4 |
	s4.\> s8 s4. \!s8 |
% 16
	s8 s8\> s4 s4 \!s4 |
	s8 s8_"poco cresc." s4\< \!s8\> s8 s8 \!s8 |
	s8 s8\> s4 \!s8 s8^"esp." s4 |
% 19
	s8\< s4 \!s8^"cresc." s2 |
	s2\sf s2 |
	s2^"poco stringendo" s2 |
% 22
	s2 s8 s8^"cresc." s4 |
	s2\ff s2 |
	s8\< s8 \!s4 s4 s8 s8^"allargando" |
	s8\sf s8 s4 s2 |
% 26
	s16_"brillante" s16\> s8 s4 s4 s8. \! s16 |
	s8\< s8 s4 s8 \! s8 s4 |
	s8.\< \!s16 s8.\> \!s16 s4\> s8 \! s8 |
% 29
	s8\< s8 s4 s8^"espress." \!s8 s8 s8\> |
	\!s4 s4 s8 s8\> s8 \! s8 |
	s4 s8 s8^"riten." s16\< s16 \!s16 s16\> s16 \! s16 s8^"molto rall." |
	s2 s4\> s8 \!s8 |
% 33
	s4\mp s4\< s4 s8 \!s8 |
	s4 s4\> s4 \!s8 s8^"poco rit." |
	s4\> s8 \!s8 s4\< s8^"espress" \!s8 |
% 36
	s2\> s8 \!s8 s8 s8 |
	s2\mf s2^"poco a poco crescendo" |
	s1 |
% 39
	s2\f s4\< s8 \!s8 |
	s1 |
	s4.\ff s8^"appassionato" s2 |
% 42
	s4. s16 s16\> s4 s8 \!s8 |
	s4\< \!s8 s8_"largamente" s4\> s8 \! s8 |
	s2 s8\p s8^"espressivo" s4 |
	s1
% 46
	s4 s4\> s4 \!s4 |
	s4 s8 s8\> s4 s8 \!s8 |
	s4\< \!s4_"poco riten." s4 s8 s8\> |
	s2 \!s8 s8 s4 |
	s4\p s4\< s4. \!s8 |
% 51
	s4. s8\> s4 s8_"rall. esp." \!s8 |
	s4\> \!s8 s8_"poco slentando espress." s4 s8.\> \!s16 |
	s8 s8\> s4 s8 \! s8 s4 |
	s4 s4\pp s2 |
	s4%{_\ppp%} s2. |
}

pedal = \notes {
	s4\sustainDown s8 s8\sustainUp s4\sustainDown s8 s8\sustainUp |
	s4\sustainDown s4\sustainUp s4\sustainDown s4\sustainUp |
	s4\sustainDown s8 s8\sustainUp s4\sustainDown s8 s8\sustainUp |
%4
	s2 s4.\sustainDown s8\sustainUp |
	s4\sustainDown s8 s8\sustainUp s4\sustainDown s8 s8\sustainUp |
	s4\sustainDown s8 s8\sustainUp s4\sustainDown s8 s8\sustainUp |
%7
	s2\sustainDown s4. s8\sustainUp |
	s2\sustainDown s4 s4\sustainUp |
	s4.\sustainDown s16 s16\sustainUp s4.\sustainDown s8\sustainUp |
% 10
	s2\sustainDown s8 s8\sustainUp s4 |
	s4\sustainDown s8 s8\sustainUp s4\sustainDown s8 s8\sustainUp |
	s8.\sustainDown s16\sustainUp s2. |
% 13
	s4\sustainDown s8. s16 \sustainUp s4\sustainDown s8 s8\sustainUp |
	s4\sustainDown s8. s16 \sustainUp s4\sustainDown s8 s8\sustainUp |
	s4\sustainDown s8. s16 \sustainUp s4\sustainDown s8.\sustainUp\sustainDown s16\sustainUp |
% 16
	s1 |
	s1 |
	s4.\sustainDown s8\sustainUp s2 |
% 19
	s2\sustainDown s4 s8. s16\sustainUp |
	s8\sustainDown s8 s4 s8\sustainUp s8 s4 |
	s8\sustainDown s8 s4 s8\sustainUp s8 s4 |
% 22
	s8\sustainDown s8 s4 s8\sustainUp s8 s4 |
	s8\sustainDown s8 s4 s8\sustainUp s8 s4 |
	s8\sustainDown s8 s4 s8\sustainUp s8 s8\sustainDown s8\sustainUp |
	s8\sustainDown s8 s4 s2 |
% 26
	s2 s4 s8. s16\sustainUp |
	s2\sustainDown s8\sustainUp s4. |
	s1 |
% 29
	s1 * 4 |
% 33
	s2 s4.\sustainDown s8\sustainUp |
	s4.\sustainDown s8\sustainUp s2 |
	s4.\sustainDown s8\sustainUp s4.\sustainDown s8\sustainUp |
% 36
	s2 s8\sustainDown s8\sustainUp s4 |
	s4.\sustainDown s8\sustainUp s4.\sustainDown s8\sustainUp |
	s4.\sustainDown s8\sustainUp s4.\sustainDown s8\sustainUp |
% 39
	s2\sustainDown s4. s8\sustainUp |
	s2\sustainDown s8\sustainUp s4. |
	s2\sustainDown s4\sustainUp\sustainDown s4\sustainUp |
% 42
	s4\sustainDown s8. s16\sustainUp s4 s8\sustainDown s8\sustainUp |
	s4.\sustainDown s8\sustainUp s4.\sustainDown s8\sustainUp |
	s1 * 2 |
% 46
	s2 s4.\sustainDown s8\sustainUp |
	s4\sustainDown s4\sustainUp s2 |
	s4\sustainDown s4\sustainUp\sustainDown  s4\sustainUp\sustainDown  s4\sustainUp\sustainDown |
	s4\sustainUp\sustainDown s4\sustainUp s2 |
	s2 s4.\sustainDown s8\sustainUp |
% 51
	s4\sustainDown s8\sustainUp s8 s2 |
	s2\sustainDown s4\sustainUp\sustainDown s8\sustainUp\sustainDown s8\sustainUp\sustainDown |
	s4\sustainUp\sustainDown s4\sustainUp\sustainDown s4\sustainUp\sustainDown s4\sustainUp |
	s4\sustainDown s4\sustainUp s4\sustainDown s4\sustainUp |
	s1 |
}

\score {
\context PianoStaff <
\pianoAccidentals
\followOn
\property PianoStaff.connectArpeggios = ##t
\context Staff=upper < \global \Tempo \upper >
\context Dynamics=dynamics \dynamics
\context Staff=lower <
      \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." "*")
      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 = #7
    }
  }
  \midi {
    \tempo 4=92
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}