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
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- 🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥
--
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ g $ gMute
$ midiOn "^42" (<| "k*4" )
$ midiOff "^42" (<| "k . k(3,8)")
$ fix (# lpf 200) "kick"
$ "[jazz,kick:4]"
# midiG' "^78" 0 1.5
d2 $ g $ gM
$ midiOn "^43" (fast 2 . (# note "<8!15 -2>"))
$ "~ cp" # note "<8!3 -2>" # lpf 4000
# midiG' "^79" 0 1.8
d5 $ g $ gM -- Le comburant
$ midiOn "^76" (off "e" id)
$ midiOn "^44" (off (- "s") (|* gain 0.9))
-- $ "~ t*<1!8 2 1!6 2> ~ t ~ <t!3 t*<2!3 1>> ~ <t!7 t*2>"
$ "~ t ~ t ~ t ~ t*2"
# "cpu2:3"
# midiG' "^80" 0 1.65
d3 $ g $ gM -- L'étincelle
$ someCyclesBy "^36" (slow "<2!3 [2 1]>")
$ midiOn "^92" ((iter 4))
$ midiOn "^60" (
(# delay 0.85)
. (# delayfb "<0.25!3 <0.5 0.9>>")
. (# delayt 0.125)
. (|* gain 0.9))
$ (|* speed (range 0.25 1.75 "^56"))
$ chop 16
$ loopAt 4
$ "drums_nes:3"
# lpf 4000
# midiG' "^84" 0 1.3
# pan 0.2
d4 $ g2 -- Le combustible
$ midiOn "^57" (
(superimpose (arp "up <up up updown up>" . (|+ note "c'min'8"))) .
(# "bassWarsaw") . (|- note 24)
)
$ midiOff "^57" ( midiOn "^17"
((superimpose (
struct "t . <t t(<1 2 <3 8>>,8)>"
. arp "up"
. (|+ note "[0,12]"))) .
(# "bassWarsaw") . (|- note 24))
)
$ note (scale "aeolian" (
"<0 [0, <<7 7 8 9>!3 <8 8 8 7>>]>"
))
# "cpluck:0"
# roombus 42 (range 0 0.8 "^33") # sz 0.6
# crushbus 41 (range 16 1.4 ("^53" - 0.12 * (fast 2 perlin)))
# midiG' "^81" 0 1.85
# pan 0.3
d6 $ g2 $ gMask -- La fumee
$ sometimesBy (1 - "^18") (mask "t <t <t!4 f!4>> . f!3 <t f>")
-- $ sometimesBy (1 - "^18") ()
$ midiOn "^90" (ply 2)
$ midiOn "^58" (>| note (scale "aeolian" (arp "down" ("<0!2 3 [0 3]> . <~ 0> <~ ~ 0 12>" |+| "c'maj'4"))))
$ midiOff "^58" (>| note (scale "aeolian" (arp "up" ("<0!2 3 [0 3]>" |+| "c'maj'4"))))
$ "cpluck:1"
# crushbus 61 (range 16 1.4 ("^54"))
# cut 6
# room (slow 8 $ range 0 0.4 saw)
# sz 0.5
# pan 0.7
# midiG' "^82" 0 1.65
d7 $ loopAt 8 -- L'auteur TODO: Rework? Replace? Remix?
$ "90s_synatm:16"
# cut 7
# octerbus 71 (range 0 2.4 ("^55"))
# room 0.2 # dry 1 # orbit 4
# midiG' "^83" 0 0.93
d8 -- Dark Event
$ mask "<f!14 t t>"
$ "90s_megafx:268@2"
# release 3
# att 0.1
# cut 8
# note (-4)
-- # n (4 + "<1 1 [2|3|4] <1 4>>")
# midiG' "^20" 0 1
# room 0.2 # dry 1
# pan "<0.3!3 <0.7 0.3>>"