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
-- Beat
do
-- region Nova Utils
let maxG = 1.5
let gG a = (gain ("^77" * (min maxG a))) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.9 a) -- gain Modéré doux
let gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49")))))
let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
setcps (80/60/4)
let g = id
-- endregion Nova Utils
let g = gDJF
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1
$ g
$ (0.01 <~)
$ sometimesBy ("^73") (fast 2)
$ somecyclesBy "^41" ((<| "k*4") . (|* gain 1.1))
$ somecyclesBy (1 - "^41") (<| "k . k(<3 5>,8)")
$ "[jazz,808bd:1]"
# gM' 0 0.95 "^78"
-- Break
d2
$ g
$ loopAt 1
$ someCyclesBy "^74" -- Leg
(slice 8 "0 ~ 2 ~ 4 ~ <6!3 ~> ~")
$ someCyclesBy "^75" -- Med
(slice 8 "0 ~ 2 3 4 <5 6> 6 4")
$ someCyclesBy "^76" -- Heavy
(slice 8 "0 1 2 3 4 3 6 6*2")
$ "fbreak80:2"
# cut 1
# lpf 5000
# gM' 0 1.4 "^79"
d3 -- Drumroll masked
$ g
$ someCyclesBy "^44" (fast 2)
$ sometimesBy "^52" (mask "t f!6 [t f]")
$ "drum*<8!3 [8 16]>"
# "gretsch:4"
# gM' 0.2 1.2 "^80"
d4
$ sometimesBy "^57" (superimpose (
ply "<2 4 [4 8] 8>" .
mask "t(1,4)"
. arpeggiate
. (# "superpwm")
. (|* gain 0.8)
. (# pan 0.6)
. (# crush 16)
. (# voice 0.2)
. (# octave 5)
))
$ sometimesBy "^89" (chop 8)
$ note (cat blues + chord)
# "bassWarsaw"
# pan 0.75
# room 0.1
# octave 4
# crush (range 11 6 "^53")
# voice 0.8
# room 0.1
# gM' 0.6 1.1 ("^81")
d5 -- Choeurs
$ sometimesBy "^90" (rev)
$ superimpose (
(0.5 ~>)
. superimpose (
sometimesBy "^58" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1))
. arpeggiate
. (|+ note chordAug)
. (# pan 0.55)
. (|* gain 0.95)
)
. (|+ note 12)
. (|* gain 0.95)
. (# legato 0.5)
. (# pan 0.45)
)
$ note (cat blues)
# "moogBass"
# gM' 0 1.2 "^82"
# octave 3
# room 0.4
# size 0.7
# dry 1.05
d7
$ sometimesBy "^59" (# lpf 2000)
$ g
$ sometimesBy "^91" (fast 2)
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.5 "^83"
# room 0.2
# dry 0.9
# lpf 2000
once $ "dr" # gain 0.8
gain
once
j