resetCycles
do
setcps (90/60/4)
let glob = (degradeBy $ "<0 1> 0.95!15" * (1 - (cF 0 "1")))
d1 -- Beat
$ mask "<f!4 t!12>"
$ "k . <~!8 k!8> ~ ~ k*<1!4 [1|2]!4>"
# "reverbkick"
# lpf 2000
# legato 1.5
# gain (fast 8 $ 0.8 + (perlin/10))
d2 -- Break
$ glob
$ loopAt 4
$ slice 8 (iter 4 $ run 8)
$ "dusty" # n "<3!3 4>"
# pan 0.6
# cut 2
# gain (slow 16 $ range 0.6 1 sine)
d3 -- CYPRESS
$ glob
$ loopAt 4
$ slice 4 "[0|2] 1 [0|2]*<1!3 [4 2]> 1*<1!7 2>"
$ "dusty:0"
# gain (slow 16 $ range 1 0.6 sine)
# lpf 2000
# pan 0.35
# cut 3