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
do
setcps (100/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF2
$ midiOn "^42" (<| "k*4")
-- $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 1>)")
-- $ midiOff "^42" ((off "") . ("k k k k"))
$ "[kick:5,kick:8]"
# delaybus 11 (range 0 0.4 "^30")
# delay "e"
# delayfb 0
# midiG' "^78" 0 1.3
d2 $ gF2 $ "~ [snare:10,cp]" # hpf 500
# midiG' "^79" 0 1.3
d3 $ gF2 $ gMute
$ note (stack [
"g2(<5 7>,16)", "d3(5, 12)"
])
# "bassWarsaw"
# attack ( slow 2.5 $ range 0.005 0.2 saw)
# rel (slow (2/3) $ range 0.2 0.8 sine)
# midiG' "^81" 0 1.5
# cut 3
# octer 1
d5 $ gF2
$ note (fast (4/3) $ "g4(<4 [4 8]>,8, 1)" + "<0 [0 0 7] 0 [0 12]>")
# "cpluck:2"
# legato 2
# crushbus 51 (range 16 2.5 "^54")
# cut 5
# room 0.9
# dry 1
# midiG' "^82" 0 1.5
-- d6 $ n "" # "amencutup" #
-- # midiG' "^82" 0 1.5
d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4)
$ slice 8 (run "<8!7 16>")
$ "[~ break:4]"
# cut 6
# speed (range 0 2 "^55")
# midiG' "^83" 0 1.5
once $ ""