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
do
setcps (120/60/4)
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
let m = (degradeBy (1 - (0.9 * "0 ^29!15 0")))
d1 $ g
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . k(<3!3 <3 <1 5>>>,8,<0!3 4>)")
$ "[jazz,reverbkick]"
# att 0.03 # rel 0.99
# midiG' "^78" 0 1.52
d2 $ g
$ midiOn "^43" (<| "c*<2!3 4 4 [4 2] [4 8] 16>")
$ fix (# note "-2") (("glitch:2"))
$ superimpose ((# "[glitch:2,glitch:5]"))
$ "~ clap"
# pan 0.8
# note (range "-12" 12 "^51")
# midiG' "^79" 0 1.8
# room 0.72 # sz 0.5 # dry 0.99
d3 $ g $ m
$ someCyclesBy 0.1 (fast "<2 0.5>")
$ someCyclesBy 0.2 (ply 2)
$ fast "<1 1 2 1 2 2 2 <2!3 4>>"
$ "hh*4"
# midiG' "^80" 0 1.8
# lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32")
# leslie (range 0 2 "^52")
d4 $ g $ m -- BREAK
$ midiOn ("^57" - "^89") (ply 2)
$ midiOn "^89" (striate "<4!3 [8 4]>")
$ loopAt 1
-- $ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>")
$ "break" # n "<14!4 15!4>"
# midiG' "^81" 0 2
# cut 2
d6 -- Runny Maracas
$ g $ m
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ fix ((|* gain 0.9)) (n 9)
$ fix ((# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55")
# midiG' "^83" 0.25 2.5
d7 $ g $ m -- new breakbeats
$ loopAt 1
$ midiOn "60" (ply "2 <1 4>")
$ midiOn "92" (slice 4 "0 1 0 3")
$ slice 4 "0 <1!8 ~ 1 ~ 1 1 1 1? 1> 2 1*<1 0 1 <2 1 2 4>>"
$ "breaks125"
# midiG' "^84" 0.25 2
# cut 7
d8
$ g
$ fix (someCyclesBy "<0!16 1!8 0!8>" (mask "f")) (n 1)
$ fix (sometimesBy "0.25" $ ply 2) (n 1)
$ n (stack [
"~ . ~ 5 ~ ~", -- Kick
"6",
"~!3 <1 ~ [~ 1] 1*2>", -- Ho
""
])
# "tech"
# midiG' "^84" 0 2
d5 $ "tech"
-- Lignes harmoniques
d4 $ g -- c pure harmony
$ chop 8
$ note (arp "up" "<c gs>")
# octave 4
# pan 0.2
# "bassWarsaw"
# crushbus 4 (range 10 4.5 ("^53" + 0.5 * perlin))
# midiG' "^81" 0 1.5
d5 $ g
$ mask "<[f t]!4 t!12>"
$ note (scale "aeolian"
"<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>"
)
# "cbow:1"
# crushbus 5 (range 10 3.5 "^54")
# cut 5
# midiG' "^82" 0 1.5