\version "1.7.18"
%
% TODO: what's this?
%


global =  \notes {
	\key a \minor
	\time 6/4
%	\skip 1.*34
%	\bar ".|"
}

melody =  \notes\relative c''{
	r2 r r 
	r2 r r
	r4 a'8-- \< a--	a-- a-- c-- \!b-- a--\> gis f \!e 
	es8 \grace b c r4 r2 r
}

basloopje =  \notes\relative c{
	d,8(	a' d f a d f d a f d	a-)
}

accompany =  \notes \relative c{
	\notes\relative c \basloopje
	\notes\relative c \basloopje
	\notes\relative c \basloopje
	\notes\relative c \basloopje
}

\score{
	\notes \context PianoStaff <
		\context Staff=up < 
			\global
			\context Voice=foo {
			\stemUp\slurUp\tieUp
			\scriptUp
			\melody 
			}
		>
		\context Staff=down <
			\global
			\clef bass
			\autochange Staff \context Voice \accompany
		>
	>

	\paper {
		indent = 8.\mm
		textheight = 295.\mm

		\translator{ 
			\PianoStaffContext
			defaultBarType = #"" 
		}
		\translator{ 
			\StaffContext
			% don't auto-generate bars: not a good idea: -> no breakpoints
			% barAuto = "0"
			% urg defaultBarType = #""
			defaultBarType = #"" 
			\remove "Time_signature_engraver"

			Slur \override #'direction = #1

			
			autoBeamSettings \override #'(end * * * *)  = #(ly:make-moment 1 2)
		}
	}
	\midi {
		\tempo 4 = 54
	}
}

%% new-chords-done %%
