% 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 <<
	   #(set-accidental-style 'piano)
           \context Staff = upper {
   	   \key d \minor
	   \relative c' {
	      \repeat volta 2 {

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

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

	      { << c2 \\ { r8 f, e d e g fis a } >> } { << { r8 c b a b d cis e } \\ g,2 >> } { << d'2 \\ { r8 g, fis e fis a gis b } >> } { << { r8 d c b c d e c } \\ a2 >> }  { f'8 e d c b a 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 b c a } { b8 f' e d c b a gis } { a 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 b c a } { b8 f' e d c b a gis }

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

	      \pageBreak

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

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

	      << f2 \\ { r8 bes, a g a c b d } >> << { r8 f e d e g fis a } \\ c,2 >> << g'2 \\ { r8 c, b a b d cis e } >> << { r8 g f e f g a f } \\ d2 >> { bes'8 a g f e d cis 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 d f a d c bes a } { bes8 bes' a g f e d cis } { d8 a' g f e d cis 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 d f a d c bes a } { bes8 bes' a g f e d cis }

	     { d2  d' ~ } { d8 bes a g f e d cis } << { d1 ~ d8 bes a g f 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 f e d a' g f e } { d8 c bes a g bes a g } { a8 g f e d c bes a } { g8 bes a g a g f e } 
	      { d2 d''2 ~ } { d2 cis } { d8 c bes a g bes a g } { a8 g f e d c bes a } { g8 bes a g a g f e } 
	      { d2 d''2 ~ } { d2 e } 
	      { f8 e d c bes d c bes } { c bes a g f e d c } { 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 a' c a 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 cis b a a' g f e } { d f e d g f e d }
	      { << { e2 d ~ d e } \\ { cis2 d g,1 } >> } { << { f'8 e d c bes d c bes } \\ f2 >> } { << { c'8 bes a g \tieDown f2 ~ f2 c } \\ { s1 g' } >> } 
	      { << { a2 bes <bes c>1 } \\ { f2 d es 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
	}
}

}