MIDI drum kit volumes

% by Roger Sapolsky
% For more details see Q.uest020
% Published by AMPLINEX November 1990

"mix9" []  "mk" []  "part9a" []
"sys" []  "u" []  "v" []  "w" []

"mix9" [48,100=T
9 SHARE  3 VOICES MIDIV 10MIDICHANNEL
1VOICE 51mk %cym u
2VOICE 37mk %rim shot v
3VOICE 35mk %drum w
PNUM SHARE
]

"mk" [60#-PITCH
]

"part9a" [SCORE 1VOICE
-1 &41 &10 &16 &12 3 1 &7D &50 &2F sys
2VOICE
-1 &41 &10 &16 &12 3 1 &45 &60 &57 sys
3VOICE
-1 &41 &10 &16 &12 3 1 &3D &60 &5F sys
24,w(u)v(u)v(u)w(u)w(vu)v(u)uw(vu)
24,w(u)v(u)v(u)w(u)w(vu)v(u)uw(vu)
1VOICE
-1 &41 &10 &16 &12 3 1 &7D &30 &4F sys
2VOICE
-1 &41 &10 &16 &12 3 1 &45 &40 &77 sys
3VOICE
-1 &41 &10 &16 &12 3 1 &3D &40 &7F sys
24,w(u)v(u)v(u)w(u)w(vu)v(u)uw(vu)
24,w(u)v(u)v(u)w(u)w(vu)v(u)uw(vu)
]

"sys" [&F0 MIDIOUT
FRAME 1 REP(#11 FVAR #?
-1 #=)UNTIL(1 #+)REP #11 1 #-
FOR(INDEX FVAR #? MIDIOUT )FOR
FOR(#2)FOR &F7 MIDIOUT
]

"u" [1;X] % 'Ride cymbal' D#3(51)

"v" [2;X] % 'Rim Shot' C#2(37)

"w" [3;X] % 'Bass Drum-1' B1(35)

---

Published in AMPLINEX 020, November 1990