-- 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