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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
import Sound.Tidal.ParVagues.Control
setcps (80/60/4)
resetCycles
do
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
let gDJF = (midiDJF "^49" 200 9800 0 200)
let gFreqL = (# lpq (range 0 0.25 "^29"))
let gFreqH = (# hpq (range 0 0.25 "^30"))
let gFreqs = (gFreqH . gFreqL)
-- region Params Rhodes
let modIndex = pF "modIndex"
-- endregion
let g = (gF . gDJF . gFreqs)
d1 $ g -- KICK
$ midiOn "^41" (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
$ midiOn "^42" (<| "k*4 . k k k k*<1 2>") -- Run
$ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
$ "[hh27:6,jazz]"
# midiG' "^78" 0 1.9
# room 0.3 # sz 0.5 # dry 0.9
d2 -- Breakbeat
$ g
$ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1)
-- $ midiOn "^43" (fast 4 . often (scramble 2))
-- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]")
$ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
# midiG' "^79" 0 1.75
d3 $ g
$ midiOn "^44" (fast 2)
$ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22"
# midiG' "^80" 0 1.8
# speed (range 0.5 1.5 "^52")
d4 -- Bassline
$ g
$ midiOn "^57" (-- + Arps aigus!
superimpose (
often (off "h" rev)
. (|+ note (
"[0 <12 <12 24>>]" -- spread
+ "0(5,8)" |+ "0 7"
+ 12
))
. (|* gain (0.95 - (0.1 * "^53")))
. (# crush (range 12 1.85 "^53"))
)
)
$ note ("<0 [0 . 0 [0 3] 5 ~]>")
# "bass1"
# crush (range 10 5 "^53")
# room 0.5 # sz 0.8 # orbit 4
# pan 0.2
# midiG' "^81" 0 1.4
d5 -- fmono
$ g
$ (# lpf (range 10000 5000 "^54"))
$ slice 8 (
"0 <1 1 0 0*2> 2 3*<1 <2 4>>" +
"<0 3>")
$ "fmono:40"
# cut 4
# crush (range 12 1.85 "^54")
# midiG' ("^82" + 0.125 * "^54") 0 1.2
# room 0.3 # sz 0.8 # dry 1
d9 -- Maracas Hats
$ g
$ fix (
midiOff "^60" (slow 4)
. whenmod 8 6 (fast "<2 [2 4]>")
. (>| "hh*[<4 8 8 4> 8 8 16]")
. (# cut 91)
) ("a")
$ fix (
midiOff "^60" (fast 2 . (<| "~ c"))
. midiOn "^60" (every' 4 3 (fast 2) . (<| "c*[8 16]"))
. (# "hh27:2")
) ("b")
$ "[a,b]"
# orbit 9
# midiG' "^84" 0.2 1.5
d6 -- Pwm steps
$ g
$ whenmod 32 16 (scramble 2)
$ note (
"0*2 . ~ 0*2"
+ "0 <0 12>"
+ (arp "up" "<c'minor'4!3 c'maj'4>")
+ "-24" -- Base gamme
)
# "superpwm"
# voice (range 0.01 2 "^55")
# pan 0.8
# room 0.5
# sz 0.4
# midiG' "^83" 0 1.2
d7 -- Arps FMRhodes1
$ stut 4 "q" "[0.95|0.8]"
$ g
$ superimpose (arp "down" .
(|+ note ("c'maj'2" + "0 12" + 12)))
$ note "<c4 ds4 c4 b3>/2"
# "FMRhodes1"
# pan 0.3
# modIndex (range 0 100 "^34")
# room 0.6 # sz 0.8
# midiG' "^18" 0 1.8
d10 -- Follow claps
$ g
$ "~ clap"
# midiG' "^56" 0.3 1.3
# room 0.2
-- region Sandbox
d3
$ whenmod 4 2 (someCycles $ ply 2)
$ slice 4 "<0 1 0 1 2 3 2 3>" $ "break:1" # gain 0.85
d4
$ note (
scale "lydian" ("0 4 3 <4 1 5 3>" + "c'maj"
+ "<0 0 1 1 2 2 3 3>")
- 12
)
# "FMRhodes1" # gain 0.9
once