do -- resetCycles setcps (165/60/4) 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 let gDJF = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.01 0.45 saw))) let gDJF = id d1 $ gDJF $ gM2 $ gF1 -- KICK SOUTENANT $ midiOn "^42" (<| "k . ~ k ~ ~") $ fix ((# drumFrom "rolandtr909" "bd:3")) "909bd" $ "[jazz,909bd]" # midiG' "^78" 0 1.9 d2 $ gDJF $ gF1 $ gM -- FIXME Meilleure dialectique kick/snare $ fix (whenmod 4 3 (ply "4 [4 <1 2>]") . (|* gain 0.8) . (# rel 0.1)) "clap" $ fix ((# n 2) . (# pan 0.2) . (# note "-24")) "glitch" $ fix ((|* gain 0.85) . (# note "-2")) "snare" $ whenmod 32 0 (superimpose ((# "snare:22"))) $ "~ s ~ s*<1!3 2>" # "glitch" # begin 0.02 # end 0.15 # pan 0.8 # midiG' "^79" 0 1.9 d3 $ gDJF $ gM $ gF1 $ midiOn "^76" (mask "t(16,32)" . ply 2 . off "e" id) $ "~ h ~ h*<1!3 2> ~ h ~ h" # "h2ogmhh" # attbus 31 (range 0.2 0.05 "^52") # midiG' "^80" 0 1.9 |* gain (range 0.85 1 (fast 2 perlin)) d4 $ gF2 $ superimpose (# crushbus 41 (range 16 3 "^53")) $ note "<d4 e4 a3@2>" # "90s_matrix:3" # cut 4 # pan 0.2 # triodebus 42 (range 0 4 "^33") # midiG' "^81" 0 2 d5 $ gDJF $ gF1 $ whenmod 8 7 (# delay 0.6) $ someCyclesBy "<<f t? t t> t f>" (off "e" ((|+ pan 0.1) . (|* gain 0.75) . (|+ note 7))) $ note ("0(3,8,1)" |+ "<e <c d f c c f a c > <a4!4 d!3 a4>@2>") # "FMRhodes1" # pan 0.8 # room 0.2 # midiG' "^82" 0 1.9 d6 $ gF3 $ mask "<[t <t f>. f]!8 [t . f t]!8 t!16>" $ whenmod 64 32 ( fix (|* gain (slow 32 $ range 0.15 1 saw)) "cpluck:4" . fix (|* gain (slow 32 $ range 0.5 1 saw)) "cpluck:6" ) $ fix (|* gain (slow 32 $ range 0 1 cosine)) "cpluck:5" $ fix (|* gain (slow 32 $ range 0.5 0 sine)) "cpluck:6" $ note ("e@2 c@2 e <f g c b4>") # hbrickbus 61 (range 0 0.4 "^55") # "[cpluck:4,cpluck:5,cpluck:6]" # rel 2 # pan 0.2 # att 0.01 # midiG' "^82" 0 1.3 d7 $ gF3 $ note ("0(<3!2 [3 5] <3 5>>,8)" + "<<d!3 g> [e <e f>] a4@2>") # "moog:1" # pan (slow 16 $ range 1 0.7 saw) # gain 0.7 # room 0.4 # delay (slow 8 $ range 0.5 0.5 saw) # delayt (1/8) # delayfb (slow 16 $ range 0.1 0.8 saw) # cut 7 # crushbus 71 (range 16 2.4 "^55") # lpf 4000 # midiG' "^83" 0 1.3 d8 $ gM $ gF1 $ midiOn "^92" (ply 2) $ slice 8 (run "8 . <8!6 4 [4 8]> <8 8 16 <16 32>>") $ loopAt 2 $ "jungle_breaks:20" # cut 8 # midiG' "^84" 0 1.9