do -- let dGlob = id -- let fxCrush = (# crush 16) let fx32LPF = (whenmod 32 16 (# lpf (slow 16 $ range 5000 500 isaw))) let dGlob = (fx32LPF) setcps 0.5 unmute 1 -- Kick unmute 2 -- Contre-claps unmute 3 -- Breakbeat unmute 4 -- unmute 5 -- Gong unmute 6 -- d1 $ dGlob $ whenmod 64 32 (slow "<4!16 2!16>") $ whenmod 32 24 (mask "t?(1,4)") $ whenmod 16 10 (# lpf 200) $ fast "<4!3 [4|2]>" $ s "[jazz,cpu2]" # gain 0.7 d2 $ mask "<t f>" $ fast 2 $ dGlob $ "~ . <c!3 c*2>" # "clap" # lpf 2000 # room (slow 64 $ range 0 0.8 sine) # sz (slow 16 $ range 0 0.7 saw) # gain 0.8 d3 -- $ dGlob $ degradeBy (range 0.2 0.8 perlin) $ bite 8 "0 1 2 <3 5>(3,8)" $ loopAt 2 $ "break" # cut 3 # gain 0.7 d4 -- Moog lead $ dGlob $ jux rev $ slice (slow 8 $ "<2 4 8 1>") "0*8 2*4" $ note (scale "aeolian" (run 8)) # cut 4 # "moog:1" # gain (slow 16 $ range 0.5 0.75 cosine) d5 $ dGlob $ slow "<4 2 1!30>" $ often (stut "<2!4 2 4 8 1>" 0.9 "<q!32 e!32>") $ "[g(<3!3 5>,8) | g(3,8) g?]" # "supergong" # legato 1.1 # note (slow 4 $ "<c'maj c'min>") # octave (slow 8 $ "<4 5>") # room 0.4 # sz 0.4 # gain 0.5 d6 $ dGlob $ mask "t(<1!2 2!2 4!4 8!24>, 8)" $ degradeBy "<0!10 0.2 0.4 0.6 0.8 [0.9 0] [0.1 0!3]>" $ jux ((# note 2) . ("s" ~>)) $ fast "8 <8!6 16!2>" $ "hh" # gain (slow 8 $ range 0.65 0.9 perlin) # room (range 0.4 0.7 perlin) -- region breakbeat do setcps (80/60/4) d1 -- $ superimpose (const $ s "jazz(<4!3 5>,8)" # gain 0.75) $ slice 8 ("0 1 2 3 4 5 <6 7> 7*<1 2 4>") $ "break:1" # gain (slow 8 $ range 0.5 0.6 saw) # cut 1 d2 $ slice 4 (cat [ run 8, "0 1 2 3 4!4", run 8, run 8, run 8, "<0!4 1!4 3!8>(5,8)" ]) $ "fbass" # n "<42!14 41!2>" # cut 2 # gain (slow 16 $ range 0.6 0.65 saw) d4 $ whenmod 32 28 ((# note 12) . slow 4) $ bite 4 "<0!8 1!8>*<4 8>" $ "fepiano:26" # gain 0.5 # cut 4 # room 0.4 do setcps (0.5) d1 $ fast 4 $ s "[jazz,techno]" # gain 0.75 d2 $ fast 2 $ whenmod 8 7 (off "e" id) $ whenmod 4 3 (off "q" id) $ "~ [snare:11,cp]" # gain 0.7 # lpf 2000 d4 $ fast "<1!4 2!4 4!2 8!2 16!3 [1]>" $ loopAt 2 $ "fclav" # n (slow 4 "<0 1 2 3>") # cut 21 # gain 1.1 d6 $ s "supersaw" # voice 0.1 # note (-24) once $ arpeggiate $ note "c'maj" # "supersaw" # voice 0.1 # gain 0.8