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
import Sound.Tidal.ParVagues.Control
do
resetCycles
setcps (92/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF
d1 $ g $ gPont
$ mask "<f!4 t!60>"
$ "[bd,jazz]*4" # room 0.1
d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]" # gain 0.4
d3 $ g $ gPont
-- $ mask "<f!8 t!24>"
$ (
mask "t . t t(2,4)"
. sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
$ "gretsch:4*16"
# pan 0.25
# gain (0.35 + 0.1 * (segment 8 perlin))
d4 $ g
$ mask "<f!4 t!28>"
$ note patFunk
# "bass3"
# pan 0.2
# gain 0.5
d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
$ note patFunk
# "pluck"
# room 0.6
# sz 0.8
# gain 0.35
d6 $ g -- Final guitare rita
$ whenmod 64 48 (# gain 0.25)
$ slice 16 "0 . 1 <~ 1 2>"
$ loopAt 6
$ "rita:0"
# gain 0
# cut 6
# hpf 400
d7 -- Bonus breaks
$ mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>"
$ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
$ "breaks165"
# pan 0.75
# cut 7
# gain (slow 8 $ range 0.35 0.45 saw)
# room 0.2
# hpf 100
d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
-- $ sometimesBy (slow 4 saw) (ply 2)
$ chop 4
$ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
-- $ mask "<f!32 t!32>"
$ "forgan:14"
# lpf 1000
# gain 0.3 * "<1!7 0.95 0.9!7 0.85>"
# cut 8
d10 -- F-U-N-K
$ mask "<f!8 t!24>"
$ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>"
$ whenmod 64 48 (swing "<6!8 [3 4]!8>")
$ someCyclesBy "<1!48 0!16>" (ply "<1 <2 [4 2]>>")
$ n "5 20 13 10"
# "alphabet"
# release 0.8
# gain (slow 32 $ range 0.2 0.34 cosine)
# pan "<0.1!4 0.9!4>"