-- https://www.youtube.com/watch?v=g0hqqtI_BPI


-- region Sampled via:
do
let linput = pI "linput"
let lname = pS "lname"
setcps (117/60/4/8) -- Each sample over 8 cycles
-- resetCycles
d1
  -- $ qtrigger 1
  $ "looper"
  # n (0 + "<0 1 2 3 4 5 6 7>")
  # lname "ashley"
d2
  $ mask "<t!8 f!8>"
  $ "jazz" # gain 0.7
d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
d4 $ whenmod 8 7 (# gain 1) # "arpy*8" # gain 0.8
-- endregion


do
setcps (117/60/4)
d1 $ "jazz*4" # gain 0.9
d2
  $ sometimesBy "1 . 0.5 1" (ply "2 . <2 [4 2] 2 2 2 [4 2] 2 4 4!4>")
  $ "hh*8"
  # gain 1.2
  # sz 0.5
  # room (slow 16 $ range 0.1 0.5 saw)

once $ "ashley:1" # cut 1