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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
-- Before
-- Ils arrivent
do
setcps (80/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 t f <f t>> <t f f <t f>>"))
let gM1 = (midiOn "^73" (mask "f*16"))
let gM2 = (midiOn "^74" (mask "f*16"))
let gM = gMask
d1 $ gM2 $ gF
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gM1 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^41" + "^42") (struct "~ t")
$ "clap"
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM1 $ gMask $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
$ n (run 16)
# "amencutup"-- V2: FrankAmenBreak
-- $ chop 32 $ loopAt 1 $ "fbreak80" -- V1: Existing
# midiG' "^80" 0 1.2
# cut 3
d6 $ gM1 -- Drumroll fou
$ midiOn "^91" (fast "2 <2!3 <4 [4 8]>>")
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
d7 $ gM1 $ gMask $ gF -- Final cymbal
$ mask "<f!16 t!7 f t t f t t f t t>"
$ "808cy:4" # midiG 0.8
# room 0.5 # dry (slow 8 $ range 0 0.8 saw)
# lpf 3400
d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
# delay 0.2
# delayfb 0.8
# delayt 0.125
# crushbus 41 (range 16 1.2 "^56")
# pan 0.7
# midiG' "^84" 0 0.9
d5 $ gMask $ gF2-- La Basse qui devance
$ midiOn "^57" (
superimpose (off 0.5 (|* gain 0.9) . arp "up" . (|+| note "<c'min'4!3 c'maj'4 c'min'4!2 c'maj'4>")
. mask "t(1,4)"
)
-- chop "4 <[4 8]> 4 <4!3 16>"
)
$ juxBy 0.3 (
(# crushbus 51 (range 16 2.2 "^53"))
. (|* gain 0.8)
)
$ note ("<a <f [f@7 g]> e@2>"
- "[0,12]"
- 24)
# "bassWarsaw"
# room 0.2 # sz 0.5
# pan 0.3
# midiG' "^81" 0 1.2
d8 $ gM $ gF2-- Mothership
$ whenmod 64 32 (off 4 (# crush 4) . (# cut 81))
$ "<~!8 ~ fx ~ ~>"
# "fx_commodore:8"
# cut 8
# midiG 0.6
# room 0.2 # dry 1 # szbus 81 (slow 4 $ range 0.2 0.8 saw)
# pan "<0.8!8 0.2!8>"