setcps 0.5 d1 -- batterie $ every 4 (sometimes (# s "cpu:6")) $ s "[bd,[hh*2 dr:1 hh dr:1]]" d2 -- drums $ whenmod 16 8 (# gain (1.2 * tri)) $ whenmod 16 6 (# gain (1 * tri)) $ whenmod 16 4 (# gain (0.9 * tri)) $ whenmod 16 0 (# gain (0.8 * tri)) $ "hh:12(<2 4 2 6>,<4 8>)" d3 -- basse $ someCyclesBy 0.2 ((# room 0.2) . (# dry 8)) $ someCycles (# attack 0.2) $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7) # s "bassWarsaw" # gain 0.9 d4 -- lead piano $ whenmod 32 16 (someCycles $ degrade) $ 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.8 d5 $ 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 0.9 d5 -- final aigu $ degrade $ superimpose (|- note 7) $ note (scale "major" "0 3 7 12") # s "~ sosBell ~" # release 0.5 # gain 0.7