Code for my techno/footwork crossover set for Bengaluru's first Algorave

Sante-Algorave-26May-2019.tidal

let chup = mute
    o = octave
    ruppit p = spread fast [1, 2, 3, 4] $ p
    weird p = randDelay p = ((# delay (range 0.5 0.7 $ shift' 5001 $ rand)) . (# delaytime (shift' 5002 $ choose delays)) . (# delayfeedback (range 0.5 0.9 $ shift' 5003 $ rand))) $ p
    microd p = often ((# delay 0.3) . (# delaytime (choose[(1/16), (1/32)])) . (# delayfeedback 0.8)) $ p

setcps(140/120)

-- Angles break from the famous pack of breaks
p "d"
  -- $ weird
  $ chop 8
  -- $ trunc "0.5"
  -- $ loopAt 4
  $ slice16 "[0 .. 7]"
  $ s "breaks:2" # lpf 8000

-- dudak is a folder of interesting kicks from Steve Duda
-- Jukeit 2 is hats from a NI Maschine pack
-- Jukeit 1 is a clap
p "d"
$ every 8 (ruppit)
$ stack [
  s "dudak:2(5,8,2)",
  -- s "dudak:2(3,<4 8>,<1 2 3 5>)",
  -- s "bass:3(3,<4 8>,<1 2 3 5>)" # up 12 # l 1,
  -- every 4 (chup) $ s "jukeit:2*<8 [2 8]>",
  sometimes (chup) $ s "~ jukeit:1"
] # lpf 8000 # orbit 2 # octersubsub 0.5

p "b"
  -- $ chup
  $ foldEvery [2,5] (trunc "0.25")
  -- $ microd
  $ sometimes (fast "[2 1]")
  $ s "[junglibass:1]*1>" # l 0.5
  -- # lpf (range 800 3000 $ slowsine) # o "[2,3,6]"
  # lpf 6000

p "s" $ s "[stab:1*4]"

p "p"
  -- $ every 3 (linger 0.4)
  $ weird
  $ every 2 (chup)
  $ s "pads:6*<2 [8 16 2 5]>" # l "[0.8]" # lpf (range 200 7000$ slowersine)
  # up "<0 3 4 0>/4" # o "[4,5,7]" # orbit 1-- # lpf 8000

once
  $ s "airhorn"

p "algorave"
  -- $ loopAt 4
  -- $ slice 16 "[0 .. 3]"
  -- $ slice 16 "[3 .. 7]"
  $ slice 16 "[5 6]"
  $ s "repetition:1"

-- Sample from the Buddy Rich interview slamming country music
-- https://youtu.be/g67-LyG6JBY?t=425 -- Sample 2
-- https://youtu.be/g67-LyG6JBY?t=627 -- Sample 4
p "simple"
-- $ weird $ microd
-- $ every 4 (chup)
$ s "buddyr:2/8" # g 1.2 # l 1 # b "0.2"
-- $ s "buddyr:4" # g 1.2 # l 1 # b "0.8"