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
setcps (120/60/4)
once $ note ("a3 g3 f3 e3") #"arpy"
-- Main theme
-- https://musescore.com/static/musescore/scoredata/gen/6/4/8/4880846/ea1cf311c1390dad9144c752c6a58c4bfd11923d/score_0.png@850x1100?no-cachee=1563558543
-- Kass's theme
-- https://musescore.com/chromelxd/scores/3604791
-- Meeting the Heart Fairy
do
resetCycles
let prog = ("<a3 <g3 g3 as3 g3> <f3 f3 c4 f3> <e3 e3 f3 e3>>") -- FIXME Pont Final + synchro arps below
-- let arps = "0 <-2 -2 -1 -2> <-3 -3 -2 -3> <-2 -2 -1 -2>"
let arps = ("<[0 <-2 -2 -1 -2> <-3 -3 -2 -3> <-2 -2 -1 -2>]>" - "<0 [0]>")
-- let arps = ("[0 -2 -3 -2]" + "<0 <0 0 1 0>!3>") -- FIXME FACTORIZE ABOVE
d1
$ "odx"
# lpf 400
# release "<0.9!3 2>"
# room 0.1 # dry 1.01
d2 $ "~ amencutup:7"
# note (-4)
-- # hpf 1000
# gain 0.7
d4
$ note prog
# "supersaw"
# voice 0.1
# gain 0.5
# cut 4
d4
$ struct "t <~ t> . t <t [t t] [t t t]>"
$ note (
prog + arps
)
-- # octave 4
# "FMRhodes1"
-- # voice 0.4
# gain 0.95
d5
-- $ swingBy "1/8" 4
$sometimesBy "0 <0 0 1 1> <0 1> 0" (ply 2)
$ note (prog + arps + 24)
# "FMRhodes2"
# gain 0.8