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
do -- BreakBass: Break to DNB
-- region moogBass parameters
let cutoff = pF "cutoff"
let lagamount = pF "lagamount"
let rel = pF "rel"
let chorus = pF "chorus"
-- endregion
-- region bassWarsaw parameters
let satt = pF "att"
let sdec = pF "dec"
let ssus = pF "sus"
let srel = pF "rel"
let width = pF "width" -- 0.15
-- , detune = 1.005, preamp = 4
-- endregion
-- region Nova Utils
let gF = 1.5 -- gain factor
let gG a = (gain (gF * "^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 novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let gReverb = ((# room "^29") . (# sz (range 0 0.9 "^30")) . (# dry (range 0 2 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20400 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- endregion Nova Utils
let g = (gDJF . gReverb)
let prog = "<1 1 2 4>"
setcps (160/60/4)
-- resetCycles
d1 $ g
-- $ mask "<f!4 t!16 t!3 f f!4 t f!2 t!2>"
$ novaOn "^42" (<| "k k k k")
-- $ novaOff "^42" (<| "k . ~ k ~ ~")
$ "[reverbkick,kick:5,kick:9]"
# gM' 0 1 "^78"
d2 $ g
$ whenmod 32 24 (slow 2)
$ novaOn "^75" (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOff "^75" (<| "~ s ~ s*<1 2 1 1>")
$ "snare:21"
# note (range "-4" 6 "^51")
# gM' 0 1.1 "^79"
d3
$ g
$ novaOn "^44" (chop 16)
$ slow (slow 2 "<1 2 2 4 4 8 8 8>")
$ "methbass:2"
# cut 1
# gM' 0.3 1 "^80"
d4
$ note ("<d2!4 g2!4>")
# "bassWarsaw"
# crush (range 10 3.13 "^53")
# gM' 0.3 1.4 "^81"
d6 $ g
$ degradeBy (1 - "1 ^55!7")
$ note ("d g . d g ~ <~!3 g>" + "<c'maj'2!4 c'min'2!4>")
# "FMRhodes2"
# pan 0.8
# octave 4
# gM' 0.3 1 "^82"
d7 $ g
$ mask "<f!24 t!8>"
$ "~ clap"
# gM' 0 1 "^55"
# dry 0.99 # room 0
# note (-2)
-- region SANDBOX
once $ "methbass:3" # cut 1 # gain 0.8 -- Comete
once $ "methbass:4" # cut 1 # gain 0 -- ALERTE
d3
$ g
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ "d*[8!3 <[8 . 8 4] [16 <4 16>]>]"
# "drum:2"
# gM' 0 1 "^80"
d4 $ g
$ novaOn "^57" (# width 1)
-- $ whenmod 16 8 (|+ note (scale "lydian" ("<4 4 6 7>")))
$ note (scale "lydian" (prog + "0 . 0(<3!3 5>,8)"))
# "bassWarsaw"
# satt ("^17")
# ssus ("^33")
# octave 2
# gM' 0.35 1.1 "^81"
# crush (range 10 3.13 "^53")
# legato 0.85
d5
$ sometimesBy "<[f t!3]!1 t!7 f!24>" (# silence)
$ g
$ whenmod 4 3 (slice 4 "0 1 2 2")
$ every' 4 2 (slice 4 "0 1 0 1")
$ whenmod 16 8 (chop 16)
$ "choir:4"
# room 0.4
# gM' 0 0.65 "^82"
# cut 5
d8
$ g
$ mask "<f!32 t!32>"
$ slice 8 ("~ <0 0 1 <1 2>>") $ "methbass:2"
# pan 0.8 # room 0.2
# gain ((range 0 1.3 "^56"* "^77") * (slow 16 $ range 0.45 0.65 sine))
d9
$ "<[~ ~ ~ w] w(3,8) w(5,8)>"
# "wobble:1"
# gain ((range 0 1.5 "^56" * "^77") * (slow 16 $ range 0.6 0.9 saw))
# hpf 200
# pan 0.8
# room 0.2
# cut 21