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
resetCycles
do
setcps (85/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mDegrade = (midiOn "^73" (chop 4))
let m = mBreak . mDegrade
d1 $ g1 $ m -- Kick basic
$ "k . ~!3 <~ <k k*2>>"
# "[jazz,808bd:2]"
# lpf 1200
# midiG' "^78" 0 1.2
d2 $ g1 $ m -- Snare 90s hip-hop
-- $ mask "<f!8 t!54>"
-- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
-- $ fast "<2 <2!8 [4!3 2]!8>>"
$ midiOff "^43" (mask "f t")
$ "~ s ~ s" # "[snare:8]"
# midiG' "^79" 0 1.2
d3 $ g1 $ m -- Drumroll offert
$ ply "1!3 <1 2>"
$ mask "t <t!3 [f t]>"
$ "drum:2*8"
# midiG' "^80" 0 1.1
# pan 0.4
d4 $ g1 $ m -- Break lourd pneumatique déconstruit
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
$ slice 4 (run 4)
$ loopAt 1
$ "break:15"
# gain 0.5
# pan 0.6
# midiG' "^80" 0 1.2
# cut 4
d5 $ g2 -- BASSLINE
$ midiOn "^57" ((|+ note 12) . (# legato 4))
$ note ("a4@2 c@3 <e!3 f> <f!3 e>")
# "90s_matrix:3"
# cut 4
# pan 0.3
# midiG' "^81" 0 0.57
# lesliebus 41 (range "-1" 1 "^17")
# lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
# lpf 5000
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2
d6
$ midiOn "^58" (iter "1 4")
$ midiOn "^90" (ply "<2 4>")
$ someCyclesBy "<0!4 1!60>" (slice 4 (
"0 1 2 <3!3 2*<1 2>>"
))
$ someCyclesBy "<1!4 0!60>" (slice 4 ("0 <~!3 0>"))
$ loopAt 1
$ "celtic_guitar85"
# pan 0.67
# midiG' "^82" 0 1.2
# cut 6
once $ "808bd:1" # note "d" # gain 2
d5 -- SUB accompagnateurs
$ g
$ mask "<f!8 f f t t t!50>"
$ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
# "808bd:1"
# lpf 4000
# gain 1.1
# room 0.5
# pan 0.33