kastdeur/lilydrum
1
0
Fork 0
mirror of https://github.com/kastdeur/lilydrum.git synced 2025-05-17 13:29:12 +02:00
Code Issues Releases Activity

Added a commented example

Browse source 
Removed the reports on loading the files
This commit is contained in:
Eric Teunis de Boone 2018-02-06 16:22:47 +01:00
parent b683a4a520
commit 3d3e3f9e01
10 changed files with 113 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lib/embellishments.ily
View file

@ -20,32 +20,32 @@ drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
#})
% Flams
flamd = \drummode { \drumgrace { g8 } } % Flam right
flamg = \drummode { \drumgrace { d8 } } % Flam left
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
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[ g] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag right
odragg = \drummode { \drumgrace { << { d16[ d] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag left
odragd = \drummode { \drumgrace { << { g16[ g] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag right
odragg = \drummode { \drumgrace { << { d16[ d] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag left
odragddr = \drummode { \drumgrace { << { d16[\dr d] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag right with start repeat
odraggdr = \drummode { \drumgrace { << { g16[\dr g] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag left with start repeat
% Ruff
ruffg = \drummode { \drumgrace { g16[ d g] } } % Ruff right
ruffd = \drummode { \drumgrace { d16[ g d] } } % Ruff left
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
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
@ -56,9 +56,6 @@ sruffddr = \drummode { \drumgrace { d16[\dr g g] } } % Swiss Ruff left with sta
#(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 #})
@ -71,7 +68,7 @@ sruffddr = \drummode { \drumgrace { d16[\dr g g] } } % Swiss Ruff left with sta
% Flam
flam = #(autohandFunc flamg flamd)
flamdr = #(autohandFunc flamgdr flamddr )
flamdr = #(autohandFunc flamgdr flamddr )
% Drag
drag = #(autohandFunc dragg dragd )

14
lib/flourishing.ily
View file

@ -8,16 +8,13 @@
%---------------------------------------------------%
splitTheFeather = ^\markup \center-column { \musicglyph #"noteheads.s2xcircle"}
cartWheel = ^\markup \center-column { \musicglyph #"timesig.neomensural94" }
up = ^\markup \center-column {% Arrow-head and line do not line up nicely most of the time
up = ^\markup \center-column {
\fontsize #5
\override #'(thickness . 2)
%\center-column {
\combine
% \musicglyph #"arrowheads.open.11"
\arrow-head #Y #UP ##f
\draw-line #'(0 . -3) % draw stick
%}
}
}
rswipe = ^\markup \center-column {
\fontsize #5
@ -337,12 +334,7 @@ flourish = #(define-music-function (parser location notes) (ly:music?)
\revert Staff.NoteHead.style
#})
%scoop = ^\markup {
% \path #.2 #'( (moveto 0 0 )
% (lineto 3 1 )
% (lineto 6 0 )
% )
% }
% See issue #4 (https://github.com/kastdeur/lilydrum/issues/4)
scoop = #(define-music-function (music) (ly:music?)
#{
<>^"scoop"\startGroup

9
lib/layout_tweaks.ily
View file

@ -1,8 +1,6 @@
% =================================================== %
% Layout tweaks for good defaults %
% Layout to define the PipeBandDrumStaff %
% =================================================== %
#(newline)
#(display "Layout tweaks loaded")
% Note name defs :
% "d" for the right hand ("droite") and
% "g" for the left hand ("gauche")
@ -29,6 +27,7 @@ drumPitchNames =
\name PipeBandDrumStaff
\alias DrumStaff
% The above style definitions are loaded
drumStyleTable = #(alist->hash-table pipeband-style)
% one line per staff
@ -98,10 +97,6 @@ drumPitchNames =
\context {
\Score
\accepts "PipeBandDrumStaff"
\override RehearsalMark.break-align-symbols = #'(clef)
\override RehearsalMark.padding = #3
\override VoltaBracket.edge-height = #'(1.5 . 1.5)
}
\context {
\StaffGroup

2
lib/midi.ily
View file

@ -1,7 +1,5 @@
% Add standard midi support, preferably able to
% switch instruments for different staves
#(newline)
#(display "Midi Support loaded")
bassPitchOne = #(ly:make-pitch -2 0 NATURAL)
bassPitchTwo = #(ly:make-pitch -3 6 NATURAL)

6
lib/rehearsal_marks.ily
View file

@ -1,8 +1,7 @@
% ================================================= %
% Rehearsal Marks %
% ================================================= %
#(newline)
#(display "Rehearsal Marks loaded")
% From Svenax's bagpipemusic
markText = #(define-music-function (parser location text) (string?) #{
\once \override Score.RehearsalMark #'self-alignment-X = #LEFT
@ -28,5 +27,6 @@ altBracket = #(define-music-function (parser location tag) (string?) #{
% Short al fine's and stuff
dacapoalfine = {\markTextEol "D.C. al fine" }
dcalfine = {\markTextEol "D.C. al Fine" }
dacapoalfine = {\markTextEol "Da Capo al Fine" }
fine = {\markTextEol "Fine" }