-- LOOP FunkTechno focus

solo 3

do
setcps (110/60/4)
d1
  $ whenmod 16 12 (mask "<f!3 [f!3 t]>")
  $ fast 4 $ "jazz" # gain 0.9
d2
  $ whenmod 16 12 (mask "<f!3 [f t]>")
  $ sometimesBy "0!4 0.5!3 0" ( -- Open hat
    often (stut 2 0.9 "[s|e|q]") . (# s "ho:1") . (|* gain 0.65))
  $ whenmod 8 6 (juxBy 0.5 rev)
  $ "hh(<8 <5 3>>,8,<0!6 4!2>)"
  # gain (slow 10 $ range 0.8 1.2 sine)
  # cut 2
d3
  $ whenmod 16 8 (<| "dr*<16 12 8 16>")
  $ "d*4 d*<4 8>" # "dr" # gain 0.8
d4
  $ whenmod 32 28 (# crush "<8 7 6 5>")
  $ whenmod 32 24 (# room "<0.2 0.3 0.4 0.5>")
  $ whenmod 32 16 (mask "t <f f t f>")
  $ slice 8 "0 1 2 <3!3 7>" $ "fbass:18"
  # cut 4 # gain 0.8