\version "2.12.3"

\header {
	title = "Sonate L345"
	composer = "D. Scarlatti"
}

\paper {
  #(set-paper-size "a4")
  paper-width = 20\cm
  paper-height = 23\cm
  top-margin = 1.5\cm
  bottom-margin = 1.5\cm
  ragged-last-bottom = ##t
}

global = {
	\key a \major
	\time 4/4
	\compressFullBarRests
	\tempo "Allegrissimo" 2=120
     }

upper = \relative c'' {
     \global
     << \new Voice = "upper1"  {
%1
	r4 cis8-3( a-1 <cis^2 e-4-.>4) <d^1 fis-5-.> |
	<cis-2 e-4-.>4 cis,-2-. d-. e-. |
%3
	a,4-. cis'8-3(  a <cis^2 a'-5-.>4) <d^1 b'-5-.> |
	<a'-5 cis,^4>4 cis,,-. d-. e-. |
%5
	a,4-. cis'8-2( a e' cis a <d^3 fis-5> |
	<e-4 cis^2>4) cis,-. d-. e-. |
%7
	a,4-. cis'8-2(  a a' cis, d-1 b' |
	<a-4 cis,^1>4) cis,,-. d-. e-. |
%9
	a,8-. \phrasingSlurUp e'-4\( cis-2 a-1 fis'-3 d-1 gis-4 e-2 |
	a8-5 e-3 cis a fis'-4 d gis e |
%11
	a8 e cis a\) a'4-4\( \stemUp b-5 |
	cis4-5\) r4 a-4\( b-3 |
%13
	cis8-4 e cis-3 a-1\) \stemDown fis'\( d gis e |
	a8 e cis a fis' d gis e |
%15
	a4\) s2 s4 |
	a4\rest \stemUp a2-4\( b4-5\) |
