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
105
106
import Sound.Tidal.ParVagues.Control
linput = pI "linput"
lname = pS "lname"
do
setcps (123/60/4/2) -- Each sample over 2 cycles
resetCycles
d1
-- $ qtrigger 1
$ "looper"
# n (8 + "<0 1 2 3 4 5 6 7>")
# lname "" -- "yehudi"
d2
$ mask "<t!8 f!8>"
$ "jazz" # gain 0.7
d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
do
setcps (123/60/4)
d1 $ "k . ~!3 <~ k>" # "jazz" # lpf 2000 # gain 0.6
d2 $ "~ s"
# "snare:71"
# hpf 1500 # gain 0.7
d3
$ loopAt 2
$ "break:15"
-- #
# gain 0.65
-- resetCycles
-- region SAVE
once $ s "persistLoops" # lname "" -- yehudi
-- endregion
d1 $ ""
d4
$ loopAt 2
$ "yehudi"
# n (slow 4 $ 8 + "<0 1 2 3 4 5 6 7>")
# cut 4
# gain 0.9
# room 0.5
# sz 0.7
do
d1 $ "jazz(1 . <3 5>,8)" # gain 0.6
d2 $ "~ cpu2:4" # gain 0.8
d5 $ "logic:3*<1 2 1 4>"
# begin "<0.2!2 0>"
# hpf 1000
# cut 1
do
setcps (122/60/4)
-- d1 $ "jazz" # gain 0.7
d2 $ "logic:2" # cut 1
# gain 1.8
-- Hello Rhodes
do
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
setcps (120/60/4)
d1
$ g
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k <k!7 [~ k]>")
$ "jazz"
# midiG "^78"
d2 $ g
$ "~ cp"
# midiG "^79"
d3 $ g
$ fast ( -- cycle/4 ralenti-accelere
slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>"
)
$ s "dr*8"
# s "ifdrums:1"
# pan 0.4
# midiG' "^80" 0 1.1
d4 $ g -- bassine
$ whenmod 16 8 (slice 16 (run 8))
$ "loop" # n "<0!4 1!4>"
# midiG' "^81" 0 0.8
# pan 0.2
# crushbus 41 (range 10 1.5 "^53")
d5 $ g -- Looped Rhodes
$ "loop" # n "<3!3 4 3 4 4 5>"
# pan 0.8
# midiG' "^82" 0 1
# pan 0.75
# ampbus 101 (range 0.5 1.5 "^54")
# room 0.6 # dry 0.8
d6 $ g --
$ "hello"
# n "<0 1 2 3>"
# midiG' "^82" 0 0.8
# pan 0.65
# ampbus 101 (range 0.5 1.5 "^34")
d2 $ s "looper" # n "<0 1 2 3 4 5 6 7>"