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
-- Dark ANGEL FRAPPE
-- Needs bass/more lead high?
do
-- region Nova Utils
let gFactor = 1.4
let gG a = (gain (gFactor * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let gRes = (# hpq (range 0.01 0.5 "^29")) . (# lpq (range 0.01 0.5 "^30"))
let novaOn ch pat = (someCyclesBy ch pat)
let novaOff ch pat = someCyclesBy (1 - ch) pat
-- endregion Nova Utils
let g = (gDJF . gRes)
setcps 0.5
d1 $ g
$ midiOn "^42" (<| "k k k k")
$ midiOn "^41" (<| "k k k <k [k k] k [~ k]>")
$ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)")
$ "[jazz,cpu,bd:8]"
# room 0.2 # sz 0.8 # dry 1
# gM' 0 1.16 "^78"
d2 $ g -- Clap
$ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
$ novaOff "^60" (# silence)
$ "~ [clap,<cp!3 ~>]"
# lpf 2500
# room 0 # dry 0.99
# gM' 0 1.13 "^84"
d3 $ g -- Break 4/4
$ midiOn "^43" (slow 2)
$ fix (|* gain 0.8) (n 2)
$ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
# "amencutup"
# note (range "-12" 12 "^51")
# pan 0.4
# gM' 0 1.4 "^79"
d8 $ g -- Hats
$ fix (|* gain 0.9) ("hh27")
$ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
# "[drum:2,hh27:4]"
# pan (slow 16 $ range 0.4 0.6 saw)
# gM' 0 1.45 "^80"
d4 -- RESONANT BASSLINE
$ g
$ novaOn "^57" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2)
)
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
# gM' 0 1 ("^81" - 0.2 * "^53")
# crush (range 10 1 "^53")
# room 0.5 # sz 0.8
d5 $ g -- Synth voices
$ novaOff "^58" (# silence)
$ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51)))
$ loopAt 2
$ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
$ "fsynth:47"
# crush (range 10 2 "^54")
# gM' 0 1 ("^82" - 0.2 * "^54")
# cut 5
d7 $ g -- Side guitar
$ sometimesBy "^35" (scramble 16)
$ mask "<t!6 f!2>"
$ loopAt 2
$ "fguitar:61"
# cut 7
# pan 0.2
# crush (range 16 2 "^55")
# gM' 0 1 "^83"