%17
	\stemDown a8-5-.\( cis,-2 b a-2\) a'-.\( b,-1 a-3 gis-2\) |
	a'8-5-.\( cis,-2 b a-2\) a'-.\( b,-1 a-3 gis-2 |
%19
	\stemUp a4-1-.\) \stemDown <cis^3 e-5>2\( <b d>4 |
	<cis a>4\) b2-2\( \stemUp a4 |
%21
	gis8-3\) b-5\( gis-2 e \stemDown cis'-3 a-1 dis b |
	e8 b gis e cis' a dis b |
%23
	e4-.\) <b^2 gis'-5>2\( <a fis'>4 |
	<gis e'-.-3>4\) <b gis'>2\( <a fis'>4\) |
%25
	\stemUp \phrasingSlurDown e'8-.-5\( gis,-3 fis e\) e'-.\( fis,-2 e dis-2\) |
	e'8-.\( gis, fis e\) e'-.\( fis, e dis\) |
%27
	e8\( e' f,-1 d'-4 e,-1 cis'-5 d,-1 b'-4 |
	e,8-1 c'-5 d,-1 b'-4 c,-1 a'-5 b,-1 gis'-4 |
%29
	a4-.-5\) \phrasingSlurUp <b-4 gis^2 >\( <c-5 a^3> <d-3 b^1> |
	\stemDown <e c>4 <f-5 gis,^1>  <e-4 a,^1> <d-3 b^2>\) |
%31
	\phrasingSlurDown c8_5\( a_3 e_1 c'_5 b_4 g_2 e b'_5 |
	a8 f d a'_5 g e c g'_5 |
%33
	f8 d b f'_5 e c a e'_5 |
	d8 b_2 gis d'_4 c e a, c_4 |
%35
	\stemUp b8\) e, gis\( b e b_1 gis'_4 e_1 | 
	\stemNeutral e'4-5\) \phrasingSlurUp b2-4\( a4 |
%37
	\stemNeutral gis8\) e\( gis b e b-1 gis'-4 e-2 |
	b'4-5\) b2-5\( a4~ |
%39
	a8 gis fis e gis-3 fis e dis-2 |
	e8-1 gis-3 fis e dis-4 cis b a |
%41
	gis8_3 a b a gis fis e dis_2 |
 	\stemDown e8-.\) \phrasingSlurDown g_3\( fis g b a g fis |
%43
	g8_1\) g_3\( fis g b a g fis |				 
 	g8 fis g a b f_1 a_3 gis |
%45
	a8 e_1 a c_5 b f_1 e_2 d |				 
	a'8_5 dis,_2 e_1 a_5 g_4 e_2 fis_3 dis_1 |
%47
	<g-4 e^2>8 b, <a' fis> c, <g' e> b, <fis'-2 dis> b, |		 
	<g' e>8 b, <a' fis> c, <g' e> b, <fis' dis> b, |
%49
	<g'-5 e^2>8\) b_4\( g_2 e_1 c' a e c' |			 
	b8 g e b' a fis_2 dis a'_5 |  
%51	
	g8 e c a'_4 b fis_2 d fis |
	b8 e, c a'_4 b fis_3 dis b\) |
%53
	\stemUp \phrasingSlurUp b'8-5\( a g fis g e a fis |
	g8 e fis_4 dis_2\) \stemDown \phrasingSlurDown e-1\( b'-4 g e |
%55
	c'8 a e c' b g e b' |
	a8 fis_2 dis a' g e c g'_3 |
%57
	fis8 d b fis' e c a e' |
	\stemUp dis8 b dis fis b a g fis |
%59
	g8 e a fis g e fis_4 dis_2 |
	\stemDown e8-3\) b-1\( gis'_4 e_2 fis_3 dis_1 a'_4 fis_2 |
%61
	gis8_3 e_1 b' e, fis_2 dis_1 a'_4 fis |
	gis8 e b' e, fis dis a' fis |
%63
	\stemUp gis8 a b a gis fis e dis_2 |
	\stemDown e8-3 b gis' e fis dis a' fis |
%65
	gis8 e b' e, fis dis a' fis |
	gis e b' e, fis dis a' fis |
%67
	\stemUp gis8 a b a gis fis e dis-3 |
	\stemDown e8-5\) \clef bass \phrasingSlurUp b-2\( cis a-1 gis-2 e' fis,-1 dis'-4 |
%69
	e8 b gis e\) e2^\markup { \finger "(23232)" } \prall | 
	\clef treble \bar ":|:"
	\stemUp r8 e'-1\( fis e gis e a e |
%71
	b'8 e, gis-2 e a e b' e, |
	cis'8 e, gis e a e b' e, |
%73
	cis'8 e, gis e a e b' e, |
	\stemDown cis'8-5\) a-1\( b-2 a cis a d a |
%75
	e'8 a, cis-2 a d a e' a, |
	fis'8 a, cis a d a e' a, |
%77
	fis'8 a, cis a d a e' a, |
	fis'8-5\) \phrasingSlurDown a,_1\( d_2 a e' a, g' a, |
%79
	fis'8 a, d a e' a, g' a, |
	fis'8 a, e' a, dis b a' b, |
%81
	gis'8 b,e b fis' b, a' b, |
	gis'8 b, e b fis' b, a' b, |
%83
	gis'8-4 f-3 e d c-3 b a gis-2 |
	a8-1\) \phrasingSlurUp a'-4\( gis a b d,-1 c-3 b-2 |
%85
	c8-1 f-5 e d c b a-3 gis-2 |
	a8-1\) a'\( gis a b d, c b |
%87
	c8-1 a'-5 b,-1 g'-4 a,-1 f'-5 g,-1 e'-4 |
	\stemNeutral f,8 d'-5 e, c'-4 d, b'-5 c, a'-4 |
%89
	b8 a gis fis e4-.\) e'^>~\( |
	e8 d c b \stemDown a4-.\) a'^>~\( |
%91
	a8 g f e d4-.\) b'^>~\( |
	b8 a gis fis e4.\) gis8-2\( |
%93
	a8-1 b c d c b a gis-3 |
	a8-5 f-3 e d c-3 b a gis-2 |
%95
	a8-1 b c d \stemDown c b a gis |
	a8_3\) \phrasingSlurDown e_1\( c'_5 a_3 b_4 g e b'_5 |
%97
	a8 f d a' g e c g' |
	f d b f' e c a e' |
%99
	d8 b g d' c a f c' |
	e8 b g b e a, f d' |
%101
	\stemNeutral e8 b-3 gis-2 b-3 e4-.-5\) gis-.-2 |
	\stemDown \phrasingSlurUp a8-1\( b c d c b a gis |
%103
	a8\) \phrasingSlurDown e\( c' a b g e b' |
	a8 f d a' g e c g' |
%105
	f8 d b f' e c a e' |
	d8 b g d' c a f c' |
%107
	e8 b g b e a, f d' |
	\stemNeutral e8 b gis b e4-.\) gis-. |
