mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-22 17:23:32 +01:00
Added a commented example
Removed the reports on loading the files
This commit is contained in:
parent
b683a4a520
commit
3d3e3f9e01
10 changed files with 113 additions and 63 deletions
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
BIN
cheatsheet.pdf
BIN
cheatsheet.pdf
Binary file not shown.
93
example.ly
Normal file
93
example.ly
Normal 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
BIN
example.pdf
Normal file
Binary file not shown.
|
@ -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 #})
|
||||||
|
|
|
@ -8,15 +8,12 @@
|
||||||
%---------------------------------------------------%
|
%---------------------------------------------------%
|
||||||
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 {
|
||||||
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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" }
|
||||||
|
|
Loading…
Reference in a new issue