dub_a_trois.tidal

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