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
once $ "space" # gain 0.4
-- Legend of Main theme
do
-- region Utils
let modIndex = pF "modIndex"
let cF5 ch = cF 0.5 ch
let gDJF = (# djfbus 1 (range 0.15 0.99 "^49"))
let gRoom = (# roombus 2 (cF5 "51"))
let gSize = (# sizebus 3 (cF5 "52"))
let g = gDJF . gRoom . gSize
let gG = 2 * "^77"
let gM' l h ch = gain (range l h (gG * ch))
let gM ch = gM' ch 0 1
let ampb bus pat = (ampbus bus (gG * pat))
let midiOn ch pat = someCyclesBy ch pat
setcps (60/60/4)
-- endregion
d1 $ g
$ midiOn "^42" (fast 2)
$ midiOn "^41" (<| "k k k [<k!3 ~> <~ k>]")
$ midiOff "^41" (<| "k . k(<3!3 5>,8)")
$ "[jazz,cpu2]"
# gM' 0 1.2 "^78"
d2 $ g
$ midiOn "^43" (fast 2)
$ "h*8"
# "hh"
# gM' 0 1.5 "^79"
d3 $ g
$ midiOff "^41" (slow 2)
$ midiOn "^44" (slow 2)
$ midiOn "^76" (loopAt 0.5)
$ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4"
$ "breaks165"
# gM' 0 1 "^80"
d4 $ g
$ note ("a e . a ~ ~ <c6 e6 c6 e6 e6 e6 e6 c6>"
- 24)
# "bassWarsaw"
# ampb 40 (range 0 0.45 "^81")
# room 0.2
# crushbus 41 (range 16 2.95 "^53")
d5 $ g
$ note (cat [
"a e . [~ . a] [a b c6 d6]",
"e6 . ~ ~",
"a e . [~ . a] [a b c6 d6]",
"e6 . ~ ~",
"a e . [~ . a] [a b c6 d6]",
"e6 . ~ [e6*2]",
"f6 . ~ g6 . a6 ~",
"a6 a6 g6 f6 . g6 [~ f6] e6 ~",
"[d6 ~ d6 e6] f6 . ~ [f6 . e6 d6]",
"[c6 ~ c6 d6] e6 . ~ [e6 . d6 c6]",
"[b5 ~ b5 cs6] ds6 . ~ fs6",
"e6"
] - 12
)
# "FMRhodes1"
# modIndex (range 1 15 "^54")
# ampb 50 (range 0 0.45 "^82")
-- V0.1 Noel 2020
do
-- region Nova Utils
let gF = 1.5
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 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)
let gCPS = (# cps ((range 60 124 "^13")/60/4))
-- let bpm = ("^13")
-- endregion Nova Utils
let g = id
let g = gDJF
-- setcps (92/60/4)
-- setcps 0.5
-- resetCycles
d1 $ g $ gCPS $ "k . <k k(<3 5>,8)>" # "reverbkick"
# lpf 1000
# gM' 0 1.4 "^78"
# cps ((range 1 127 "^13")/60/4)
d2 $ g -- Break slow downtempo
$ someCyclesBy "^74" -- Intro
(slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy
(slice 8 "0 1 4 3")
$ someCyclesBy "^76" -- Fulltime!
(slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ slice 8 ("0 1 2 1 3 <5!3 3> 2 <3 1>")
$ "breaks125:4"
# gM' 0 1.4 "^79"
d3 -- Drumroll Zelda
$ g
$ "d*2 . ~ d*<1!3 2> d*2 d*2"
# "[drum:2,tech:13]"
# gM' 0.2 1.4 "^80"
d4 $ g
$ note ("<c4 bf3 af3 g3>")
# "supersaw"
# voice 0.1
# gM "^81"