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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
import Sound.Tidal.ParVagues.Control
-- This is a test ;)
--
do
setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gFreqL = (# lpq (range 0 0.5 "^29"))
let gFreqH = (# hpq (range 0 0.5 "^30"))
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
let g = (gDJF . gFreqL . gFreqH)
d1
$ g
$ superimpose ( -- Undertone
(|+ note "<12!3 8 12!2 8 4>")
. (|* gain 0.9)
)
$ (|* gain "1!7 0.95")
$ midiOn "^41" (<| "k k k <k!3 k*2>")
$ midiOff "^41" (<| "b . ~ b ~ <~!3 b>")
$ "kick:5"
# midiG' "^78" 0 1.4
d2 -- Snare tchak!
$ g
$ g32Bridge
$ whenmod 16 12 (struct "t*<4 4 8 16>")
$ whenmod 16 4 (fast 2)
$ "~ cp"
# "[snare:40,snare:22]"
# pan 0.55
# note (range "-7" 7 "^51")
# room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2
d3 -- Running Hats
$ g
$ midiOn "^76" --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125")
. (|* gain 0.9)
)
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
# room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw)
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 3
d4 -- Resolute Bass
$ g
$ midiOn "^57" ( -- Glitch vary end
rev
)
$ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>")
$ loopAt 4
$ chop 16
$ "fbass:43"
# pan 0.15
# room 0.25 # sz 0.1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.6
# cut 4
d6 -- Opiniatre guitare
$ g
-- $ someCyclesBy "<t!16 f!16>" (segment "<8 <4 2>>")
$ midiOn "^90" (slice 2 (run "<4 <2 8>>"))
$ "fguitar:40/2"
# crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 1.2
# cut 6
d7
$ superimpose (
(# cut 71)
. arp "up"
. (|+| note ("[c, ef, f, c6]" + 12))
)
$ note ("<<c!2 ef!2> c <ef f> <c!7 b>>")
# "moog"
# midiG' "^83" 0 1.5
# cut 7
d9 $ g -- CLAPS!
$ midiOff "^60" (mask "<f!8 t!124>")
$ midiOn "^92" (fast 4)
$ "~ clap:2"
# midiG' "^84" 0 1.5
once $ "forgan:24"
# gain 1
# cut 3
once $ "fguitar:59" -- sometimes 43
# gain 1.2
# cut 5
d6 $ "seawolf:0/4"
# cut 6
# gain 0.75
once $ "dr" # gain 1