1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
do
setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^13" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let position = pF "position"
let decaycoeff = pF "decaycoeff"
let slope = pF "slope"
d1 $ gM2 $ gF1 $ "k k k <k!3 <k*2 [~ k]>>"
# "[jazz,kick:4,kick:7]"
# midiG' "^78" 0 1
d2 $ gM $ gF1 -- Snare be there
-- $ mask "<f!16 t!48>"
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~!3 [~ c]> . c" )
$ "[cp,h2ogmsn:1]"
# lpf 4000 # note "-2"
# room 0.4 # sz 0.3 # dry 1.0
# midiG' "^79" 0 1.4
d3 $ gM $ gF1 -- Runnin' ones
$ "h*[<8 [8 4 8]> <8!3 16>]"
# drumFrom "rolandtr808" "<oh [oh!6 oh:1 oh:2]>"
# midiG' "^80" 0 1.4
# pan 0.43
d4 $ gF2 $ gM2 -- SICK BURN
$ midiOn "^89" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4))
$ superimpose (
(# crushbus 42 (range 16 2 "^53"))
. (# cut 41)
)
$ loopAt 2 $ slice 2 "<0 1>"
$ "bass_commodore:3/2"
-- # lpfbus 41 (range 20000 200 "^33")
# cut 4
# room 0.8 # dry 1
# pan 0.03
# midiG' "^81" 0 1.4
d5 $ gM $ gF3
$ whenmod 64 16 ((|+ note "<0 0 0 <4 4 -1 -2>>") . ply 4)
$ "90s_matrix:1/4"
# pan 0.97
# room 0.2
-- # cru
# midiG' "^20" 0 1.4
d7 $ gF3 -- Marimba à la mode
$ note "<[gs ~ ef gs gs ~ ef gs ~ ef gs ~ ef@2 ~ e] [<~ <gs5 gs4>>]>"
# "modalMarimba"
# cut 7
# pan 0.9
# att 0.5
# rel 2
# position (range 0.96 0.414 "^54") -- 0.414
# decaycoeff (range 0 4 "^34")
# midiG' "^82" 0 1.4
# amp (range 0 1.3 ("^82" - 0.2 * "^54"))
d8 $ gF1 $ gM -- Break the dance || Dance the break
$ midiOn "^92" (ply "<2!3 <4 8>>")
$ whenmod 8 7 (striate "1!3 [4 8]")
$ whenmod 4 3 (rev)
$ loopAt 4
$ chop 16
$ "jungle_breaks:10"
# pan 0.59
# midiG' "^84" 0 1.4
# cut 8