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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [~ k]>")
$ midiOff "^42" (<| "<<k!3 k(<3 6 12>,8)> [~ !7 <~ k>]>")
$ "[kick:5,808bd:5]"
d2 $ gF1 $ gM1 -- Snare complice
$ fix (|* gain 0.8) "sn"
$ midiOn "^43" (<| "~ s ~ s*<1!6 3 3>")
$ midiOff "^43" (<| "<~ [s*<1!3 3> ~]>")
$ "[snare:13,sn:2]"
# pan 0.3
d3 $ gF1 $ gM1 $ gMaskEnd16 -- My grimest hat
$ midiOn "^76" (fast "[2]")
$ "h(3,8) h([<3 5 5 3> <3 5>],8)"
# drumFrom "rolandtr909" "hh"
# cut 3
# pan 0.8
# gain 0.8
|* gain "[0.75 1.1]*8"
d5 $ gF3 $ gM3 -- Burning butterflies FIXME TROP NUMERIQUE
-- $ midiOn "^57" (>| note ("<ef bf fs gs>"))
-- $ midiOff "^57" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]"))
$ superimpose (arp "down" . (|+ note 12))
$ note ("[0(3,8,1), [12(<1 3 1 5>,8) 12(3,8,1)]]"
+ "<bf gs <bf!3 e> <g!3 <ef [cs ef]>>>"
- 24
)
-- # "giorgio_syn:20"
# "supersquare"
-- # cut 5
# modIndex 2
# crushbus 51 (range 16 5 "^54")
# pan 0.45
# gain (0.5 + (range 0 0.2 (slow 2 perlin)))
# room 0.2
# dry 0.9 # sz 0.5
d7 $ gF2 $ gM3
$ chop 4
$ loopAt 4
$ "meth_bass:17"
-- # octer 1
# octersubbus 62 (range 0 1.5 "^35")
# crushbus 61 (range 10 2.5 "^55")
# octersub 0
# octersubsub 0
# gain 0.9
d4 $ gM3 $ gF2 -- giorgio's massive tribal bass
$ midiOn "^91" (ply "2 <4 8>" . chop 8)
$ slow 2
$ midiOn "^57" (>| note ("<ef bf fs gs>"))
$ midiOff "^57" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]"))
$ "giorgio_syn:23"
# cut 4
# room 0.4
# legato 2
# octersubbus 43 (range 0 5 "^17")
# squizbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
# gain 0.6
d8 $ gF1 $ gM1 $ gMaskEnd16 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt 2 . (# n "<60!3 61>"))
$ midiOn "^92" (ply 4)
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
$ "jungle_breaks:26"
# cut 8
# gain 0.7
d9
$ midiOn "^42" ((<| "<~ b>")
. (# begin "<0!8 0.4!8>")
. (# end "<0.4!8 1!8>")
)
$ midiOff "^42" (<| "<~!7 b>")
$ "bogdan_grime"
# end (slow 8 "<0.4!3 1>")
# n 2
# lpf (slow 8 $ "<4000!12 400 800>")
# crushbus 91 (range 4 8 perlin * 4)
# gain (0.7 + "<0.1!3 0>")
-- d10
-- $ "~ ~ ~ s"
-- # "glitch:2"
-- # speed (slow 8 $ range 0.15 2 perlin)
-- # cut 3
-- # gain 2
d11 $ gF3
$ n (stack [
"<~!7 <82 83 84 91 92 93>>",
-- "42/4"
""
])
# "90s_megafx"
# gain 0.8
# lpf 5000
d11 -- Cut Cymbals
$ gM1 $ gF1
$ mask "<f!10 t!6>"
$ "h(3,8) h(<3 <5 8>>,8)"
# "hh:7"
# gain (slow 8 $ range 0.4 0.8 saw)
# cut 11
# pan 0.2
# legato "<0.5!6 1 1>"
# lpf 5000
d10 $ gF3
$ chop 16
$ loopAt 4
$ "jungle_riffs:21"
# cut 4
# gain 0.6
# pan 0.4
once $ "dr"
# gain 2.5 # cut 1