1
0
Fork 0
mirror of https://github.com/kastdeur/lilydrum.git synced 2024-12-22 09:13:33 +01:00

Added a commented example

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

View file

@ -41,6 +41,7 @@ You can use every regular drum character (such as `sn` or `bd`), as `d` and `g`
} }
} }
``` ```
(see ./example.ly)
### Embellishments (Side) ### Embellishments (Side)

View file

@ -147,32 +147,6 @@
} }
} }
\pageBreak
\score {
\new PipeBandDrumStaff \with {
instrumentName = "Standard 6/8"
} {
\drummode {
\time 6/8
\repeat volta 2 {
\partial 8 d8:32(_"7" |
g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
\flamddr d8. d16 g8 d4.:32(_"13" |
d8.) g16 d8 \flamg g4 d8:32(_"7" \fr |
\break
g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
\flamddr d8. d16:64(_"5" d8) \flamd d8. d16 \flamg g8 |
d8.:32(_"5" d16) \flamg g8 \flamd d4 \fr s8 |
}
}
}
\addlyrics {
}
}
% # Writing parts % # Writing parts
% rolls % rolls
% tuplets % tuplets

Binary file not shown.

93
example.ly Normal file
View file

@ -0,0 +1,93 @@
% This file compiles with at least version 2.19.80
\version "2.19.80"
% Include lilydrum before any music is defined
% it *will* complain otherwise about the d's and the g's
\include "lilydrum.ly"
% Give it a title with standard settings
\header { title = "Standards 6/8" }
% Change Options for printing
\layout {
% Remove the indent in the first system
indent = 0.0
}
% Start the score
\score {
% We want a drumstaff regularly used for pipebands
\new PipeBandDrumStaff {
% Signal lilypond we will be using drumnotation
\drummode {
% The time signature is 6/8
\time 6/8
% Start the bar as a repeat with an anacrusis
\repeat volta 2 {
\partial 8
% Regularly the format is A - B - A - C
% so we use an unfolded repeat with alternatives
% to keep us from writing A twice
% You could also use variables here
\repeat unfold 2 {
% Start with a seven roll
% Then continue with a few drags
% Normally beaming does not need to specified
% Except for drags, they break the automatic beaming
d8:32( |
g8.)[ g16 \drag d8] d8.[ d16 \drag g8] |
g8.[ \drag d16 d8] d8.[ d16 \drag g8] |
} \alternative {
% The first alternative
{
% The next part is played in unison the first time through
\tutti {
\flam d8. d16 g8 d4.:32( |
d8.) g16 d8 \flam g4
}
}
% The second alternative
{
% This part is also played in unison the first time through
\tutti{
\flam d8. d16:64( d8) \flam d8. d16 \flam g8 |
d8.:32( d16) \flam g8 \flam d4
}
}
}
% Pad the score a bit so we can make sure we are at the end of a bar
% This spacing note is of the time we used for the upbeat
s8 |
}
% Make sure there is a newline for the next few measures
\break
% Let's try again with another line
% This one containing a few triplets
\repeat volta 2 {
\partial 8
\repeat unfold 2 {
d8:32( |
\tuplet 3/2 { g8) d g } \flam d8 \tuplet 3/2 { d8 g d } \flam g8 |
% Note the \flamd, it is needed because \flam does not know which hand the next note is
% This is a todo
\tuplet 3/2 { d8 g d-> } \tuplet 3/2 { g8 d g } \flamd \tuplet 3/2 { d8 g8. d16 } |
} \alternative {
% We don't actually need the outermost braces of the alternatives used in the first line
\tutti {
\flam d8. d16 g8 d4.:32( |
d8.) g16 d8 \flam g4
}
\tutti{
\flam d8. d16:64( d8) \flam d8. d16 \flam g8 |
d8.:32( d16) \flam g8 \flam d4
}
}
s8 |
}
}
}
}

BIN
example.pdf Normal file

Binary file not shown.

View file

@ -20,32 +20,32 @@ drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
#}) #})
% Flams % Flams
flamd = \drummode { \drumgrace { g8 } } % Flam right flamd = \drummode { \drumgrace { g8 } } % Flam right
flamg = \drummode { \drumgrace { d8 } } % Flam left flamg = \drummode { \drumgrace { d8 } } % Flam left
flamddr = \drummode { \drumgrace { g8\dr } } % Flam right with start repeat flamddr = \drummode { \drumgrace { g8\dr } } % Flam right with start repeat
flamgdr = \drummode { \drumgrace { d8\dr } } % Flam left with start repeat flamgdr = \drummode { \drumgrace { d8\dr } } % Flam left with start repeat
% Drags % Drags
dragd = \drummode { \drumgrace { g16[ g] } } % Drag right dragd = \drummode { \drumgrace { g16[ g] } } % Drag right
dragg = \drummode { \drumgrace { d16[ d] } } % Drag left dragg = \drummode { \drumgrace { d16[ d] } } % Drag left
dragddr = \drummode { \drumgrace { g16[\dr g] } } % Drag right with start repeat dragddr = \drummode { \drumgrace { g16[\dr g] } } % Drag right with start repeat
draggdr = \drummode { \drumgrace { d16[\dr d] } } % Drag left with start repeat draggdr = \drummode { \drumgrace { d16[\dr d] } } % Drag left with start repeat
% open drags % open drags
odragd = \drummode { \drumgrace { << { g16[ g] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag right 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 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 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 odraggdr = \drummode { \drumgrace { << { g16[\dr g] } { s16 s32^\markup { \musicglyph #"scripts.open" } } >> } } % Open Drag left with start repeat
% Ruff % Ruff
ruffg = \drummode { \drumgrace { g16[ d g] } } % Ruff right ruffg = \drummode { \drumgrace { g16[ d g] } } % Ruff right
ruffd = \drummode { \drumgrace { d16[ g d] } } % Ruff left ruffd = \drummode { \drumgrace { d16[ g d] } } % Ruff left
ruffgdr = \drummode { \drumgrace { g16[\dr d g] } } % Ruff right with start repeat ruffgdr = \drummode { \drumgrace { g16[\dr d g] } } % Ruff right with start repeat
ruffddr = \drummode { \drumgrace { d16[\dr g d] } } % Ruff left with start repeat ruffddr = \drummode { \drumgrace { d16[\dr g d] } } % Ruff left with start repeat
% Swiss Ruff % Swiss Ruff
sruffg = \drummode { \drumgrace { g16[ d d] } } % Swiss Ruff right sruffg = \drummode { \drumgrace { g16[ d d] } } % Swiss Ruff right
sruffd = \drummode { \drumgrace { d16[ g g] } } % Swiss Ruff left sruffd = \drummode { \drumgrace { d16[ g g] } } % Swiss Ruff left
sruffgdr = \drummode { \drumgrace { g16[\dr d d] } } % Swiss Ruff right with start repeat 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 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 (autohandFunc left right)
(define-music-function (parser location note) (ly:music? ) (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") #(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
#{ $left #} #{ $left #}
#{ $right #}) #{ $right #})
@ -71,7 +68,7 @@ sruffddr = \drummode { \drumgrace { d16[\dr g g] } } % Swiss Ruff left with sta
% Flam % Flam
flam = #(autohandFunc flamg flamd) flam = #(autohandFunc flamg flamd)
flamdr = #(autohandFunc flamgdr flamddr ) flamdr = #(autohandFunc flamgdr flamddr )
% Drag % Drag
drag = #(autohandFunc dragg dragd ) drag = #(autohandFunc dragg dragd )

View file

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

View file

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

View file

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

View file

@ -1,8 +1,7 @@
% ================================================= % % ================================================= %
% Rehearsal Marks % % Rehearsal Marks %
% ================================================= % % ================================================= %
#(newline)
#(display "Rehearsal Marks loaded")
% From Svenax's bagpipemusic % From Svenax's bagpipemusic
markText = #(define-music-function (parser location text) (string?) #{ markText = #(define-music-function (parser location text) (string?) #{
\once \override Score.RehearsalMark #'self-alignment-X = #LEFT \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 % 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" } fine = {\markTextEol "Fine" }