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
once $ "dr"
do
setcps (100/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (gDJF)
d1 $ g
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<|
"k*<1!3 <2 <1 2>>> . k(<3 [3 5] [3 2]>,8)")
$ "reverbkick"
# midiG' "^78" 0 1.52
d2 $ fast 2 $ "~ cp"
# note "-1"
# room 0.7
# dry 1.09
# sz 0.9
# midiG' "^79" 0 1.52
d3 $ g
$ slice 8 "<0 1 0 0> <2*<1 2> [2 3] 3 <3 6>>"
$ loopAt 4
$ "dusty"
# cut 3
# hpf (slow 8 $ range 5000 1000 perlin)
-- # gain 1.5
# lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32")
# leslie (range 0 2 "^52")
# midiG' "^80" 0 1.52
d6 -- Runny Maracas
$ g
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ fix ((|* gain 0.9)) (n 9)
$ fix ((# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55")
# midiG' "^83" 0 1.2