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
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
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
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]"
# lpf 5000
d2 $ gF1 $ gM1
$ "~ s ~ s*2" # "snare:44"
d3 $ gF1 $ gM1
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8")
-- $ superimpose (ma) . (# cut 41))
$ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1)
# "bass3:2"
# cut 4
# crushbus 41 (range 16 2.5 "^53")
d5 $ gF3 $ gM3
$ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6))
$ slice 16 ("0")
$ "rootsGuitar:7"
# lpf 2000
# room 0.4 # dry 1.2
# cut 5
d8 $ gF1 $ gMute
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8))
$ midiOn "^92" (ply "<2!3 4>")
$ loopAt 4
$ chop 16
$ "<trance_loops:0!3 trance_loops:4>"
-- # n "<0!3 4>"
# cut 8
once $ "rootsGuitar:7"
do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
once
$ (0.125 ~>) -- Bien calé!
-- $ mask "<f!16 t!48>" -- Intro/64
$ whenmod 4 3 (slow "<2 4>") -- Break-ish
$ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
$ chop 4
$ slice 4 "<0!3 1>"
$ loopAt 4
$ "rootsGuitar:7"
# room (slow 32 $ range 0.2 0.65 saw)
# dry 1
# sz 0.9
# pan (0.75 + 0.25 * (slow 8 perlin))
# gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
# cut 5