% Sonata K25 (Domenico Scarlatti)
% Engraving by Sebastiano Vigna

\version "2.4.3"

\book {
	\header {
		title = "Sonata K25"
		composer = "Domenico Scarlatti (1685$-$1757)"
		arranger = "Engraving by Sebastiano Vigna"
	}

\score {
\header {
	piece ="Allegro" 
}
\context PianoStaff <<
#(set-accidental-style 'piano)
\override Score.SpacingSpanner #'shortest-duration-space = #2.5

\context Staff = upper {
	\skip 1 * 10 
}
\context Staff = lower {
	% #(override-auto-beam-setting '(end * * * *) 1 2 'Staff)
	\skip 1 * 10 
}

\context Staff = upper {
\time 2/4
\key fis \minor
\relative c' {
	fis16-2 a gis a fis cis b'-4 gis  a fis d'-4 b cis a gis'-5 f  fis cis-2 d b cis-5 a b gis
	
	% 4
	a4. gis16-2 f  fis8 b16-4 gis-1 a8-2 b16 gis
	% 6
	a16-2 cis fis-5 b,-2  e-4 a, d-3 gis,  cis-5 fis,-2 b-4 f-1 a-3 fis-1 b-4 gis a32-3 gis fis16
			fis' b,  e a, d gis,  cis fis, b f a-4 fis b gis a32 gis fis16
			fis' b,  e a, d gis,  cis fis, b f a-4 fis b-5 gis a32-4 gis fis16
	% 12 + 1/8
	<< { cis'8^\markup{M}[ d cis] } \\ { cis,16 fis a fis cis fis } >>
	% 13
	<< { s8 cis'[ d cis] } \\ { gis16 f cis f gis f cis f } >>
	<< { s8 cis'8[ d cis] } \\ { a16 fis cis fis a fis cis fis } >>
	<< { s8 cis'[ d cis] } \\ { gis16 f cis f gis f cis f } >>
	% 16
	a16-5 cis,-2 c-1 gis' cis, fis e-3 dis  e-1 e' fis, dis' gis, gis' cis,-2 fis-4  gis cis,-2 dis c  cis a' gis fis	
	% 19
	<< { s8 gis[ a gis] } \\ { e32-1 dis-3 cis16 gis cis e-4 cis gis cis } >>
	<< { s8 gis'[ a gis] } \\ { dis16-3 c gis c dis c gis c  } >>
	<< { s8 gis'[ a gis] } \\ { e16 cis gis cis e cis gis cis } >>
	<< { s8 gis'[ a gis] } \\ { dis16 c gis c dis c gis c  } >>
	% 23
	\stemUp
	e32-3 dis cis16  a'-5 dis, gis-4 cis, fis-3 c
	e32 dis cis16  a' dis, gis cis, fis c
	e32 dis cis16  a' dis, gis cis, fis b,
	\stemNeutral
	% 26
	<< { s8 f'8[-3 fis-4 gis]-4 } \\ { f16-3 cis d-2 b  cis a d b  } >>
	a' gis fis e-1  dis-4 cis b a  gis'-4 fis e-1 dis-3 e32 dis cis16 c-1 cis  dis a-1 gis-3 fis  e32 dis cis16 c cis
	% 30
	<< { s8 gis'[ a gis] } \\ { dis16 c gis c dis c gis c  } >>
	<< { s8 gis'[ a gis] } \\ { e16 cis gis cis e cis gis cis  } >>
	<< { s8 gis'[ a gis] } \\ { dis16 c gis c dis c gis c  } >>
	<< { s8 gis'[ a gis] } \\ { e16 cis gis cis e cis gis cis  } >>
	<< { s8 gis'[ a gis] } \\ { dis16 c gis c dis c gis c  } >>
	% 35
	e32-4 dis cis16 f-5 cis fis-4 cis gis'-5 cis,-1  a' cis, ais'-4 cis, c'-5 dis,-2 cis' e,  
	% 37
	dis' gis, g gis g e' dis e  dis gis, g gis g g'-5 gis-4 g  gis gis, g gis g e' dis e  dis gis, g gis g g' gis g
	% 41
	gis dis-1 cis-2 c cis fis-4 e dis  e a gis fis e-1 dis-3 cis c-1  cis-3 a b-5 gis a-4 fis gis e  fis dis e32 dis cis16 <cis e>8 <c dis>
	% 45
	cis2\prall
	
	\pageBreak

	% =============================================================================================
	
	% 46
	cis16-1 gis'-4 fis gis  f-2 cis b'-4 gis  a fis d'-4 b cis a fis'-4 dis  f8 gis4 d8  cis[ b a gis] 
	% 50
	\repeat unfold 3 { a32 gis fis16 d' gis, cis fis, b f } ais32-3 gis fis16 g'-5 ais, fis'-4 b, e-5 cis
	% 54
	<< { s8 fis[ g fis] } \\ { d32 cis b16 fis b d b fis b } >>
	<< { s8 fis'[ g fis] } \\ { cis16 ais fis ais cis ais fis ais } >>
	<< { s8 fis'[ g fis] } \\ { d16 b fis b d b fis b } >>
	<< { s8 fis'[ g fis] } \\ { cis16 ais fis ais cis ais fis ais } >>
	<< { s8 gis'[ ais gis] } \\ { dis16 b fis b dis b fis b } >>
	<< { s8 ais'[ b ais] } \\ { f16 d ais d f d ais d } >>
	<< { s8 ais'[ b ais] } \\ { fis16 dis ais dis fis dis ais dis } >>
	<< { s8 ais'[ b ais] } \\ { f16 d ais d f d ais d } >>
	% 62
	g16-5 dis e-4 cis dis b cis ais  c32-3 ais gis16 a'-5 dis, gis-4 cis, fis dis
	% 64
	<< { s8 f8[-3 fis-4 gis]-5 } \\ { e32-3 dis cis16 d-2 b cis a b gis } >> << { a'8-4 ais-3 b-5 ais-4 } \\ { fis16-2 cis g'-2 e fis-2 d g-3 e-2 } >>
	% 66
	\stemUp
	<< { b'32 a gis16 fis f-1 fis-4 d cis b } \\ { d8 } >>
	b'32 a gis16 fis f fis cis-4 b a
	<< { b'32 a gis16 fis f fis d cis b } \\ { d8 } >>
	b'32 a gis16 fis f fis cis-3 b a
	{ b'32 a gis16 f fis gis b,-2 a gis }
	\stemNeutral
	% 71
	\repeat unfold 2 { a32 gis fis16 d' gis, cis fis, b f } a32 gis fis16 fis'-5 b, e-4 a, d gis,  cis fis, b f a32-4 gis fis16 f fis-2
	% 75
	<< { s8 cis'[ d cis] } \\ { gis16 f cis f gis f cis f } >>
	<< { s8 cis'8[ d cis] } \\ { a16 fis cis fis a fis cis fis } >>
	<< { s8 cis'[ d cis] } \\ { gis16 f cis f gis f cis f } >>
	<< { s8 cis'8[ d cis] } \\ { a16 fis cis fis a fis cis fis } >>
	<< { s8 cis'[ d cis] } \\ { gis16 f cis f gis f cis f } >>
	% 80
	\repeat unfold 2 { a32 gis fis16 d'-5 gis, cis-4 fis, b-3 f } a32 gis fis16 fis'-5 b, e-4 a, d gis,
	% 83
	cis-3 fis, b'-5 gis a fis gis f  fis32 gis a16  b32 a gis16 a32 gis fis16  gis32 fis f16 
	% 85
	fis32 e d16 e32 d cis16 d32 cis b16 cis32 b a16 b32 a gis16 a32 gis fis16 <fis a>8 <f gis> fis2\prall
	
	
}
}
\context Staff = lower {
\key fis \minor
\clef bass
\relative c { 
	s1.
	
	%4
	fis16[-3 a gis a]  fis[ cis b' gis]  a[ fis-4 d'-1 b]-4  cis[-3 a gis' f]
	% 6
	fis8 d cis b-1  a gis fis-1 cis   fis,\noBeam d'' cis b   a gis fis cis   fis,\noBeam d'' cis b   a gis fis cis
	% 12
	fis8 s4.  cis8_\markup{M} s4.  fis8 s4. cis8 s4.
	% 16
	fis8-4 gis a c \clef treble cis-4 dis e a  gis fis e-1 dis
	% 19
	cis8 s4. \clef bass  gis8 s4. cis,8 s4. gis'8 s4.
	% 23
	%\change Staff = upper \stemDown
	\clef treble
	cis8 fis e dis  cis fis e dis  cis fis e d
	%\change Staff = lower \stemNeutral
	\clef bass
	% 26
	cis8 b-1 a gis fis a b dis, e gis a,[ a'] gis-2 c,-5 cis-3 a-5
	% 30
	gis8 s4.  cis8 s4.  gis8 s4. cis,8 s4. gis'8 s4.
	% 35
	cis8 b'-1 a gis fis e-1 dis-3 cis
	% 37
	gis'8 gis <dis' cis ais>8 <dis cis ais>8 \repeat unfold 3 { <gis, dis'> <gis dis'> <dis' cis ais>8 <dis cis ais>8 }
	% 41
	<gis,-5 dis'-1>8 <fis-3 dis'-1> <e-5 cis'-2> <dis-4 c'-1> <cis cis'> fis gis[ gis,] a' gis fis e-1 dis cis gis'[ gis,] 
	% 45
	cis,2 \bar ":|:" \break

	% =============================================================================================
	
	% 46
	s2 s2 cis'16[-5 gis'-1 fis gis]  f[-3 cis b' gis]-3  a[ fis d'-1 b]-4  cis[ a f'-1 cis]-2
	% 50
	\repeat unfold 2 { fis,8 <b-2 d-1> <a-3 cis-1> <gis-4 b-2> } fis8 <b d> <a cis> <g b>  <fis-5 cis'-1>8 <e-4 cis'-1> <d-5 b'-1> <cis-4 ais'-1>
	% 54
	<b b'>8 s4.  fis'8 s4. b,8 s4. fis'8 s4. b8 s4. ais8 s4. dis8 s4. ais8 s4.
	% 62
	dis,8 cis'-2 b-1 ais  gis fis e-1 dis-3
	% 64
	cis b' a gis fis e-1 dis cis
	% 66
	b4 ~ b16 \change Staff = upper b''_2 a gis \change Staff = lower
	a,4 ~ a16 \change Staff = upper a' gis fis \change Staff = lower
	b,4 ~ b16 \change Staff = upper b' a gis \change Staff = lower
	a,4 ~ a16 \change Staff = upper a' gis fis
	\stemDown 
	% \override Voice.Stem #'length = #9 
	\override Voice.Stem #'stem-shorten = #'(0 0)
	gis4 ~ gis16 gis fis f_1 \change Staff = lower \stemNeutral
	\revert Voice.Stem #'stem-shorten
	% 71
	fis8-2 <b, d> <a cis> <gis b> <fis a> <b d> <a cis> <gis b> fis d' cis b-1 <a-4 cis-2> <gis-3 b-1> <fis a> <d-5 b'-1>
	% 75
	cis8 s4. fis,8 s4. cis8 s4. fis8 s4. cis8 s4.
	% 80
	fis'8 <b d> <a cis> <gis b> <fis a> <b d> <a cis> <gis b> <fis a> d' cis b
	% 83
	<a-4 cis-2> gis fis cis'-2 d b cis[ cis,] <d d'> <cis cis'> <b b'> <a a'> <gis gis'> <fis fis'> <cis cis'> <cis cis'> fis2 
	\bar "|."
	
}
}
>>

%	\midi { \tempo4=80 }
        \layout { 
	  indent = 0\mm
	  raggestlast = ##t
	}
}

}