mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-22 09:13:33 +01:00
Rudimental midi support
This commit is contained in:
parent
6d3e65b9f7
commit
27bdb5561b
3 changed files with 55 additions and 2 deletions
|
@ -32,3 +32,4 @@
|
||||||
\include "lilydrum/embellishments.ily"
|
\include "lilydrum/embellishments.ily"
|
||||||
\include "lilydrum/flourishing.ily"
|
\include "lilydrum/flourishing.ily"
|
||||||
\include "lilydrum/special_sticking.ily"
|
\include "lilydrum/special_sticking.ily"
|
||||||
|
\include "lilydrum/midi.ily"
|
||||||
|
|
|
@ -1,7 +1,8 @@
|
||||||
% =================================================== %
|
% =================================================== %
|
||||||
% Layout tweaks for good defaults %
|
% Layout tweaks for good defaults %
|
||||||
% =================================================== %
|
% =================================================== %
|
||||||
|
#(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")
|
||||||
|
@ -23,7 +24,6 @@ drumPitchNames =
|
||||||
)
|
)
|
||||||
|
|
||||||
\layout {
|
\layout {
|
||||||
indent = 0.0
|
|
||||||
\context {
|
\context {
|
||||||
\DrumStaff
|
\DrumStaff
|
||||||
\name PipeBandDrumStaff
|
\name PipeBandDrumStaff
|
||||||
|
|
52
lilydrum/midi.ily
Normal file
52
lilydrum/midi.ily
Normal file
|
@ -0,0 +1,52 @@
|
||||||
|
% Add standard midi support, preferably able to
|
||||||
|
% switch instruments for different staves
|
||||||
|
#(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
|
||||||
|
)
|
||||||
|
|
||||||
|
\midi {
|
||||||
|
\context {
|
||||||
|
\DrumStaff
|
||||||
|
\name PipeBandDrumStaff
|
||||||
|
\alias DrumStaff
|
||||||
|
drumPitchTable = #(alist->hash-table midiDrumPitches)
|
||||||
|
}
|
||||||
|
\context {
|
||||||
|
\Score
|
||||||
|
\accepts "PipeBandDrumStaff"
|
||||||
|
}
|
||||||
|
\context {
|
||||||
|
\StaffGroup
|
||||||
|
\accepts "PipeBandDrumStaff"
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
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)
|
||||||
|
}
|
Loading…
Reference in a new issue