resetCycles do let gF1 = (# djfbus 1 (range 0.1 0.9 "^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 let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>" setcps (140/60/4) -- d1 $ gF1 $ gM2 d1 $ gF1 $ gMute2 $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>") $ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>") $ "[kick:5,clubkick]" # room 0.2 # dry 1.1 # cut 1 # gain 1.5 d2 $ gF1 $ gM1 $ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>") $ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>") $ "[snare:24,snare:51]" # gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>" d3 $ gF1 $ gM1 -- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)" $ "h(3,8) h(3,8)" # pan "0.2 0.8" # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32") d9 -- Bogdan the Grime sample provider $ whenmod 16 12 ( -- I'm from Cardiff! (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>") ) $ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3 $ end "<~ <0.42 <0.66 1>>>" # "bogdan_grime:3" -- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG # delay "<0 <0.7 0>>" # delayt "h" # delayfb 0 # speed 0.92 -- # room 0.4 # gain 1.2 d8 $ gF1 $ gM1 -- Come on breaks! $ chop 8 $ midiOn "^92" (ply 4) $ midiOn "^36" (loopAt 2 . (# n "<61>")) -- $ midiOn "^56" ((# n "19")) -- Pure COMEON! -- $ midiOn "^56" ((# n "23")) -- Raise COMEON! $ midiOff "^60" (mask "t(4,8)") $ loopAt 2 $ "jungle_breaks:26" # cut 8 # gain 0.9 d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique $ slow 2 $ note ( -- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>" "<<fs <[fs@15 e] [fs@14 cs e]>> b4>" -- "c g" - 12 + 2 ) # "giorgio_syn:1" -- # "bassWarsaw" # cut 4 # pan 0.3 # room 0.4 # octersubsub 0 # crushbus 41 (range 16 3.5 "^53") # octersubsubbus 42 (range 0 2 "^33") # gain 0.7 d5 $ gM3 $ gF3 $ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)") $ juxBy 0.4 rev $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>") # "marimba1" # att (range 0.8 0.2 "^34") # rel 1 # squizbus 51 (range 0 2.5 "^54") -- # delay 0 # delayfb 0.8 # delayt 0.25 # pan 0.9 # gain 3 # room 0.3 d10 $ gF2 -- Menace $ note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>" # "90s_synatm:10" # room 0.3 # sz 0.8 # gain 1 # att 0.10 # rel 10 # legato 2 # cut 9 d7 $ gM2 $ gF2 -- $ ply 2 $ midiOn "^59" (# speed "-0.25") $ midiOn "^91" (struct "t*<8!3 [8 4]>") $ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>") $ chop 16 $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6 -- # octersubsubbus 73 (range 0 8 "^19") -- # octersubbus 72 (range 0 4 "^35") -- # octerbus 71 (range 0 1.7 "^55") # crushbus 71 (range 16 1.7 "^55") # panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine)) once $ "bogdan_grime:1" # cut 9 90s_matrix:0 d8 $ "jungle_breaks"