setcps 1 d1 -- lightly varying kick $ jux id $ whenmod 16 10 (every' 2 1 (0.125 ~>)) $ every 8 (0.25 <~) $ every 4 (0.5 ~>) $ s "kick:5" d2 -- lead laser! $ jux rev $ iter 4 $ chop 4 $ whenmod 16 10 (someCyclesBy 0.2 (fast 2)) $ whenmod 128 64 (someCycles (superimpose (# note (scale "major" "[-21,14,3]")) )) $ whenmod 64 60 ((# gain 0.7) . (stut 4 0.9 "<0.25,0.05 .. 0.50>")) $ whenmod 32 30 ((# gain 0.7) . (stut 4 0.9 0.1)) $ whenmod 32 28 (# silence) $ whenmod 16 15 (# gain (tri * 1.2)) $ whenmod 16 14 (# silence) $ s "bd" >| speed (segment 50 $ range 40 5 (saw)) |+ note (scale "major" "<14 7 5 3 1 0 7 0 -7 14>") # pan 0.8 # gain 0.8 d3 -- simple claps $ whenmod 64 32 (# gain "<0.64,0.01 .. 0.96>") $ whenmod 64 28 (# gain "<0.4,0.05 .. 0.6>") $ whenmod 64 0 (# gain 0) $ every 8 (off 0.25 id) $ every 4 (off 0.25 id) $ (0.5 ~>) $ s "jazz:4" d4 -- drumroll $ whenmod 16 10 (degradeBy "<0.8,0.1 .. 0> <0,0.1 .. 0.6>") $ whenmod 4 3 (degradeBy "0 0.5 0.5 0.9") $ s "dr*8" # n 0 # pan "<0.4,0.05 .. 0.7>"