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
do
setcps (90/60/4)
let modIndex = pF "modIndex"
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ f1
$ struct "t*<1!7 [4|2]> . <t t(<3 [<3 5>| 5]>,8)>"
$ superimpose ((# "jazz:0") . (|* gain 0.8))
$ n "[3,5]" # "808bd" -- MEGAKICK
# lpf 2000
# midiG' "^78" 0 1.5
d2 $ f1
$ midiOn "^43" (fast 2)
$ "~ snare:20"
# lpf 2400 # att 0.01 # rel 10
# midiG' "^79" 0 1.5
d3 $ f1 -- tio toc break clock
$ slice 16 "0 1 . <[0 1] [<0 0 2 <0 2>> 1*<1!3 <4 2>> <2 <~ 2?>> 3]>"
$ loopAt 2
$ "break:13"
# cut 3
# midiG' "^80" 0 1.2
d6 $ f2 -- Not even honest work bassline
$ midiOn "^89" (chop 4 . (# cut 6))
$ sometimes (off 0.5 (jux (|* gain 0.93))) -- ECH0ES
$ note ("<cs <cs@2 d@2> [~ <cs <e d [cs d] e>>]>" - 12)
# "bassWarsaw"
# room 0.3 # dry 1 # sz 0.9
# midiG' "^81" 0 1
# crushbus 61 (range 16 2 "^53")
# pan 0.8
d4 $ f2 -- Clochettes du depart
$ note ("d . d(<1!3 3>,4,1)" |+ "<c f>")
# "808lc:0"
# midiG' "^83" 0 1
# room 0.4
# sz 0.4
# dry 1
# pan 0.2
d5 $ f1 -- Tambourins du destin
$ whenmod 32 24 (mask "<t !3 f> . f!3 t")
$ "[<~ <~!8 d!8> ~ d> . d*<1 <2 4>>]*4"
# "[cpu:2]"
# gain 0.6
# delay "<<0.5!2 [0.5|0.8]*4 0.8>!3 0.8>"
# delayt 0.25
# delayfb 0.2
# room 0.5 # dry 1 # sz 0.2
# pan (slow 1 $ range (range 0.5 0.9 "^20") (range 0.5 0.1 "^19") (saw + perlin))
# midiG' "^84" 0 1.5
d7 $ f2 --
$ midiOn "^58" (superimpose ( -- Crystal rain
(|+ note 12)
. (# pan 0.9)
. (|* gain 0.9)
. (# modIndex (slow 32 $ range 0 20 perlin))
. (# delay (slow 13 $ range 0.1 0.8 perlin))
. (# delayt 0.125)
. (# delayfb "<0.5!3 0.9>")
))
$ struct "t(<2 3>,<<4 2> 8>) . t(5,8)"
$ arp "<up!3 down>"
$ ply 2
$ note ("<e'maj'2!3 cf'maj'2>" - 12)
# "FMRhodes1"
# pan 0.7
# midiG' "^82" 0 1