once $ "scratch_long:50" # cut 1 # gain 0.8 once $ "voices_reggae" # cut 2 # n 12 # gain 0.8 do -- setcps (180/60/4) let gF = (# 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 gCPS = (# cpsbus 4 ((range 60 180 "^13")/60/4)) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gM = gMask . gMute d1 $ gCPS $ gF $ gMute $ midiOn "^74" (fast 2) $ midiOn "^42" (<| "k k k <k [<k ~> k]>") $ midiOff "^42" (<| "k k") $ "[wobble,kick:5]" # midiG' "^78" 0 1.2 d2 $ gF $ gMute $ fix ((|- note 4) . (|* gain 0.95)) "cp" $ midiOn "^43" (<| "~ s ~ s*<1 <2 [4 2]>>") $ midiOff "^43" (<| "~ s") $ "[snare:20,cp]" # midiG' "^79" 0 1.2 d3 $ gF $ gM -- course de chapeaux $ midiOff "^44" (mask "<t t(1,8)>") $ "~ o ~ o ~ o*<1 2> ~ o*<1!3 2>" # drumFrom "rolandd110" "oh" # midiG' "^80" 0 1.2 # pan 0.7 d4 $ gF2 -- Meth == Crash $ midiOff "^59" ((# legato 1) . mask "<t f>") $ midiOn "^91" (ply 8) -- $ loopAt 8 $ chop 8 $ "meth_1902:0" # pan 0.7 # crushbus 41 (range 16 1.5 "^55") # cut 4 # room 0.2 # sz 0.3 # dry 1.1 # midiG' "^83" 0 1.2 d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot $ midiOn "^57" (id) show $ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" ) $ loopAt 16 $ chop 8 $ "synth_commodore" # crushbus 51 (range 16 1.5 "^53") # pan 0.4 # room 0.2 # sz 0.2 # dry 2 # midiG' "^81" 0 1.53 # cut 5 d8 $ gF $ gM $ midiOn "^20" (# n "48") $ midiOn "^36" (# n 50) $ midiOn "^60" (slow 2) $ midiOn ("^92") ((# legato "1 h") . (ply "2 <4 [4 8]>")) $ loopAt 2 $ chop 16 $ "jungle_breaks:8" # rel 10 # midiG' "^84" 0 1.4