\version "2.10.11"

\header {
	title = "Vexations"
	composer = "Erik Satie, 1893"
	transcription = "Stephen Whittington"
}

#(set-global-staff-size 16)
#(set-default-paper-size "letter")

\paper {
	pagenumber = "yes"
	linewidth = 120\mm
	indent = 0\mm
}

global = {
	\key c \major
	\set Staff.printPartCombineTexts = ##f
	\set Staff.extraNatural = ##f
	\time 13/4
}

top = \relative g' { 
	s4 s8 s s4 s s8 s s s s4 s s8 s s s s4 s8 s s s
	<a ees'>4 <f' cis>8 <e ais,> <g des>4 <fis bis,> <e bes>8 <f des b> <a ees> <fis bis,> <ees beses>4 <ees a,> <dis a>8 <d gis,> <ees beses> <fis bis,> <aes eeses>4 <g cis,>8 <g cis,>~ <g cis,> r
	s4 s8 s s4 s s8 s s s s4 s s8 s s s s4 s8 s s s
	<a, ees>4 <f cis'>8 <ees ais> <g des'>4 <fis bis> <e bes'>8 <b' f> <ais ees'> <fis bis> <ees beses'>4 <e ais> <dis a'>8 <d gis> <ees beses'> <fis bis> <a eeses'>4 <gis cis>8 <gis cis>~ <gis cis> r
}

bottom = \relative f { 
	c'4 a8 cis bes4 dis g,8 d' c dis ges,4 cis f,8 b ges dis' ces4 e8  e~ e r
	c4 a8 cis bes4 dis g,8 d' c dis ges,4 cis f,8 b ges dis' ces4 e8 e~ e r
	c4 a8 cis bes4 dis g,8 d' c dis ges,4 cis f,8 b ges dis' ces4 e8  e~ e r
	c4 a8 cis bes4 dis g,8 d' c dis ges,4 cis f,8 b ges dis' ces4 e8  e~ e r
} 

\score {
\new PianoStaff <<
    \new Staff { \global \clef treble \top }
    \new Staff { \global \clef bass \bottom }  
>>
  \layout {
    \context { \Score \remove "Bar_number_engraver" }
  }
}

% repeat 840 times
\score {
<<
    \new Staff << \global \clef treble \set Staff.midiInstrument = #"acoustic grand"  \repeat unfold 3 \top >>
    \new Staff << \global \clef bass \set Staff.midiInstrument = #"acoustic grand" \repeat unfold 3 \bottom >> 
>>
  \midi {
  	\context { \Score tempoWholesPerMinute = #(ly:make-moment 52 4) } 
  	\context { \Staff midiInstrument = #"acoustic grand" }
  } 
}