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