setcps 0.5

d2
$ whenmod 8 6 (# gain 0)
$ every' 16 12 (# speed 0.75)
$ every' 16 13 (# speed 0.5)
$ every' 8 6 rev
$ s "<arpy*8 ~>"
# n (run 8)
# gain 0.8

d7
$ someCycles (degrade . off 0.5 id)
$ s "~ dsynth(<4 3 5>,8)"
-- $ off 0.25 (|- note 7)
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>"
# gain 0.7

once $ s "arp" # n 0

-- Basse synthé :)
d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.6 # orbit 0

-- Descente ineluctable, avec un vague espoir
$ note (scale "aeolian" (
  "[<0 0 -2 <-2 -1>> ~ 2 1 0]/2"
))

d1 -- continuous laser
$ slow 4 $ "bd" >| speed (segment (slow 24 "<32 64 128>") $ range 40 5 sine)

d1 -- continuous structured xylophone
$ sound "bd" >| speed (struct "t ~ t ~ ~ t t" $ range 5 20 saw)

-- TODO Gong-ronde
d1
  $ note (scale "gong" (run 8)) # "supergong"
  # gain 0.8
  # octave 4