%109
	\stemDown \phrasingSlurUp a8\( b c d c b a gis |
	a8\) \phrasingSlurDown e\( cis' e, b' e, d' e, |
%111
	cis'8 e, a e b' e, d' e, |
	cis'8 e, a e b' e, d' e, |
%113
	cis'8_3 d e d cis b a gis_2 |
	a8_3\) e\( cis' e, b' e, d' e, |
%115
	cis'8 e, a e b' e, d' e, |
	cis'8 e, a e b' e, d' e, |
%117
	cis'8 d e d cis b a gis |
	\stemNeutral a8-5\) \phrasingSlurUp e_2\( fis d_1 cis_2 a' b, gis'_4 |
%119
	a8 e cis a b-2 d-1 e-2 gis-4 |
	a8 e cis a b d e gis |
%121
	a8 e cis a b d e gis\) |
	\grace gis4-4 <a e cis>1 \arpeggio |
	\bar ":|"
     } \\
     \new Voice = "upper2"  {
%1
	s1*10
%11
	s2 \stemDown \phrasingSlurDown fis8-2\( d gis-3 e |
	a8-4 e_1 cis_2 a\) fis'-2 d gis e |
%13
	a4-2 s2 s4 |
	s1 |
%15
	s4 e'2-3\( d4-2 |
	cis2-1 d-1\) |
     }
     >>
}

