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
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.2 0.8 "^50"))
let gM = midiOn "^73" (mask "f*16")
d1 $ gF $ gM
$ (|* midiG' "^78" 0 1.4)
$ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8))
$ fix (|* gain 0.9) "jazz"
$ fix (|* gain 1.2) "kick:5"
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k ~ [~ k] <~!3 k>")
$ "[kick:5,jazz]"
d2 $ gF $ gM
$ midiOn "^43" (fast 2)
$ "~ s ~ s"
-- $ "~ ~ s ~"
-- $ "~ ~ ~ ~ s ~ ~ ~"
# "snare:24" # gain 1.3
# midiG' "^79" 0 1.5
d3 $ gF $ gM
$ ply "2!3 1"
$ "dr*8"
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^80" 0 1.5
d5 $ gF2 $ gM
$ chop 8
$ "90s_matrix:3"
# crushbus 51 (range 16 2.5 "^53")
# sz 0.9
# room 0.3
# cut 5
# midiG' "^81" 0 1.2
d7 $ gF2
$ midiOn "^57" (off "e" (mask "t!7 f"))
-- $ struct "t*4"
$ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>")
-- $ note (arp "<up up>" $ "<>")
# "bassWarsaw"
# crushbus 71 (range 16 2.5 "^54")
# midiG' "^82" 0 1.8
d6 $ gF2 $ gM
$ midiOn "^57" (ply "4 8")
$ "90s_matrix:0"
# crushbus 61 (range 16 2.5 "^55")
# sz 0.9
# cut 6
# midiG' "^83" 0 2
d8 $ gF2
$ struct "t*16"
-- $ superimpose (|+| note "[0 12]")
$ arp "up"
$ note ("a3'min'4" + "[0,<12!3 24>]")
# "acidOto3092"
# crushbus 81 (range 16 3.5 "^56")
# rel 2
# midiG' "^84" 0 2
d9 $ gF -- Breaks silence pesant.
$ slice 8 "<0 1 2 3> . <~!4 5 6 7>"
$ loopAt 4
$ "drums_atari:15"
# midiG' "^20" 0 2
# cut 9