do setcps (90/60/4) let filterIt = (whenmod 32 24 (# djf (slow 8 $ range 0.2 0.8 saw))) let sync = (# nudge 1.53) let dGlob = (sync) let dGlob = (sync . filterIt) -- d1 $ dGlob $ "bd cp" # gain 0.8 d4 -- $ whenmod 64 32 (mask "t(1,4)") $ dGlob $ slice 8 (cat [ "0 1 2 3", "0 1 2 1", "0 1 2 <3 2>", "<4 6> 5 6 <7 6>" ]) $ "fbass:12" # cut 4 # gain (slow 32 $ range 0.5 0.85 saw) -- # crush "16!3 4" d5 -- Piano fou gauche sur 32! $ sync $ whenmod 32 16 (juxBy 0.2 ( someCycles (fast 2) . (|+ note 12) . (often rev) )) $ slice 4 ("<0 1 2 3>(3,8)") $ n ("<12!7 13>") # "fpiano" # gain (slow 8 $ "<0.5 0.85 0.7 0.5>") # pan 0.8 # cut 21 d6 $ dGlob $ slice 8 ("0*2 1 2*2 3(3,8)" + "<0!4 4!4>") -- $ mask "<t!3 f>" $ "fguitar:15" -- # hpf 200 # gain 0.7 # cut 6 # size 0.5 # room 0.2 d10 -- scratch moineau! $ sometimesBy 0.2 (off (1/32) id) $ degradeBy "0 0.1 0.8 0" $ euclid (slow 8 $ "<8 16>") 16 $ n "0" # s "birds3" # n (choose [0,0,2]) # gain 1.1 -- Section rythmique! Les zikos au sable do let sync = (# nudge 1.53) let dGlob = (sync . slow 1) d1 $ dGlob $ "k . k(<3!3 5>,8)" # "reverbkick" # gain 0.6 d2 $ dGlob -- $ fast "<1!4 2!3 4>" $ "ho:1*4 hc:4*4" # cut 2 # gain 0.75 d3 $ mask "<f!8 t!8>" $ dGlob $ jux rev $ fast ("<2 4>" * "<2 [4 2][2 4] 4>") $ "[dr,drum:8]" # gain 0.8 # room 0.2 # size 0.3 d4 $ dGlob $ arpeggiate -- $ every 2 (rarely $ off "e" (|+ note 7)) $ note "d4'maj'6(1,4,<0!3 1>) c3'maj" # "supergong" # note ("<-24!3 -12>") -- # voice (slow 4 $ range 0.1 0.8 perlin) -- # accelerate (slow 16 $ range 0.5 (-0.5) sine) # gain 0.65