setcps 0.5 d1 -- batterie $ every' 4 3 (sometimes (# silence)) $ every 4 (sometimes (# s "cpu:6")) $ s "[sosKick,[hh*2 dr:1 hh dr:1]]" d2 -- drums -- $ someCyclesBy (slow 16 $ sine) (fast 2) $ euclid "<2 4 2 6>" "<4 8>" $ "hh:12" d3 -- basse $ whenmod 8 4 (|- note 5) -- quinte $ someCyclesBy 1 ((# size 0.5) . (# dry 1)) $ someCycles (# attack 0.2) $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7) # s "bassWarsaw" # gain 1.1 d4 -- lead piano -- $ whenmod 32 16 (someCycles $ degrade) $ whenmod 8 4 (|- note 5) -- quinte -- $ someCycles (jux rev) -- $ whenmod 16 14 (|+ note 15) -- $ whenmod 16 10 (|- note 3) $ whenmod 4 2 (|- note 7) $ someCycles (off 0.125 (|+ note "<12 7 12 12>")) $ someCycles (off 0.25 (|- note 5)) $ note (scale "major" "~ [3,<8 7 5>,10]" - 7) # s "superpiano" # sustain 2 # velocity 0.8 -- # gain 0.7 d5 -- choeur fou $ whenmod 64 60 (# gain (slow 4 $ (0.9 - tri * 0.4))) $ whenmod 8 4 (|- note 7) -- quinte -- $ sometimesBy (slow 32 $ sine) -- variations quinte -- superimpose ((|+ note 5) . degrade) $ someCyclesBy 0.2 rev $ chop "<2 4 6 8>" $ off 0.25 (|+ 7) $ s "moogBass" # cut 1 # note (scale "major" "<1 0 [1 3] ~>") # gain 1.1 d6 -- final aigu $ whenmod 64 32 degrade $ whenmod 8 4 rev $ sometimes degrade $ off 0.25 (|- note 7) $ off 0.125 (|- note 7) $ off 0.125 (|- note 3) $ note (scale "major" "0 3 7 12") # s "~ sosBell ~" # gain 0.8 # release 0.5 -- # gain 0