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