lower = \relative c {
     \global
     << \new Voice = "lower1"  {
%1
	s1*30
%31
	s4 \change Staff = "upper" \stemUp   
	a'''-.-2 s g-2-. | 
%33
	s4 f-. s e-. | 
     	s4 d-. s c-. | 
%35
	s4 b-. s a-. | 
     	s1*7
%42
	s4 \phrasingSlurUp b'-3\( c-2\) s |
%43
	s4 b\( c\) s | 
	s4 c\( b\) s |
%45
	s4 c\( b\) s | 
	s4 a\( g\) s |
%47
	s4 a\( g\) s | 
	s4 a\( g\) s |
%49
	s4 b^. s c^. | 
	s4 b^. s a^. |
%51
	s4 g^. s fis^. | 
	s4 e^. s dis^. | 
%53
	\change Staff = "lower" b,4\rest b2\( a4 | 
	b4\) s2 \change Staff = "upper" b''4^. |
%55
	s4 c^. s b^. | 
	s4 a^. s g^. |
%57
	s4 fis^. s e^. | 
	s1 |
%59
	s1 | 
	s4 b'^.-2 s2 |
%61
	s4 b^. s2 | 
	s4 b^. s2 |
%63
	s1 | 
	s4 b^. s2 |
%65
	s4 b^. s2 | 
	s4 b^. s2 |   
	s1*11
%78
	s4 a s2 |
%79
	s4 a^. s2 |
	s4 a^. s2 |
%81
	s4 b^. s2 |
	s4 b^. s2 |
	s1*13
%96
	s4 c^.^2 s b^. |
%97
	s4 a^. s g^. |
	s4 f^. s e^. |
%99	
	s4 d^. s c^. |
	s4 b^. s a^. |
%101
	s1*2
%103
	s4 c'^. s b^. |
	s4 a^. s g^. |
%105
	s4 f^. s e^. |
	s4 d^. s c^. |
%107
	s4 b^. s a^. |
	s1*2
%110
	s4 a'^. s2 |
	s4 a^. s2 |
	s4 a^. s2 |
%113
	s1 |
	s4 a^. s2 |
%115
	s4 a^. s2 |
	s4 a^. s2 |
%117
	s1*4 |
%121	
	\change Staff = "lower" s4^\markup{ \italic rall. } s2. |
	s1
     } \\
     \new Voice = "lower2"  {
     	\relative c
%1
	r1 |
	r4 <cis,,, cis,-.> <d d,-.> <e e,-.> |
%3
	<a, a,-.>4 r4 r2 |
	r4 <cis cis,-.> <d d,-.> <e e,-.> |
%5
	<a, a,-.>4 r4 r2 |
	r4 <cis cis,-.> <d d,-.> <e e,-.> |
%7
	<a, a,-.>4 r4 r2 |
	r4 <cis cis,-.> <d d,-.> <e e,-.> |
%9
	<a, a,-.>4 r4 r2 |
	<a a,>4 r4 r2 |
%11
	<a a,>4 r4 r2 |
	<a a,>4 r4 r2 |
%13
	<a a,>4 r4 r2 |
	<a a,>4 r4 r2 |
%15
	\clef treble
	r8 e''-2( cis-3 a-5 fis'-1 d-5 gis-2 e-4 |
	a8-1 e cis a fis' d gis e |
%17
	a4-.) cis,-1( d e |
	a4-.) cis,( d e) |
%19
	\clef bass
	r8 e,_2( cis_3 a_5 fis'_1 d_5 gis_2 e_4 |
	a8_1 e_5 b'_2 e, cis'_1 e, dis' e, |
%21
	e'4-.) e,_5( a_2 fis_4 |
	gis_3 e a fis |
%23
	gis8) b(_2 gis_3 e_5 cis'_1 a_5 dis_2 b_4 |
	e_1 b gis e cis' a dis b |
%25
	e4-.) gis,( a b |
	e-.) gis,( a b |
%27
	e,4-.) r4 r2 |
	r1 |
%29
	r8 f4_4( d'8 e,_5 c'_1 d,_4 b' |
	c,8_5 a'_1 d,_4 b' c,_5 a'_1 b,_4 gis' |
%31
	a,4) s \stemDown g'_5-. s |
	f4-. s e-. s |
%33	
	d4-. s \stemNeutral c-. s |
	b4-. s a-. s |
%35	
	e4-. r r2 |
	r8 b''_2( gis_3 e_5 cis'_1 a_5 dis_2 b_4 |
%37
	e8-._1) r r4 r2 |
	\clef treble r8 b'( gis e cis' a dis b |
%39
	e4-.) \phrasingSlurDown gis,\( a b |
	\stemDown e,8-.\) e'( \stemNeutral dis cis b a gis fis |
%41
	e4-.) \clef bass \stemDown a,_2( b \stemUp b, |
	\stemDown e4_2) s s dis_5( | 
%43
	e4) s s dis( | 
	e4) s s d_4( | 
%45
	\stemNeutral c4) s s d( |
	c4) s s \slurDown b( | 
%47
	e4) s s b( | 
	e4) s s b( |
%49
	\stemDown e4-.) s a-. s | 
	g-. s fis-. s |
%51
	e4-. s d-. s | 
	\stemUp c-. s b-. s | 
%53
	b4\rest \stemDown \phrasingSlurDown dis_5\( e a_2 | 
	b4\) \stemNeutral b,-. g'-._1 s |  
%55
	a4-._5 s g-. s | 
	fis-. s e-. s |
%57
	d4-. s c-. s | 
	b4-._5 b2_4\( dis4-2 |
%59
	e4 a_2 b\) b,-. | 
	e4-._3 s b2->( |
%61
	e4-.) s b,2->( | 
	e4-.) s b2->( |
%63
	e4-.) \phrasingSlurUp a'\( b b, | 
	e4-.\) s b2->( |
%65
	e4-.) s b,2->( | 
	e4-.) s b2->( |
%67
	e4-.) a'\(  b b, | 
	e4-.\) a,-5( b b,) |
%69
	e2-> r2 | 
	\bar ":|:"
	e4 r r2 |
%71
	e'4-.-3 <e d'-.> <e cis'-.-2> <e b'-.-1> |
	<e a-.-3>4 <e d'-.> <e cis'-.> <e b'-.> |
%73
	<e a-.-3>4 <e d'-.> <e cis'-.> <e b'-.> |
	<a a,>4 r r2 |
%75
	a4-.-3 <a_5 g'-._1> <a fis'-.-2> <a e'-.-1> |
	<a d-.-3>4 <a g'-.> <a fis'-.> <a e'-.> |
%77
	<a d-.>4 <a g'-.> <a fis'-.> <a e'-.> |
	\stemNeutral d4-. s a,2->( |
%79
	d4-.) s a2->( |
	d4-.) s b2->( |
%81
	e4-.) s b2->( |
	e4-.) s b2->( |
%83
	e4-.) r r r8 e'_2\( |
	f4 d_5 gis_2 e_4 |
%85
	a4-.\) d,2_5\( e4 |
	f4 d gis e |
%87
	a4-.\) e_3\( f c_5 |
	d4_1 a_2 f a |
%89
	e4-.\) e'4.->\( d8 c b |
	a4-.\) \clef treble a'4.->( g8 f e |
%91
	d4-.) d'4.->\( c8_2 b_3 a_4 |
	e4-._5\) e'4._1->\( d8_2 c_3 b_4 |
%93
	a4-.\) \phrasingSlurDown d,-2\( e \clef bass e,-3 |
	a,4-.\) \phrasingSlurUp a'2\( e4_3 |
%95
	f4 d_4 e_1 e, |
	a4-._3\) s g'-._5 s |
%97
	f-. s e-. s |
	d-. s c-. s |
%99
	b4-. s a-. s |
	g4-. s f-. s |
%101
	e4-. e'4.->\( \stemDown d8 c b |
	c4 d e \stemNeutral e, |
%103
	a4\) s g'-. s |
	f-. s e-. s |
%105
	d4-. s c-. s |
	b4-. s a-. s |
%107
	g4-. s f-. s |
	e4-. e'4.->\( \stemDown d8 c b |
%109
	c4 d e \stemNeutral e, |
	a4-.\) s e2->( |
%111
	a4-.) s e2->( |
	a4-.) s e2->( |
%113
	a4-.) d\( e e, |
	a4-.\) s e2->( |
%115
	a4-.) s e2->( |
	a4-.) s e2->( |
%117
	a4-.) d\( e e, |
	a4-.\) d\( e\) e,-. |
%119
	a2 r2 |
	a2 r2 |
%121
	a2  r2 |
	<a cis e a>1 \arpeggio |
	\bar ":|"
     }
     >>     
}

dynamics = {
%1
	s4 \f s2. |
	s1*7
%9
	s8 s \p s2. |
	s1
%11
	s8 \cresc s s2. |
	s1 |
%13
	s8 \mf s8 \cresc s2. |
	s1 |
%15
	s4 \f s2. |
	s1*5
%21
	s8 s8 \p s2. |
	s1 |
%23
	s8 \cresc s s2. |
	s1*3
%27
	s4 \f s \dim s2 |
	s1 |
%29
	s4 \p s2. |
	s4 \cresc s2. |
%31
	s4 \f s2. |
	s1*3
%35
	s4 \p s2. |
	s8 \cresc s s2. |
	s1 |
%38
	s4 \f s2. |
	s1*3
%42
	s4 \mf s2. |
	s1*6
%49
	s4 \f s2. |
	s1*4
%54
	s2 s4 \p s |
	s1*9
%64
	s4 \f s2. |
	s1*5
%70
	s4 \p s2. |
	s1*3
%74
	s4 \mf s2. |
	s1*3
%78
	s4 \f s2. |
	s1*8
%87
	s4 \dim s2. |
	s1 |
%89
	s16 \p s \cresc s8 s2. |
	s1*3
%93
	s4 \f s2. |
	s1*9
%103
	s4 \p s2. |
	s1*10
%114
	s4 \f s2. |
	s1*6
%121
	s1
	s1

}

pedal = {

}

\score {
     \new PianoStaff <<
     \new Staff = "upper" \upper
     \new Dynamics = "dynamics" \dynamics
     \new Staff = "lower" <<
     \clef bass
     \lower
     >>
     \new Dynamics = "pedal" \pedal
     >>
     \layout {
	     \context {
		     \type "Engraver_group"
		     \name Dynamics
		     \alias Voice % So that \cresc works, for example.
		     \consists "Output_property_engraver"
		     
		     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
		     pedalSustainStrings = #'("Ped." "*Ped." "*")
		     pedalUnaCordaStrings = #'("una corda" "" "tre corde")
		     
		     \consists "Piano_pedal_engraver"
		     \consists "Script_engraver"
		     \consists "Dynamic_engraver"
		     \consists "Text_engraver"
		     
		     \override TextScript #'font-size = #2
		     \override TextScript #'font-shape = #'italic
		     \override DynamicText #'extra-offset = #'(0 . 2.5)
		     \override Hairpin #'extra-offset = #'(0 . 2.5)
		     
		     \consists "Skip_event_swallow_translator"
		     
		     \consists "Axis_group_engraver"
	     }
	     \context {
		     \PianoStaff
		     \accepts Dynamics
		    % \override VerticalAlignment #'forced-distance = #7
	     }
     }
}

\score {
     \new PianoStaff <<
     \new Staff = "upper" << \upper \dynamics >>
     \new Staff = "lower" << \lower \dynamics >>
     \new Dynamics = "pedal" \pedal
     >>
     \midi {
	     \context {
		     \type "Performer_group"
		     \name Dynamics
		     \consists "Piano_pedal_performer"
	     }
	     \context {
		     \PianoStaff
		     \accepts Dynamics
	     }
     }
}