-- Stack Aerienne setcps 0.46 d1 -- Kick regulier reprise 7/8 $ every' 8 7 (degradeBy "1 . 0 [1 0]") $ every' 8 3 (degradeBy "1 . 1 [1 0]") $ s "k k k [k k]" # s "kick:11" # note "0 0 0 [0 . <4 6>]" # gain 0.7 # pan 0.4 # room 0.5 # size 0.3 # dry 1 d2 $ weave 16 (pan (slow 8 $ sine)) [ -- Rythmique ( -- drumroll sometimesBy (slow 16 $ saw / 2) (superimpose ((# s "d") . (# gain 0.5))) $ degradeBy "0 <0 1> 0 0.5" $ s "d*16" # s "dr" # gain 0.7 ) , ( -- clochettes! whenmod 32 28 (# gain 0.75) $ whenmod 8 4 (jux ((1/16) ~>)) $ euclid "<8 1 7 1>" 8 $ s "superfork" # note ( slow 4 $ "<c'maj c'min>" -12 ) # gain 0.6 ) , ( -- scratch sometimesBy 0.2 (off (1/32) id) $ sometimesBy 0.6 (off (1/16) id) $ euclid (slow 8 $ "5 7") 8 $ n "0" # s "birds3" -- # n (choose [0,0,2]) # gain 0.3 ) ] d3 -- weird bassline $ fast 2 $ whenmod 16 12 (# gain 0) $ whenmod 16 8 (juxBy 0.25 rev) $ whenmod 8 2 (chop 2) $ every 4 (rev . chop 8) $ note "0" # s "bass1:1/2" # gain 0.5 d4 $ stack [ -- basses aeriennes ( superimpose (|+ note 12) $ note (slow 4 $ "<c'maj c'min>") # s "moogBass" # gain (slow 16 $ sine * 0.3 + 0.45) ) , ( superimpose (|- note 12) $ superimpose (swing 3 . arp "updown" . fast 2 . (|- note 12)) $ note ( (slow 4 $ "<c'maj c'min>") + "<0 12>" ) # s "ikedaBass" # gain (slow 16 $ cosine * 0.3 + 0.34) ) ] d5 $ superimpose ((# s "cheapPiano1") . (|- gain 0.3)) $ note "0(14,16, <0 0 2 2>)" # note (arpeggiate $ (slow 4 $ "<c'maj c'min>") -- accords + (slow 8 $ "<0 [0,[5 . <0 12>]]>") -- alerne do / quinte-octave + (slow 8 $ "<0 [-5 -12] [-12 -5] 0>") -- variations ) # s "superpiano" # velocity 0.5 # gain 0.7 # sustain (slow 4 $ "<1/8 <1/16 0>>") # pan (slow 16 $ 0.2 + sine / 8) d8 -- macron gabber guerre $ whenmod 128 64 (# gain 0.65) $ superimpose ((# octersub 16) . (# octersubsub 2)) $ every 2 (choose [0,0.125] ~>) $ n "~ 0*2" # s "macron:0" # begin 0.55 # gain 0