mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-22 17:23:32 +01:00
72 lines
1.7 KiB
Text
72 lines
1.7 KiB
Text
% Add standard midi support, preferably able to
|
|
% switch instruments for different staves
|
|
#(newline)
|
|
#(display "Midi Support loaded")
|
|
|
|
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)%Seems the nicest
|
|
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 = \tenorPitchFive
|
|
|
|
midiDrumPitches.right-hand = \sideDefault
|
|
midiDrumPitches.left-hand = \sideDefault
|
|
|
|
midiTenor = {
|
|
\set midiDrumPitches.right-hand = \tenorDefault
|
|
\set midiDrumPitches.left-hand = \tenorDefault
|
|
}
|
|
|
|
\midi {
|
|
\context {
|
|
\DrumStaff
|
|
\name PipeBandDrumStaff
|
|
\alias DrumStaff
|
|
|
|
% trying midi are you?
|
|
midiInstrument = #"drums"
|
|
|
|
drumPitchTable = #(alist->hash-table midiDrumPitches)
|
|
}
|
|
\context {
|
|
\Score
|
|
\accepts "PipeBandDrumStaff"
|
|
}
|
|
\context {
|
|
\StaffGroup
|
|
\accepts "PipeBandDrumStaff"
|
|
}
|
|
|
|
}
|
|
|
|
%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)
|
|
% #}
|
|
% )
|
|
%)
|