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
-- FUNKY 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 "^29") . (# lpq "^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
-- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
$ "k k k <k [k k] k [~ k]>"
# "[jazz,cpu]"
# room 0.8 # sz 0.8 # dry 1
# gM' 0 1.5 "^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.3 "^84"
d3 $ g -- Break 4/4
-- $ sometimes (off "e" id)
$ fix (|* gain 0.8) (n 2)
$ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
# "amencutup"
# gain 1.2
# gM' 0 1.2 "^79"
# pan 0.4
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.35 "^80"
d4 -- RESONANT BASSLINE
-- $ (# lpq (range 0 0.8 "^53"))
-- $ (# lpf (slow 32 $ min 10000 (range 500 15000 sine)))
$ g
$ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2)
)
-- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw))
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
-- # accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>")
# gM' 0 1 "^81"
# crush (range 10 3 "^33")
# 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"
# gM' 0 1 "^82"
# cut 5
d7 $ g -- Fill drums
$ (|* gain (slow 10 $ range 0.9 1.2 perlin))
-- $ loopAt 2
$ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
-- $ mask "<f!3 t>"
$ "ffills:7"
# cut 7
# pan 0.6
# gM' 0 1.5 "^83"