mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-22 17:23:32 +01:00
Update for inclusion files
This commit is contained in:
parent
27bdb5561b
commit
0e32b8c7d7
5 changed files with 70 additions and 60 deletions
|
@ -54,47 +54,34 @@ sruffddr = \drummode { \drumgrace { d16[\startGroup g g] } } % Swiss Ruff left
|
||||||
%% Embellishment functions, automatic left or right %%
|
%% Embellishment functions, automatic left or right %%
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
|
|
||||||
% Flam
|
autohand = #(define-music-function (parser location note left right) (ly:music? ly:music? ly:music?) #{
|
||||||
flam = #(define-music-function (parser location note) (ly:music?) #{
|
#(newline)
|
||||||
% is note right-handed? then \flamd
|
#(display "Fix autohand function for arbitrary depth")
|
||||||
% if left, then \flamg
|
|
||||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||||
#{ \flamg #}
|
#{ $left #}
|
||||||
#{ \flamd #})
|
#{ $right #})
|
||||||
% print the note, else it won't show up
|
% print the note, else it won't show up
|
||||||
$note
|
$note
|
||||||
#})
|
#})
|
||||||
|
|
||||||
|
% Flam
|
||||||
|
flam = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
|
\autohand $note { \flamg } { \flamd }
|
||||||
|
#})
|
||||||
|
|
||||||
% Drag
|
% Drag
|
||||||
drag = #(define-music-function (parser location note) (ly:music?) #{
|
drag = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
% is note right-handed? then \flamd
|
\autohand $note \dragg \dragd
|
||||||
% 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
|
|
||||||
#})
|
#})
|
||||||
% Open Drag
|
% Open Drag
|
||||||
odrag = #(define-music-function (parser location note) (ly:music?) #{
|
odrag = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
% is note right-handed? then \flamd
|
\autohand $note \odragg \odragd
|
||||||
% 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
|
|
||||||
#})
|
#})
|
||||||
|
|
||||||
% Ruff
|
% Ruff
|
||||||
ruff = #(define-music-function (parser location note) (ly:music?) #{
|
ruff = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
% is note right-handed? then \flamd
|
\autohand $note \ruffg \ruffd
|
||||||
% 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
|
|
||||||
#})
|
#})
|
||||||
|
|
||||||
% Swiss Ruff
|
% Swiss Ruff
|
||||||
|
|
|
@ -44,6 +44,12 @@ sdcoop = #(define-music-function (parser location notes end) (ly:music? ly:music
|
||||||
$end
|
$end
|
||||||
#})
|
#})
|
||||||
|
|
||||||
% stf = \splitTheFeather
|
stf = #(define-music-function (parser location note) (ly:music?)
|
||||||
|
#{
|
||||||
|
$note ^\splitTheFeather
|
||||||
|
%\once \set TextScriptEvent.text = \splitTheFeather
|
||||||
|
#}
|
||||||
|
)
|
||||||
|
|
||||||
% cart = \cartWheel
|
% cart = \cartWheel
|
||||||
% fl = \flourish
|
% fl = \flourish
|
|
@ -24,6 +24,7 @@ drumPitchNames =
|
||||||
)
|
)
|
||||||
|
|
||||||
\layout {
|
\layout {
|
||||||
|
indent = 0.0
|
||||||
\context {
|
\context {
|
||||||
\DrumStaff
|
\DrumStaff
|
||||||
\name PipeBandDrumStaff
|
\name PipeBandDrumStaff
|
||||||
|
@ -31,9 +32,6 @@ drumPitchNames =
|
||||||
|
|
||||||
drumStyleTable = #(alist->hash-table pipeband-style)
|
drumStyleTable = #(alist->hash-table pipeband-style)
|
||||||
|
|
||||||
% trying midi are you?
|
|
||||||
\override DrumStaff.midiInstrument = #"drums"
|
|
||||||
|
|
||||||
% one line per staff
|
% one line per staff
|
||||||
\override StaffSymbol.line-positions = #'(0)
|
\override StaffSymbol.line-positions = #'(0)
|
||||||
|
|
||||||
|
|
|
@ -3,19 +3,41 @@
|
||||||
#(newline)
|
#(newline)
|
||||||
#(display "Midi Support loaded")
|
#(display "Midi Support loaded")
|
||||||
|
|
||||||
midiDrumPitches =
|
bassPitchOne = #(ly:make-pitch -2 0 NATURAL)
|
||||||
#(append `(
|
bassPitchTwo = #(ly:make-pitch -3 6 NATURAL)
|
||||||
(right-hand . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
|
|
||||||
(left-hand . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
|
sidePitchOne = #(ly:make-pitch -2 2 DOUBLE-FLAT)
|
||||||
)
|
sidePitchTwo = #(ly:make-pitch -2 1 NATURAL)
|
||||||
midiDrumPitches
|
|
||||||
)
|
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 {
|
\midi {
|
||||||
\context {
|
\context {
|
||||||
\DrumStaff
|
\DrumStaff
|
||||||
\name PipeBandDrumStaff
|
\name PipeBandDrumStaff
|
||||||
\alias DrumStaff
|
\alias DrumStaff
|
||||||
|
|
||||||
|
% trying midi are you?
|
||||||
|
midiInstrument = #"drums"
|
||||||
|
|
||||||
drumPitchTable = #(alist->hash-table midiDrumPitches)
|
drumPitchTable = #(alist->hash-table midiDrumPitches)
|
||||||
}
|
}
|
||||||
\context {
|
\context {
|
||||||
|
@ -29,24 +51,17 @@ midiDrumPitches =
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
side = {
|
%setMidiHands =
|
||||||
% (ly:make-pitch -2 2 DOUBLE-FLAT)
|
%#(define-music-function
|
||||||
% (ly:make-pitch -2 1 NATURAL)
|
% (parser location pitch)
|
||||||
}
|
% (ly:pitch?)
|
||||||
bass = {
|
% (
|
||||||
% (ly:make-pitch -3 6 NATURAL)
|
% (display "Set Hands to pitch")
|
||||||
% (ly:make-pitch -2 0 NATURAL)
|
% #{
|
||||||
}
|
% midiDrumPitches.right-hand = #pitch
|
||||||
tenor = {
|
% midiDrumPitches.left-hand = #pitch
|
||||||
% (ly:make-pitch -2 3 NATURAL)
|
%
|
||||||
% (ly:make-pitch -2 4 NATURAL)
|
% drumPitchTable = #(alist->hash-table midiDrumPitches)
|
||||||
% (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)
|
|
||||||
}
|
|
||||||
|
|
|
@ -7,6 +7,10 @@ eighthBeaming = {
|
||||||
\set baseMoment = #(ly:make-moment 1/8)
|
\set baseMoment = #(ly:make-moment 1/8)
|
||||||
\set beatStructure = #'( 2 2 )
|
\set beatStructure = #'( 2 2 )
|
||||||
}
|
}
|
||||||
|
eighthReelBeaming = {
|
||||||
|
\set baseMoment = #(ly:make-moment 1/8)
|
||||||
|
\set beatStructure = #'( 4 4)
|
||||||
|
}
|
||||||
compoundEighthBeaming = {
|
compoundEighthBeaming = {
|
||||||
\set baseMoment = #(ly:make-moment 1/8)
|
\set baseMoment = #(ly:make-moment 1/8)
|
||||||
\set beatStructure = #'( 3 )
|
\set beatStructure = #'( 3 )
|
||||||
|
|
Loading…
Reference in a new issue