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
import Sound.Tidal.ParVagues.Control
setcps 0.5
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gDeg = (degradeBy (0.9 * "0 ^29!7 0"))
let g = gDJF
let chill = "<t!16 f!16 1!32>"
d1 $ g
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . k(<1 <3 5>>,8)")
$ "jazz"
# midiG' "^78" 0 1.4
d2 $ g $ gDeg
$ "~ . s <~!3 s> <~!7 s> <~ ~ s <~ <s ~>>>"
# "snare:34"
# midiG' "^79" 0 2
# note (range "-12" "12" "^51")
d3 $ g $ gDeg
$ juxBy "52" rev
$ whenmod 16 8 (often (slow "<4!3 2>"))
$ midiOn "^44" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)"))
$ loopAt 2
$ "break"
# midiG' "^80" 0 1.8
# cut 3
d4 $ g $ gDeg
$ midiOn "^41" (fast 2)
$ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]"
# midiG' "^81" 0 1.8
# note (range "-12" "12" "^53")
d5
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ loopAt "<1!6 2 2>"
$ "breaks165"
# cut 3
# midiG' "^82" 0 1.8