\include "articulate.ly"

global = {
	\key a \minor
	\time 4/4
	\tempo 4 = 132
}

rightHand = \relative c' {
	\clef treble
	r1 |
	c4 c dis e | f8 e dis e f e d c |
	b2~b8 d b4 | a2 gis2 |
	a4 c dis e | f8 e dis e f e f g |
	gis2~gis8 gis gis4 | a2 b2 |
	\repeat volta 2 {
		a4. e16 a c2 | b8 e, d'4 c b |
		a4 c e g | g a f2 |
		f8 e d c b2 | e8 d c b a2 |
		e4 a gis16 a b gis e16 f gis e |
	} \alternative {
		{ d2~d8 c d e | d'4 c b gis | }
		{ b16 c d c d,16 e f d d'8 b e, gis | a1 }
	}
}

leftHand = \relative c {
	\clef bass
	r4 <c c'>8 <b b'>8 <g g'>4 <gis gis'> |
	a4 <c e a> e, <c' e a> | a4 <c e a> e, <c' e a> |
	g4 <b d g> d, <b' d g> | d, <f a d> e <gis b e> |
	a4 <c e a> e, <c' e a> | a4 <c e a> e, <c' e a> |
	gis4 <b d gis> d, <b' d gis> | d, <f a d> e <gis b e> |
	\repeat volta 2 {
		 a8 c e a c e a c |
		 e8 g b e g b e g |
		 g8 b d g b d g b |
		 f8 a c f a c f a |
		 b8 d f b d f b d |
		 a8 c e a c e a c |
		 gis8 b d f gis b d f | 
	} \alternative {
		{ d8 f a d f a d f |  e8 gis b e gis b e gis | }
		{ b2 e,2 | a1 }
	}
}

pianoDynamics = {
	s1\f
}

piccoloStaff = \new Staff = "piccolo" \relative c'' {
	\set Staff.midiInstrument = #"piccolo"
	\global
	r2 g16( gis g gis g gis g gis) |
}

pianoStaff = \new PianoStaff = "piano" <<
	\set PianoStaff.instrumentName = #"piano"
	\new Staff = "up" << \global \rightHand >>
	\new Dynamics = "dynamics" \pianoDynamics
	\new Staff = "down" << \global \leftHand >>
>>

pianoStaffMidi = \new PianoStaff = "piano" <<
	\set PianoStaff.midiInstrument = #"acoustic grand"
	\new Staff = "up" << \global \pianoDynamics \rightHand  >>
	\new Staff = "down" << \global \pianoDynamics \leftHand  >>	
>>

\score {
	<<
		\piccoloStaff
		\pianoStaff
	>>
	\layout { }
}

\score {
	\unfoldRepeats \articulate <<
		\piccoloStaff
		\pianoStaffMidi
	>>
	\midi {	}
}