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
do
setcps (160/60/4)
let g1 = ( # djfbus 1 (range 0.05 0.95 "^49"))
let g2 = ( # djfbus 2 "^50")
-- let g1 = id
-- let g2 = id
d1 $ g1
$ superimpose (
(# att 0.08) . (# rel 0.05)
. (# "drums_atari") . (# cut 1) . (|* gain "^30"))
$ midiOn "^41" (slow 2)
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "kick:5"
# midiG' "^78" 0 1
d2
$ midiOn "^75" (sometimesBy "0!3 <0!3 1>" (fast 2) . fast 2 . (|* speed 2))
$ g1 $ chop 16 $ loopAt 2 $ "break:15"
# cut 2
# midiG' "^79" 0 1.1
d3 $ g2
$ midiOn "^44" (mask "f(5,8)")
$ midiOn "^76" (ply "2 <2!3 4>")
$ "drum:2*[8 <8 [8!3 16] 8 [16 32]>]"
-- # cut 3
# pan (slow 16 $ range 0.2 0.8 (sine + perlin))
# midiG' "^80" 0 1
d4 $ g2
$ midiOff "^90" (mask "t(<8!4 8 [8 16] 8 [8 . 32 16]>,32)") $ chop 32
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "synth_nes:0"
# cut 4
# gain 0.65
# roombus 42 (range 0 0.4 "^33")
# pan 0.8
# squizbus 4 (range 0 16 "^54")
# midiG' "^82" 0 1
d5 $ g2
$ midiOn "^89" (|+ note 12)
$ midiOn "^57" (|+| note "[0 12 0]*<1 1 2 4>")
$ note ("0(3,8) <7!3 [12 <7 7 7 7>]>*<1!3 2>"
+ "<f3 gs3 c4 <bf3!3 ds4>>" - 12)
# "bassWarsaw"
# crushbus 5 (range 16 2 "^53")
# ampbus 52 (range 0 0.94 ("^81" * "^77"))
-- GRAVEYARD
d2 $ g1
$ midiOn "^43" (ply 2)
$ slice 8 "2"
$ "drums_gameboy"
# n (slow 4 $ "<6 5>")
# pan 0.8
# cut 2
# midiG' "^79" 0 1