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

Update for inclusion files

Browse source
This commit is contained in:
Eric Teunis de Boone 2016-04-27 02:57:44 +02:00
parent 27bdb5561b
commit 0e32b8c7d7
5 changed files with 70 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lilydrum/embellishments.ily
View file

@ -54,47 +54,34 @@ sruffddr = \drummode { \drumgrace { d16[\startGroup g g] } } % Swiss Ruff left
%% 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
autohand = #(define-music-function (parser location note left right) (ly:music? ly:music? ly:music?) #{
#(newline)
#(display "Fix autohand function for arbitrary depth")
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
#{ \flamg #}
#{ \flamd #})
#{ $left #}
#{ $right #})
% print the note, else it won't show up
$note
#})
% Flam
flam = #(define-music-function (parser location note) (ly:music?) #{
\autohand $note { \flamg } { \flamd }
#})
% 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
\autohand $note \dragg \dragd
#})
% Open Drag
odrag = #(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")
#{ \odragg #}
#{ \odragd #})
% print the note, else it won't show up
$note
\autohand $note \odragg \odragd
#})
% 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
\autohand $note \ruffg \ruffd
#})
% Swiss Ruff

10
lilydrum/flourishing.ily
View file

@ -44,6 +44,12 @@ sdcoop = #(define-music-function (parser location notes end) (ly:music? ly:music
$end
#})
% stf = \splitTheFeather
stf = #(define-music-function (parser location note) (ly:music?)
#{
$note ^\splitTheFeather
%\once \set TextScriptEvent.text = \splitTheFeather
#}
)
% cart = \cartWheel
% fl = \flourish
% fl = \flourish

4
lilydrum/layout_tweaks.ily
View file

@ -24,6 +24,7 @@ drumPitchNames =
)
\layout {
indent = 0.0
\context {
\DrumStaff
\name PipeBandDrumStaff
@ -31,9 +32,6 @@ drumPitchNames =
drumStyleTable = #(alist->hash-table pipeband-style)
% trying midi are you?
\override DrumStaff.midiInstrument = #"drums"
% one line per staff
\override StaffSymbol.line-positions = #'(0)

71
lilydrum/midi.ily
View file

@ -3,19 +3,41 @@
#(newline)
#(display "Midi Support loaded")
midiDrumPitches =
#(append `(
(right-hand . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
(left-hand . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
)
midiDrumPitches
)
bassPitchOne = #(ly:make-pitch -2 0 NATURAL)
bassPitchTwo = #(ly:make-pitch -3 6 NATURAL)
sidePitchOne = #(ly:make-pitch -2 2 DOUBLE-FLAT)
sidePitchTwo = #(ly:make-pitch -2 1 NATURAL)
tenorPitchOne = #(ly:make-pitch -2 3 NATURAL)
tenorPitchTwo = #(ly:make-pitch -2 4 NATURAL)
tenorPitchThree = #(ly:make-pitch -2 5 NATURAL)
tenorPitchFour = #(ly:make-pitch -2 6 NATURAL)
tenorPitchFive = #(ly:make-pitch -1 0 NATURAL)
tenorPitchSix = #(ly:make-pitch -1 1 NATURAL)
tenorPitchSeven = #(ly:make-pitch -2 3 NATURAL)
tenorPitchEight = #(ly:make-pitch -2 3 NATURAL)
tenorPitchNine = #(ly:make-pitch -2 3 NATURAL)
tenorPitchTen = #(ly:make-pitch -2 3 NATURAL)
tenorPitchEleven = #(ly:make-pitch -2 3 NATURAL)
% Default Pitches
sideDefault = \sidePitchTwo
bassDefault = \bassPitchTwo
tenorDefault = \tenorPitchSeven
midiDrumPitches.right-hand = \sideDefault
midiDrumPitches.left-hand = \sideDefault
\midi {
\context {
\DrumStaff
\name PipeBandDrumStaff
\alias DrumStaff
% trying midi are you?
midiInstrument = #"drums"
drumPitchTable = #(alist->hash-table midiDrumPitches)
}
\context {
@ -29,24 +51,17 @@ midiDrumPitches =
}
side = {
% (ly:make-pitch -2 2 DOUBLE-FLAT)
% (ly:make-pitch -2 1 NATURAL)
}
bass = {
% (ly:make-pitch -3 6 NATURAL)
% (ly:make-pitch -2 0 NATURAL)
}
tenor = {
% (ly:make-pitch -2 3 NATURAL)
% (ly:make-pitch -2 4 NATURAL)
% (ly:make-pitch -2 5 NATURAL)
% (ly:make-pitch -2 6 NATURAL)
% (ly:make-pitch -1 0 NATURAL)
% (ly:make-pitch -1 1 NATURAL)
% (ly:make-pitch -2 3 NATURAL)
% (ly:make-pitch -2 3 NATURAL)
% (ly:make-pitch -2 3 NATURAL)
% (ly:make-pitch -2 3 NATURAL)
% (ly:make-pitch -2 3 NATURAL)
}
%setMidiHands =
%#(define-music-function
% (parser location pitch)
% (ly:pitch?)
% (
% (display "Set Hands to pitch")
% #{
% midiDrumPitches.right-hand = #pitch
% midiDrumPitches.left-hand = #pitch
%
% drumPitchTable = #(alist->hash-table midiDrumPitches)
% #}
% )
%)

4
lilydrum/musical_functions.ily
View file

@ -7,6 +7,10 @@ eighthBeaming = {
\set baseMoment = #(ly:make-moment 1/8)
\set beatStructure = #'( 2 2 )
}
eighthReelBeaming = {
\set baseMoment = #(ly:make-moment 1/8)
\set beatStructure = #'( 4 4)
}
compoundEighthBeaming = {
\set baseMoment = #(ly:make-moment 1/8)
\set beatStructure = #'( 3 )