do setcps (170/60/4) let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw))) d1 $ g $ fix ((# att 1) . (# rel 2)) "kick" $ "[jazz,bd,kick:5]*4" # gain 1 d2 $ g $ note "~ 0 . <~ <[~ -2]!3 ~>> 0" # "snare:4" # lpf 2000 d3 $ g $ "hh*8" d4 $ g $ note ( "[d3 <f3!4 g3!4>]*4" ) # "superhammond" # cut 4 # gain 1.1 # begin 0 d5 $ g $ mask "t(<1!3 5 1 5 1 5>,8)" $ slice 4 "0 1 2 3*<1!3 2>" $ loopAt 1 $ "breaks165" # gain 1.1 # lpf 5000 d6 $ sometimesBy (slow 8 $ range 0 0.8 saw) (ply 2) $ juxBy 0.4 (rev . (|- note 24)) $ mask "t(<4 3>,8) . t(<5 3>,8)" $ arp "converge" $ note "d4'maj11'8" # "superfork" # pan 0.8 # gain (slow 64 $ range 0.5 1.6 saw) # begin 0 d7 $ slice 4 "<0 0 1 1>" $ "punk:0" # note ("<0!32 -4!32>") # cut 7 # pan 0.2 # gain 0.9