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
import Sound.Tidal.ParVagues.Control
-- New Dust: LoFi howto dust to dust
do
setcps (60/60/4)
let whenIntro pat = someCyclesBy "<t!8 f!24>" pat
let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat
let whenBrk pat = whenmod 16 10 pat
let whenNotBrk pat = someCyclesBy "<t!10 f!6>" pat
let whenBrkLPF = whenBrk (# lpf "<400 200 100 50 0 0>")
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gLPQ = (# lpqbus 2 (range 0.01 0.5 "^29"))
let gHPQ = (# hpqbus 3 (range 0.01 0.5 "^30"))
let g = gDJF . gLPQ . gHPQ
let prog = "<e [a5,f] [e,gs5] ~>"
let att = pF "att"
let dec = pF "dec"
let sus = pF "sus"
let width = pF "width"
d1 $ g -- Kick
$ whenBrkLPF
$ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
-- $ superimpose (
-- (# "reverbkick") . (|* gain 0.5)
-- . (# cut 11)
-- . (# attack 0.5)
-- . (# release 0.5)
-- )
$ midiOn "^41" (<| "k k k k k k k [<k ~> k*<1!7 2>]")
$ midiOff "^41" (<| "k ~ <~ ~ k ~> k . k k(<1!4 <5 3>!12>,8)")
$ "jazz"
# attack 0.5
# midiG' "^78" 0 1.7
# cut 1
d2 $ g -- Contretemps snare
$ whenBrkLPF
$ whenmod 8 6 (mask "<f [f t]>")
$ superimpose (# hpf 500)
$ every' 8 7 (ply 2 . mask "f!7 t" . (|* gain 0.8)) -- Double final
$ "~ s ~ <s [<~ s> s]>"
# "[snare:20,gretsch:2]"
# midiG "^79"
d3 $ g -- Drumroll fantôme
$ midiOn "^44" (const
-- $ sometimesBy "0 0.8!6 0" (ply "<2 [2|4]>" . (|* gain 0.9))
$ slice 8 (run 4 + "0 <~!4 4!4>")
$ loopAt 2
$ "break:21"
# midiG' "^80" 0 1.3
# room 0.2 # dry 1 # sz (slow 8 $ range 0.45 0.9 saw)
# leslie 0.2 # lrate 0.1 # lsize 0.7
# pan 0.7
)
-- $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ whenmod 8 4 (
(often (degradeBy "0 0.25!6 0"))
. (sometimesBy "0.75 0!6 0.75" (ply 2))
)
$ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
$ "drum:2"
# leslie (slow 12 perlin)
# lsize 2.8 # lrate 6.7
# room 0.6 # sz 0.9 # dry 1.01
# pan (0.4 + (slow 4 perlin/4))
# midiG' "^80" 0 0.8
d4 $ g -- Lead nostalgia gauche
$ midiOn "^57" (fast 2)
-- $ (|* gain "<1 [0.8 0.9] 0.8 ~>") -- ajust prog nombre variable
$ note (prog
|+| "<0 [0 . ~!3 <~ <1 -2>>] 0 ~>" -- fillers
-- $ note ("<e [g4,<d!3 f> . ~!3 <c!3 g>] [b4,e] ~>"
- 24 -- Gamme
)
# s "FMRhodes1"
# room 0.2
# leslie (range 0.1 1 "^33") # lrate 0.7 # lsize 0.5
# crushbus 4 (range 16 6 "^53")
-- # note "<-20 -15 [-20,-16] ~>"
-- # velocity "<0.7 0.6 0.7>"
# midiG' "^81" 0 1.5
d5 $ g -- Infectious Bassline
$ whenmod 16 8 (degradeBy "[0 0.5!3]*2")
$ midiOn "^58" (ply "[1 2]*<4 4 2 4>")
$ note (fast 8 (often rev "<e d c b4>")
- 24
)
# cut 5
# "bassWarsaw"
# width "^34"
# crushbus 5 (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
# room 0.2
d7 -- TOYS TODO Rework classico louche
$ degradeBy (0.99 - "^55")
$ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
$ slice 8 (stack [
"<~!8 4!4 [4 5]!4>", -- Classico
"<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod
""])
$ "toys"
# midiG' "^83" 0 0.7
d8 $ g -- Toy bogdan
$ fix (|* gain 0.75) "hh"
$ every' 16 15 (>| "~ ~ ~ bogdan:4")
$ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
$ every' 16 1 (>| "~ ~ ~ bogdan:4")
$ "~ ~ ~ hh"
# room 0.5
# legato 2
# hpf 200
# midiG' "^84" 0.5 1.1
# leslie 0.2 # lrate 6.7 # lsize 0.7
d9 $ g -- Toy Dusty
$ slice 24
(cat [ -- TODO: Confirm/refine progression, add echoes, :)
"0 0",
"~ 1 ~ 1",
"0 0 0 0",
"~ 1 1 1",
"~ 1 1 1",
"~ 1 1 1",
"~ 1 1 1",
"~ 1 ~ 1 ~ 1 2 3"
-- "2",
-- "0 1*2 2 ~ ~ ~ ~ ~"
])
$ "dusty"
# cut 9
# midiG' "^56" 0.3 1.1