do setcps (120/60/4) d1 $ superimpose (const $ "jazz" ) $ loopAt 4 $ "dusty" # gain 0.8 # cut 1 d2 $ fast "<4!3 8>" $ "dr" # gain 0.5 d3 $ sometimesBy "0.75 0.5 0.25 0.1" (ply 2) $ fast "<1!3 2>" $ "~ ~ ~ [sn:1,snare:2]" -- # gain 0.8 -- TECHNO-CLAP do d1 $ "k . <~!4 k!4 k(<3 5>,8)!4>" # "jazz" # gain 1.8 d2 $ fix ( (stut 2 0.9 "<q e s>") . (|* gain 2) ) ("hh") $ "c*2 c*<4 [2 4]>" # "cpu:3!7 [cpu2:2,hh]" # lpf (fast 4 $ range 2000 10000 rand) # gain (slow 16 $ range 0.8 2 sine) -- Samedi après-midi venteux do setcps (130/60/4) let glob = (degradeBy ("0 1 1 [1 0]" * 0.95) . (# djf 0.3)) d1 $ glob $ "bd*<4!16 2 2 1 2>" # gain 1.5 d2 -- continuous laser $ glob $ whenmod 32 0 (|* gain (slow 16 $ range 1 0.5 isaw)) $ jux rev $ slow 2 $ "bd" >| speed (segment (slow 24 "<32 64 128>") $ range 40 5 sine) d3 -- $ glob $ jux rev $ iter 4 $ whenmod 64 32 (# squiz 2) $ "bd*<[8 <8 8 2> 4 8]!3 [16!3 8]>" # gain 2.5 # hpf 5000 d4 $ glob $ superimpose ( swing 2 . arp "<updown!3 downup>" . (|+ note 12) ) $ "supersaw" # note ("<c3'maj c3'maj c3'min g3'maj>") # voice 0.1 # gain (slow 8 $ range 0.55 1 sine) d5 $ glob $ arp "up" $ "supergong" # note ("<c3'maj c3'maj c3'min g3'maj>") # octave "<7 7 8 9>" # gain 1.2 d6 -- bourrasque $ glob $ every 16 (jux rev) -- echo -- $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # gain 1.25 # pan 1