mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-09-28 05:54:42 +02:00
81255889cf
Morag of Dunvegan Farewell to Camraw The Mist Covered Mountains Molly Connell Lady MacKenzie of Fairburn Note that Fairburn also has the tune itself. Fullscore prints nicely!
93 lines
3.3 KiB
Text
Executable file
93 lines
3.3 KiB
Text
Executable file
% ================================================= %
|
|
% 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
|
|
\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
|
|
#})
|