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 gMute3 = (midiOn "^75" (mask "f*16")) let gM1 = gMask . gMute let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 setcps (140/60/4) d1 $ gF1 $ gM2 $ midiOn "^42" (<| "k*4") $ midiOff "^42" (<| "<<k!3 k(<3 6 12>,8)> [~ !7 <~ k>]>") $ "[jazz,kick:5,808bd:5]" d2 $ gF1 $ gM1 $ fix (|* gain 0.8) "sn" $ midiOn "^43" (<| "<~ [s*<1!3 3> ~]>") $ midiOff "^43" (<| "~ s ~ s*<1!6 3 3>") $ "[snare:13,sn:2]" d3 $ gF1 $ gM1 -- My grimest hat $ midiOn "^76" (fast "[2]") $ "h(3,8) h([<3 5 5 3> <3 5>],8)" # drumFrom "rolandtr909" "hh" # cut 3 |* gain "[0.75 1.1]*8" d5 $ gF3 $ gM3 $ chop 8 $ loopAt 8 $ "synth_commodore:3" # cut 5 # pan 0.7 # gain 0.8 d7 $ gF2 $ gM3 $ chop 4 $ loopAt 4 $ "meth_bass:17" -- # octer 1 # octersubbus 63 (range 0 1.5 "^19") # squizbus 62 (range 0 1.5 "^35") # crushbus 61 (range 16 2.5 "^55") # octersub 0 # octersubsub 0 # gain 0.9 d4 $ gM3 $ gF3 $ midiOn "^91" (ply "2 <4 8>" . chop 8) $ slow 2 $ midiOn "^57" (>| note ("<ef bf fs gs>")) $ midiOff "^57" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]")) $ "giorgio_syn:23" # cut 4 # room 0.4 # legato 2 # octersubbus 43 (range 0 5 "^17") # squizbus 42 (range 0 1.5 "^33") # crushbus 41 (range 16 2.5 "^53") d8 $ gF1 $ gM1 $ chop 8 $ midiOn "^36" (loopAt 2 . (# n "<60!3 61>")) $ midiOn "^92" (ply 4) $ midiOff "^60" (mask "t(4,8)") $ loopAt 2 $ "jungle_breaks:26" # cut 8 d9 $ gF3 $ "<~!7 bogdan_grime>" # n (slow 8 "<3!3 <2 0>>") # crushbus 91 (range 4 8 perlin * 4) # lpf 4000 # gain (0.7 + "<0.1!3 0>") -- $ midiOn "^91" (ply "2 <4 8>" . chop 8) -- d10 -- $ "~ ~ ~ s" -- # "glitch:2" -- # speed (slow 8 $ range 0.15 2 perlin) -- # cut 3 -- # gain 2 d11 $ gF3 $ n (stack [ "<~!7 <82 83 84 91 92 93>>", -- "42/4" "" ]) # "90s_megafx" # gain 0.8 # lpf 5000 d10 $ gF3 $ gM3 $ chop 8 $ loopAt 4 $ "jungle_riffs:21" # cut 4 # gain 0.6 # pan 0.4 once $ "dr" # gain 2.5 # cut 1