1
0
Fork 0
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:
Eric Teunis de Boone 2016-03-21 16:16:22 +01:00
parent 6d3e65b9f7
commit 27bdb5561b
3 changed files with 55 additions and 2 deletions

View file

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

View file

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