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
import Sound.Tidal.ParVagues.Control
do
setcps (90/60/4)
let g = (# djfbus 1 (range 0.05 0.95 "^49"))
d1 $ g
$ midiOn "^41" (<| "f*2 f*2 f [f <~ f> f ~]")
$ midiOff "^41" (<| "0 . 0(3,8,<0!3 4>)")
$ "[rootsDrums,jazz]"
# midiG' "^78" 0 1.8
d2 $ g
$ midiOn "^43" (fast 2)
$ superimpose ((# "cp") . (# room 0))
$ n "[~ 4]*<2!6 4 [4 2]>"
# "rootsDrums"
# midiG' "^79" 0 1.8
# room (slow 24 $ range 0.3 0.9 saw)
d3 $ g
$ slice 4 "0 1 2 3"
$ loopAt 2
$ "break"
# midiG' "^80" 0 1.8
# cut 3
d6
$ g -- BASSLINE
$ n "<2!4 2 3 3 ~>"
# "rootsBass"
# midiG' "^81" 0 1.5
# crushbus 62 (range 16 1.4 "^53")
# cut 6
# pan 0.15
d4 $ g
$ midiOn "^58" (slice 4 ("<[0 1] [2 3]>"))
-- $ "<g g g/2 [~ <~ g ~ g*2>] g ~ g ~ g ~ ~ [~ g*4]>"
$ "g/4"
# s "rootsGuitar"
# lesliebus 42 (range 0 16 "^54")
# lratebus 41 ("^34")
# midiG' "^82" 0 1.5
# cut 4
# pan 0.3
d5
$ g
$ degradeBy "^56"
$ slice 16 (run 16)
$ loopAt 2
$ "rootsMix:1"
# midiG' "^84" 0 1.8
# cut 5
# pan 0.6
d10 -- Trompettes
$ g
$ n "<0 0 ~ ~ 1 1 [1*2 ~] 1 2 [2 3] 3 3 4 5 6 7>" # "rootsTrump"
# cut 8
# midiG' "^83" 0 (slow 16 $ range 1.4 0.8 saw)
# room 0.4
# sz 0.8
# pan 0.8
d9
$ "rootsTromb:3/2"
# midiG' "^83" 0 1.4
# cut 9
d7 $ g
$ superimpose (
(# cut 7)
. struct "t*<8!3 12>"
. (|+| note (arp "<updown!4 downup!2 pinkyup downup!3 pinkyup!2>" "<c'six'4!3 c'maj'4>"))
)
$ note (
"<cs3 b3>"
|+| "0 <7 <7 12>>"
)
# "FMRhodes2"
# crushbus 72 (range 16 4.3 "^36")
# midiG' "^20" 0 1.4