do let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) let gM = gMask . gMute let gM2 = gMask . gMute2 setcps (160/60/4) d1 $ gMute -- $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>") -- $ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>") $ "k ~ <~ [~ k]>" # "[bd,808bd:3]" # midiG' "^78" 0 1.2 d2 $ gMute2 $ gF1 $ ((|* gain "1 <1!3 [1 0.9 1]>") . (whenmod 4 3 (fix (# "snare:30") "snare:29"))) $ "~ <s!3 [s [~ s] ~]>" # "[snare:29,snare:4]" # lpf 5000 # midiG' "^79" 0 1 d3 $ gF1 $ gMute2 $ "h h h h <h!3 ~> h*<1!7 2>" |* gain "0.8 1 1.1 1 1 1.1" -- # drumFrom "sakatadpm48" "[hh,oh]" # "hh" -- # n "0!3 <0!3 1>" # lpf 4500 # midiG' "^80" 0 1 d8 $ gF1 $ gMute2 $ loopAt 2 $ slice 8 "~ 0 ~ 2 ~ 4 ~ 6" $ "break:10" -- $ loopAt 2 $ chop 4 -- $ "jungle_breaks:44" # cut 8 # midiG' "^84" 0 1.2