do setcps (80/60/4) -- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t")) 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 d1 $ gF1 $ gMute2 $ midiOn "^42" (<| "k k k <k k*2 k [~ k]>") $ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements $ "[cpu,jazz]" # lpf 5000 d2 $ gF1 $ gM1 $ "~ s ~ s*2" # "snare:44" d3 $ gF1 $ gM1 $ "drum:2*[16 <16 [16 8] 8 [16 32]>]" d4 $ gF2 $ gM3 $ midiOn "^89" (struct "t*8") -- $ superimpose (ma) . (# cut 41)) $ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1) # "bass3:2" # cut 4 # crushbus 41 (range 16 2.5 "^53") d5 $ gF3 $ gM3 $ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6)) $ slice 16 ("0") $ "rootsGuitar:7" # lpf 2000 # room 0.4 # dry 1.2 # cut 5 d8 $ gF1 $ gMute $ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8)) $ midiOn "^92" (ply "<2!3 4>") $ loopAt 4 $ chop 16 $ "<trance_loops:0!3 trance_loops:4>" -- # n "<0!3 4>" # cut 8 once $ "rootsGuitar:7" do -- resetCycles -- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base once $ (0.125 ~>) -- Bien calé! -- $ mask "<f!16 t!48>" -- Intro/64 $ whenmod 4 3 (slow "<2 4>") -- Break-ish $ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé $ chop 4 $ slice 4 "<0!3 1>" $ loopAt 4 $ "rootsGuitar:7" # room (slow 32 $ range 0.2 0.65 saw) # dry 1 # sz 0.9 # pan (0.75 + 0.25 * (slow 8 perlin)) # gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw)) # cut 5