lilydrum/lib/embellishments.ily

% =================================================	%
% 	Flams, Drags & the sort							%
% =================================================	%
drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
	% Set settings
	\stemUp
	\once \override Beam.positions = #'(2 . 2)
	\once \override DrumStaff.Stem.length = #5
	\override Flag.stroke-style = #"grace"
	\override Score.GraceSpacing #'spacing-increment = #0
	\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)

	% Print notes
	\small \grace $notes

	% Revert back
	\revert Score.Stem #'beamlet-default-length
	\revert Flag.stroke-style
	\stemNeutral
#})

% Flams
flamd =   \drummode { \drumgrace { g8 } }					% Flam right
flamg =   \drummode { \drumgrace { d8 } }					% Flam left
flamddr = \drummode { \drumgrace { g8\dr } }		% Flam right with start repeat
flamgdr = \drummode { \drumgrace { d8\dr } }		% Flam left	 with start repeat

% Drags
dragd =   \drummode { \drumgrace { g16[ g] } }				% Drag right
dragg =   \drummode { \drumgrace { d16[ d] } }				% Drag left
dragddr = \drummode { \drumgrace { g16[\dr g] } } 	% Drag right with start repeat
draggdr = \drummode { \drumgrace { d16[\dr d] } } 	% Drag left  with start repeat

% Open Drags
odragd =   \drummode { \drumgrace { g16[ <>^"o" g] } }				% Open Drag right
odragg =   \drummode { \drumgrace { d16[ <>^"o" d] } }				% Open Drag left
odragddr = \drummode { \drumgrace { g16[\dr <>^"o" g] } } 	% Open Drag right with start repeat
odraggdr = \drummode { \drumgrace { d16[\dr <>^"o" d] } } 	% Open Drag left  with start repeat

% Ruff
ruffg =   \drummode { \drumgrace { g16[ d g] } }				% Ruff right
ruffd =   \drummode { \drumgrace { d16[ g d] } }				% Ruff left
ruffgdr = \drummode { \drumgrace { g16[\dr d g] } }	% Ruff right with start repeat
ruffddr = \drummode { \drumgrace { d16[\dr g d] } }	% Ruff left  with start repeat

% Swiss Ruff
sruffg =   \drummode { \drumgrace { g16[ d d] } }			% Swiss Ruff right
sruffd =   \drummode { \drumgrace { d16[ g g] } }			% Swiss Ruff left
sruffgdr = \drummode { \drumgrace { g16[\dr d d] } }	% Swiss Ruff right with start repeat
sruffddr = \drummode { \drumgrace { d16[\dr g g] } }	% Swiss Ruff left  with start repeat

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%	Embellishment functions, automatic left or right	%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#(define (autohandFunc left right)
	(define-music-function (parser location note) (ly:music? )
	 #{
		#(newline)
		#(display "Fix autohand function for arbitrary depth")
	
		#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
			#{ $left #}
			#{ $right #})

		% print the note, else it won't show up
		$note
	 #}
	)
)

% Flam
flam = #(autohandFunc flamg flamd)
flamdr = #(autohandFunc flamgdr   flamddr )

% Drag
drag = #(autohandFunc dragg dragd )
dragdr = #(autohandFunc draggdr dragddr )
% Open Drag
odrag = #(autohandFunc odragg odragd )
odragdr = #(autohandFunc odraggdr odragddr )

% Ruff
ruff = #(autohandFunc ruffg ruffd )
ruffdr = #(autohandFunc ruffgdr ruffddr )

% Swiss Ruff
sruff = #(autohandFunc sruffg sruffd )
sruffdr = #(autohandFunc sruffgdr sruffddr )