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
import Sound.Tidal.ParVagues.Control
resetCycles
do
setcps (60/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF
d1 $ g $ gPont
$ mask "<f!4 t!60>"
$ midiOn "^41" (fast 2)
$ "[bd,jazz]*4"
# midiG' "^78" 0 1.2
d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]"
# midiG "^79"
d3 $ g $ gPont
$ midiOn "^76" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
-- $ 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
# midiG' "^80" 0 1.5
d4 $ g
$ mask "<f!4 t!28>"
$ note patFunk
# "bass3"
# pan 0.2
# crush (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
$ ("q" ~>)
$ note patFunk
# "pluck"
# room 0.6
# sz 0.8
# crush (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita
$ slice 16 "0 . 1 <~ 1 2>"
$ loopAt 6
$ "rita:0"
# gain 0
# cut 6
# hpf 400
d7 $ g -- Bonus breaks
$ midiOff "^76" (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
# midiG' "^80" 0 1.2
# room 0.2
# hpf 100
d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
$ midiOn "^59" (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
# midiG' "^83" 0 1.2
# cut 8
d10 -- F-U-N-K -- TODO Variations FUCK / FUN
$ 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
# midiG' "^84" 0 1.3
# pan "<0.1!4 0.9!4>"