\version "2.11.37" %%devrait marcher aussi pour la 2.10
\include "rhythm.ly"

makeCrochePointeeDouble = #(define-music-function (parser location music) (ly:music?)
#{ 
	\makeRhythm $music "8. 16" 
#})


makeCrocheDeuxDoubles  = #(define-music-function (parser location music) (ly:music?)
#{ 
	\makeRhythm $music "8 16 16" 
#})

makeBarcaroleSicilienne  = #(define-music-function (parser location music) (ly:music?)
#{ 
	\makeRhythm $music "4 8 8. 16 8"
#})
 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

{ \new Staff \relative
	{
		\makeCrochePointeeDouble  {c d e f g f e d <c e> <d f> <e g> <d f> }
		<c e>2
	 	\makeCrocheDeuxDoubles  {c d e d e f e f g f <e g> <f a> }
		<e gis>2. a4
		\time 6/8
		\makeBarcaroleSicilienne 
			{
				c d e f e 
				d b g a b
				c a a gis a
				b gis
			}
			e4. 
	}
}