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

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

\score {
        \context PianoStaff <<
           \context Staff = upper {
   	   \key d \minor
	   \relative c' {
	      \repeat volta 2 {

	      { d'8-1  f e d a'-5 g f e } { d8-1 c-3 bes a g-2 bes-4 a g-1 } { a-5 g f e d-1 c-3 bes a } \clef bass { g-2 bes-4 a g-1 a-5 g f e } 
	      { d2 r } \clef violin { r2 d''-1 } << { e2-4  f-5 g-4 a-5 ~ a8 g f e-1 d2-4 e-5 } \\ { cis2-2 d-3 bes-1 cis-2 d-2  d8 c-1 bes-3 a g-1 bes a g a-4 g f e } >>

	      { f2 d'-5 } << { e2-4  f g a ~ a8 g f e  d-1 c-4 bes a } \\ { cis2-2 d bes cis } >>
	      { bes8-3 d-5 c bes c-4 bes a g  }
	      << { c2-4 d-5 e-4 f-5 ~ f8 d c bes a-1 g-3 f e } \\ { a2-2 bes-3 g-1 a-2 g } >> { a8-4 g f e f g a-1 b-4 }

	      { << c2-5 \\ { r8 f,-1 e-2 d-1 e-2 g-3 fis-2 a-4 } >> } { << { r8 c-4 b a b-3 d-5 cis-3 e-5 } \\ g,2 >> } { << d'2^\markup{ \finger "4-5" }  \\ { r8 g,-1 fis-2 e-1 fis-2 a-3 gis-2 b-4 } >> } { << { r8 d-4 c b c-3 d e c } \\ a2 >> }  { f'8 e d c b-1 a-4 gis fis }

	      \repeat unfold 2 {
	        { e8 b' gis b e, c' a c } { \stemDown e, d' b d e, e' c e } { << e1 \\ { <gis, b>2 <a c> } >> } { << e'1 \\ { <gis, b>2 <a c> } >> }
              }

	      { f'2 e } { d2 c } { b2 a } { b8 e, fis gis a-1 b c a } { b8-2 f' e d c b-1 a-3 gis } { a-1 e' d c b a gis fis }

	      \repeat unfold 2 {
	        { e8 b' gis b e, c' a c } { e, d' b d e, e' c e } { << e1 \\ { <gis, b>2 <a c> } >> } { << e'1 \\ { <gis, b>2 <a c> } >> }
              }

	      { f'2 e } { d2 c } { b2 a } { b8 e, fis gis a-1 b c a } { b8 f' e d c b-1 a-3 gis }

	      \repeat unfold 2  << { a2-1 a' ~ a8 f-3 e d c-3 b a-1 gis-2 } \\ a1 >>
	      { \acciaccatura gis8 a1 } \bar ":|"
	      }

	      \pageBreak

	      \repeat volta 2 {
	      \bar ":|:"

	      {  a8-1 cis-3 b a a'-5 g f e } { d-1 f e d g-4 f e d } { \appoggiatura d4 cis2 r } { r d2-2 }
	      {  e8-3 g-5 f e f-4 e d c }  { bes8-3 d-5 c bes c bes a g } { << { c2 d-5 e-3 } \\ { a,2 bes-3 c-1 } >> f8-4 e d c }
	      {  bes8-3 d-5 c bes c bes a g } { a8-2 c-4 bes a bes-3 d-5 c bes } { c8-1 g' f es d c-1 bes-3 a } { d8-5 c bes a bes-3 c-1 d-3 e-4 }

	      << f2-5 \\ { r8 bes,-2 a-1 g-2 a-1 c b-2 d } >> << { r8 f-4 e d e g fis a } \\ c,2-1 >> << g'2^\markup {\finger "4-5"} \\ { r8 c,-1 b-2 a-1 b d cis e } >> << { r8 g f e f g a f-1 } \\ d2 >> { bes'8-3 a g-1 f-3 e d-1 cis-3 b }

	     
	     \repeat unfold 2 { { a8 e' cis e a, f' d f } { a, g' e g a, a' f a } << { a1 a } \\ { <cis, e>2 <d f> <cis e> <d f> } >> }

	     { bes'2 a } { g f } { e d } { c bes } { a g }
	     { f8-2 d-1 f-2 a-3 d-5 c bes a-2 } { bes8-1 bes' a g f e-1 d-3 cis } { d8-1 a'-5 g f e d-1 cis-3 b }

	     \repeat unfold 2 { { a8 e' cis e a, f' d f } { a, g' e g a, a' f a } << { a1 a } \\ { <cis, e>2 <d f> <cis e> <d f> } >> }

	     { bes'2 a } { g f } { e d } { c bes } { a g }
	     { f8-2 d-1 f-2 a-3 d-5 c bes a } { bes8-1 bes' a g f e-1 d-3 cis }

	     { d2  d' ~ } { d8 bes-3 a g f-3 e d cis-4 } << { d1-5 ~ d8 bes-3 a g f-3 e d cis } \\ \once \override NoteColumn #'force-hshift = #1 { d'2 d, } >> { \acciaccatura cis8 d1\fermata } 

	     }
	   }
	   }

           \context Staff = lower {
   	   \key d \minor
	   \relative c { 
	   
	      \clef bass
	      \repeat unfold 4 r1
	      { d'8-4 f-2 e d a'-1 g f-3 e-1 } { d8 c bes-4 a-1 g-4 bes-2 a g } { a8-1 g f-3 e-1 d c bes-4 a-1 } { g8-2 bes-4 a g a-1 g f e } 
	      { d2 d''2 ~ } { d2 cis } { d8 c bes-3 a-1 g-4 bes-2 a g } { a8-1 g f-3 e-1 d c bes-4 a-1 } { g8 bes a g a g f e } 
	      { d2 d''2-3 ~ } { d2 e } 
	      { f8 e d c bes d-1 c bes } { c-1 bes a-3 g-1 f e-3 d-1 c-2 } { bes2 c } { <f, f'>2 <d d'> }
	      { <c c'>2 <a' a'> } { <g g'>2 <e e'> } { <d d'>2 <b' b'> } { <a a'>2 <a a'> } { <d, d'>2 <d d'> }
	      { <e e'>2 <e e'> } { <e e'>2 <e e'> } { e'8 b' gis b e, c' a c } { e, d' b d e, e' c e }
	      { e,,2 e } { e2 e } { e'8 b' gis b e, c' a c } { e, d' b d e, e' c e }

	      { d,8 d' b d  c, c' a c } { b,8 b' g b  a, a' f a } { g, g' e g  f, f' d f } { <e, e'>2 <c c'> } { <d d'>2 <e e'> } { <a a'>2 r }

	      \repeat unfold 2 {
	        { e e } { e e } { e'8 b' gis b e, c' a c } { e, d' b d e, e' c e }
	      }

	      { d,8 d' b d  c, c' a c } { b,8 b' g b  a, a' f a } { g, g' e g  f, f' d f } { <e, e'>2 <c c'> } { <d d'>2 <e e'> }

	      { a8-5 a'-1 c-2 a-1 f, f' a f } { d,2 <e e'> } { a8 a' c a f, f' a f } { <d, d'>2 <e e'> }
	      { <a, a'>1 }


	      
	      { <a a'>2 r } { r1 }  {  a''8-5 cis-2 b-3 a-5 a'-1 g f e } { d f-2 e d g-1 f e-3 d-1 }
	      { << { e2-3 d-1 ~ d e-2 } \\ { cis2-2 d-1 g,1-4 } >> } { << { f'8-1 e-2 d-1 c-2 bes-3 d c bes } \\ f2-5 >> } { << { c'8-1 bes a g \tieDown f2-5 ~ f2-4 c-5 } \\ { s1 g'-1 } >> } 
	      { << { a2-2 bes-1 \set fingeringOrientations = #'(up right)  <bes-2 c-1>1 } \\ { f2-3 d-5 es-4 f } >> } { <bes, bes'>2 <g g'>2 }

	      { <f f'>2 <d' d'> } { <c c'>2 <a a'> } { <g g'>2 <e' e'> } { <d d'>2 <d d'> } { <g, g'>2 <g g'> }


	      { <a a'>2 a, } { a2 a } { a''8 e' cis e a, f' d f } { a, g' e g a, a' f a }
	      { a,,,2 a } { a a } { a''8 e' cis e a, f' d f } { a, g' e g a, a' f a }

	      { g,8 g' e g f, f' d f } { e,8 e' c e d, d' bes d } { c,8 c' a c bes, bes' g bes } { a,8 a' f a g, g' e g } { f,8 f' d f e, e' cis e }
	      { <d, d'>2 <f f'> } { <g g'>2 <a a'> } { <d, d'>2 r }

	      { a2 a } { a2 a } { a''8 e' cis e a, f' d f } { a, g' e g a, a' f a }
	      { a,,,2 a } { a a } { a''8 e' cis e a, f' d f } { a, g' e g a, a' f a }

	      { g,8 g' e g f, f' d f } { e,8 e' c e d, d' bes d } { c,8 c' a c bes, bes' g bes } { a,8 a' f a g, g' e g } { f,8 f' d f e, e' cis e }
	      { <d, d'>2 <f f'> } { <g g'>2 <a a'> }

	      { d8 d' f d bes, bes' d bes } { g,2 a } { d,8 d' f d bes, bes' d bes } { g,2 a } { d1 }
	   }
	   }
        >>

       \header {
	       piece ="Prestissimo" 
	}

	%\midi { \tempo 4=280 }
        \layout { 
	  indent = 0\mm
	}
}

}