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
-- Tais-toi et grimpe !
do
setcps (90/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.9 "^49"))
let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^50"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let mBreakManual = (midiOn "^73" (mask "f*16"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let m = mBreak . mBreakManual
d1 $ g1
$ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8))))
$ midiOn "^42" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
$ midiOff "^42" ((<| "k . ~ k ~ ~") . m)
$ "[jazz,cpu]"
# midiG' "^78" 0 1
d2 $ g1 $ m
$ "~ s ~ s" # "sn:1"
# midiG' "^79" 0 1
d3 $ g2 $ m
$ whenmod 8 6 (fast "<2 [4 . 2 1]>")
$ "drum:2*[8!3 <16!3 [32 16]>]"
# midiG' "^51" 0 0.9
# pan 0.8
d4 $ g2 $ m
$ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52"))
$ midiOn "^76" rev
$ whenmod 8 7 rev
$ slice 8 ("0 1 2 3" + "<0!3 4>")
$ loopAt 2 $ "fbreak100"
# midiG' "^80" 0 1
d5 $ g2 $ m
$ note (scale "aeolian" ("0 . 5 <4!3 2>"))
# "moog"
# cut 5
# pan 0.2
# crushbus 50 (range 10 2.1 "^53")
# midiG' "^81" 0 1.4
d6 $ g2 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# "pluck:5"
# cut 6
# att 0
# rel (0.25 + 0.1 * perlin)
# crushbus 60 (range 10 1.9 "^54")
# pan 0.8
# room 0.4
# midiG' "^82" 0 0.8
d7 $ g2
$ midiOff "^59" (mask "t f!7 . t f!3 t f!3")
$ note (scale "aeolian" (
"[0 <7!3 0> <~ 2> 2 3] . 5 7 <4!3 2> <2!3 4>"
+ "[0,7]"
- 14
))
# "doubleBass"
# room 0.4
# sz 0.8
-- TODO: Add cool effect (crush doesn't work well)
# midiG' "^83" 0 1.7