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)

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
% rolls
% 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

@ -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 #})

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

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

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)

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" }