-- Interesting techno-barrel needs a lead
do
setcps (120/60/4)
-- resetCycles
let gF = (whenmod 64 32 (# djf (slow 48 $ 0.5 + sine)))
d1
$ gF
$ mask "<f!11 t!117>"
$ "jazz*4" # gain 1
d2
$ gF
$ mask "<f!4 t!124>"
$ "hh(<16 <16!8 <16 8>!16> 16 [16 <12 8 4>]>,16)"
# gain (slow 8 $ range 0.6 0.9 cosine)
# pan (slow 16 $ range 0.2 0.4 perlin)
# cut 2
d3
$ gF
$ sometimesBy ("<1!8 0!120>") (
(slow "<8!2 4!2 2 2 [2 1] 1>")
. (ply 2)
. (|* gain (slow 8 $ range 0.75 1 saw))
)
$ slice 4 (run 8)
$ "bsbass"
# lpf 2000
# gain (slow 32 $ range 0.65 0.85 sine)
# cut 1
# pan 0.6