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
once $ "breaks"
do
setcps (80/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let rDeg = degradeBy ("[0 1!7]*2" * (slow 32 $ range 0 0.75 saw))
let mDeg = degradeBy ("[0 1!7]*2" * range 0 0.9 "^13")
d1 $ g1 $ mDeg
$ (# midiG' "^78" 0 1.5)
-- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4)
-- $ midiOn "^42" (<| "k <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK
$ midiOn "^42" (<| "k . k(5,8)") -- BREAK
$ midiOff "^42" (<| "k k k <k k*2 k [~ k]>") -- 4F!
$ "[808bd:2]"
d2 $ g1 $ mDeg
$ whenmod 4 3 (off "<q e>" id)
$ midiOn "^43" (fast 2)
$ "~ a"
# note (-4)
# "[amencutup:5, snare:40]"
# midiG' "^79" 0 1
d3 $ g1 $ mDeg
$ "d d*<1!8 2!8> d*<1!8 2!8> d*<2 2 4 8>"
# "drum:2"
# pan (slow 8 $ range 0.4 0.6 isaw)
# midiG' "^80" 0 1.3
d5 $ g1 $ mDeg
$ midiOn "^57" (|* speed 2)
$ midiOn "^89" (ply "<2!3 4>")
$ slice 4 ("0 <~ 1> 2 <3!3 3*2>")
$ loopAt 1
$ "break:17"
# pan (slow 16 $ range 0.33 0.66 sine)
# pan 0.7
# midiG' "^81" 0 0.9
# crushbus 51 (range 16 3 "^53")
d6 $ g1 $ mDeg
$ midiOn "^60" (sometimesBy "0 1" rev)
$ midiOn "^92" (ply 2)
$ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>")
$ loopAt 2
$ "break:19"
# midiG' "^84" 0 0.9
# cut 6
# pan 0.8
d7 $ g1 $ mDeg
$ midiOn "^59" (iter "1 2")
$ midiOn "^91" (superimpose ((|* speed 2)))
$ loopAt "<4!8 2!28>"
$ "breaks165"
# midiG' "^83" 0 0.9
# cut 7
# pan 0.8
-- PHASE 2: RESOLUMENT CARRE
do
setcps (80/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
d1
$ "k*4"
# "jazz"
# gain 0.5
d2
$ "~ c ~ c"
# "cp"
# lpf 400
# gain 0.9
d3
$ "[h*<1!4 2 1!2 2>] h*3 . h*<1!8 2!8> h*4"
# "hc:3"
# cut 3
# gain 0.4
# pan 0.7
d4
$ slice 8 (run "8 <8!3 4>")
$ "break:1"
# cut 4
# gain 0.48