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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
d1
$ note "c" # "supersaw" # gain 0.7
do
-- region Nova Utils
let gG a = (gain ("^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 gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 9000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- let gDelay = ((# delay "[0 0.5]/2") . (# orbit 1))
-- let gDelay = ("^29")
let novaOn ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
-- endregion Nova Utils
let g = (gDJF)
let melody = scale "aeolian" (whenmod 16 12 rev "0 2 0 <3 <4 5>>*<2 4>")
let gDelayD = (# delay (range 0 0.99 "^13"))
let gDelayFB = (# delayfb (range 0 0.9 "^29"))
let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2) . novaOn "^90" (# silence))
setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did.
-- resetCycles
d1
$ g -- Kick
$ novaOn "^73" (<| "~ ~ k ~") -- 1D
$ novaOn "^74" (<| "k*2") -- 2D
$ novaOn "^41" (<| "k*3 k*3 k*3 <k*3 [k ~ <~!3 k>]>") -- TRANSE
$ "k k k k"
# "[jazz]"
-- # room 0.05
# gM' 0 1.05 "^78"
d2 -- Clap contretemps
$ (# lpf 5000)
$ g -- Snare
-- $ (|/ lpf 2)
-- $ (|- lpf 1000)
$ novaOn "^43" (fast 2)
$ superimpose ((# "cp"))
$ "~ c"
# "glitch:2"
-- # "[snare:50,snare:4]"
# orbit 1
# gM' 0.2 1 "^79"
d3 $ g -- Hats
-- $ every' 4 3 (
-- sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
-- . sometimesBy "0 . 0 1 0 0" (|* gain 0)
-- )
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^44") (<|"h*8")
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ s "hh"
# room "^52"
# sz "^32"
# dry (range 0 2 "^16")
# pan (range 0 1 "^15")
# cut 3
# orbit 3
# gM' 0.2 1 "^80"
d4 $ g -- Lead synth
$ novaOn "^57" (mask "t f t")
$ slow 2
$ novaOn "^89" (striate 2)
$ note (iter 4 melody) -- Naif
# "supersaw"
# pan 0.6
# rate (range 0 1 "^18")
# resonance (range 0 0.9 "^34")
# lfo (range 0 1 "^54")
-- # resonance (range 0 0.9 "^54")
# voice (range 0 1 "^33")
# crush (range 16 2 "^53")
# release 0.95
# pan (range 0.5 1 "^18")
# gM' 0.25 0.8 "^81"
# phasr "^19"
# phasdp "^20"
d5
$ note (melody)
# "bassWarsaw"
# crush (range 12 4.2 "^54")
# octave 3
# pan (range 0 0.5 "^18")
# gM' 0 1.2 "^82"
d6 -- continuous laser
$ novaOn "^60" (off 1 (|* gain 0.8) . mask "<t f>")
$ novaOn "^59" rev
$ s "bd"
>| speed (
segment (range 16 128 "^35") $
range
(range 0 256 "^55")
(range 0 256 "^56")
(slow (range 0.1 2 "^36") saw)
)
# note (-48)
# gM' 0.5 0.85 "^83"
--- TODO HISTORIQUE
d5 $ g $ gDelay -- Skank Piano
$ whenmod 4 3 (sometimesBy "0 1 . 0" (
(# note "[d5,g4,b4]") . (|* gain 0.8)
))
$ "<[~ p*<1 1 1 <1 2>> ~ p*<1 1 2 1>]>"
-- TODO FIX ALIGNMENT CONTRETEMPS DE LA REPETITION
-- $ "<[~ p p] [~ [p <~ p*<1 2>>] . ~ p]>"
# "superpiano"
# note chords
# velocity 0.6
# sustain 0.34
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
$ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
# "superhammond"
# gM' 0 0.6 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34"))
# voice 6
# octave 6
# sustain 0.25
d7
$ g $ gDelay -- Skank Guitar
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
d8 -- Trompette lancinante
$ novaOn "^59" (mask "<f!3 t>")
$ slow 2 $ note ("~ <a!7 g> <g d g bf> ~")
# "brass:2" # gM' 0.2 0.55 ("^55")
# cut 8 # room 0.1
d9 -- CP
$ sometimesBy "^59" (fast 2)
$ (# lpf 2000)
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.1 "^83"
# room 0.2
# dry 0.9
# lpf 2000