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
resetCycles
do
setcps (80/60/4)
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
-- 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 = (gDJF)
d1 $ g -- KICK
$ midiOn "^41" (<| "k*4 . k k k k*<1 2>") -- Run
$ midiOn ("^42" - "^41") (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
$ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
$ "[hh27:6,jazz]"
# midiG' "^78" 0 2
# 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"
# speed (range 0.5 1.5 "^52")
# midiG' "^80" 0 2
d4 $ g -- Bassline
$ midiOn "^57" (-- + Arps aigus!
superimpose (
often (off "h" rev)
. (|+ note (
"[0 <12 <12 24>>]" -- spread
+ "0(5,8)" |+ "0 7"
+ 12
))
. (|* gain 1.1)
. (# room 0.5) . (# sz 0.75)
)
)
$ note ("<0 [0 . 0 [0 3] 5 ~]>")
# "bass1"
# crushbus 41 (range 10 4.5 "^53")
# room 0.25 # sz 0.8 # orbit 4
# pan 0.2
# midiG' "^81" 0 1.8
d5 $ g -- fmono
$ midiOn "^90" (chop "<8!3 [8 16]>")
$ 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
# crushbus 51 (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 2 3 5>,8) . ~ 0*<2 4 2 [8 4]>"
+ "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
$ g
$ superimpose (arp "down up" .
(|+| note ("c'maj'2 <c'maj'4>" + "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.5
d10 $ g
$ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
$ midiOff "^92" (<| "~ c")
$ "clap"
# speed (range 0.5 1.5 "^56")
# midiG' "^84" 0 1.7
-- 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