lilydrum/.lilydrum/embellishments.ily

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

	% Print notes
	\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\startGroup } }		% Flam right with start repeat
flamgdr = \drummode { \drumgrace { d8\startGroup } }		% Flam left	 with start repeat

% Drags
dragd =   \drummode { \drumgrace { g16[ g] }}				% Drag right
dragg =   \drummode { \drumgrace { d16[ d] }}				% Drag left
dragddr = \drummode { \drumgrace { g16[\startGroup g] }} 	% Drag right with start repeat
draggdr = \drummode { \drumgrace { d16[\startGroup d] }} 	% 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[\startGroup d g] }}	% Ruff right with start repeat
ruffddr = \drummode { \drumgrace  { d16[\startGroup 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[\startGroup d d] }}	% Swiss Ruff right with start repeat
sruffddr = \drummode { \drumgrace { d16[\startGroup g g] }}	% Swiss Ruff left  with start repeat

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

% Flam
flam = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \flamg #}
          #{ \flamd #})
	% print the note, else it won't show up
	$note
#})

% Drag
drag = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \dragg #}
          #{ \dragd #})
	% print the note, else it won't show up
	$note
#})

% Ruff
ruff = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \ruffg #}
          #{ \ruffd #})
	% print the note, else it won't show up
	$note
#})

% Swiss Ruff
sruff = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \sruffg #}
          #{ \sruffd #})
	% print the note, else it won't show up
	$note
#})