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
do
setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (slow 2 . gDJF)
d1 $ g
$ midiOn "^42" (fast 2)
$ midiOn "^41" (struct "t t t <t!3 [<~ t> t]>")
$ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
$ "kick:5"
# midiG' "^78" 0 0.7
# lpf 500
d2 $ g
$ fix ((# lpf 1500) . (|* gain 0.8)) "cp"
$ midiOn "^43" (whenmod 4 3 (ply 2) . fast 2)
$ fast 2
$ midiOff "^43" (fast "<1!5 2!3>")
$ "~ [snare:40,cp]"
# note (range "-10" "10" "^51")
# midiG' "^79" 0 0.87
d3 $ g
$ midiOn "^76" --BOUTON NASSIM
(ply 2 . (# speed 2))
$ midiOn "^44" (slice 4 "0 1 <2 2 0 0> <3 3 1 3>*<1!3 <2 1>>")
$ midiOff "^44" (slice 4 "0 1 2 3")
$ loopAt 2
$ "breaks165"
# midiG' "^80" 0 0.9
# pan 0.3
# lpf 5000
# crushbus 31 (range "10" 2.5 "^52")
# cut 3
d4 $ g
$ midiOn "^89" (ply 2)
$ ply "<1!4 2!4> <2 1 2 1 1 1 2 1> . [2 <4 8>]"
$ "d d d d d d d d" # "drum:2"
# midiG' "^81" 0 0.9
d5 $ g $ "hh(<<7!3 10> [3 <3 <7 12>>]>,12)"
# midiG' "^82" 0 0.65
d6 -- Runny Maracas Pitchables
$ g
$ midiOn "^59" (fast 2)
$ midiOn "^91" (ply 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "d ~ ~ d d ~ d <~!3 d>"
# "hh27:2"
# note (range "-10" "10" "^55")
-- # crushbus 51 (range 16 4.2 "^54")
# midiG' "^83" 0 1.2
-- # speed (range 0 2 "^51")
d8 $ g
$ midiOn "^60" (iter "1 4")
$ midiOn "^92" (ply 2)
$ slice 8 (run 8)
$ loopAt 2
$ "break:12"
# room 0.4 # dry 1.05 # sz 0.6
# pan 0.7
# midiG' "^84" 0 0.75
# crushbus 81 (range 16 2.5 "^56")