do setcps (120/60/4) let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.2 0.8 "^50")) let gM = midiOn "^73" (mask "f*16") d1 $ gF $ gM $ (|* midiG' "^78" 0 1.4) $ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8)) $ fix (|* gain 0.9) "jazz" $ fix (|* gain 1.2) "kick:5" $ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOff "^42" (<| "k ~ [~ k] <~!3 k>") $ "[kick:5,jazz]" d2 $ gF $ gM $ midiOn "^43" (fast 2) $ "~ s ~ s" -- $ "~ ~ s ~" -- $ "~ ~ ~ ~ s ~ ~ ~" # "snare:24" # gain 1.3 # midiG' "^79" 0 1.5 d3 $ gF $ gM $ ply "2!3 1" $ "dr*8" # crushbus 51 (range 16 2.5 "^53") # midiG' "^80" 0 1.5 d5 $ gF2 $ gM $ chop 8 $ "90s_matrix:3" # crushbus 51 (range 16 2.5 "^53") # sz 0.9 # room 0.3 # cut 5 # midiG' "^81" 0 1.2 d7 $ gF2 $ midiOn "^57" (off "e" (mask "t!7 f")) -- $ struct "t*4" $ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>") -- $ note (arp "<up up>" $ "<>") # "bassWarsaw" # crushbus 71 (range 16 2.5 "^54") # midiG' "^82" 0 1.8 d6 $ gF2 $ gM $ midiOn "^57" (ply "4 8") $ "90s_matrix:0" # crushbus 61 (range 16 2.5 "^55") # sz 0.9 # cut 6 # midiG' "^83" 0 2 d8 $ gF2 $ struct "t*16" -- $ superimpose (|+| note "[0 12]") $ arp "up" $ note ("a3'min'4" + "[0,<12!3 24>]") # "acidOto3092" # crushbus 81 (range 16 3.5 "^56") # rel 2 # midiG' "^84" 0 2 d9 $ gF -- Breaks silence pesant. $ slice 8 "<0 1 2 3> . <~!4 5 6 7>" $ loopAt 4 $ "drums_atari:15" # midiG' "^20" 0 2 # cut 9