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