do
resetCycles
setcps (130/60/4)
d1
$ superimpose ((# "808bd:1") . (# cut 11)
. (|* gain 0.8)
. (# lpf 200)
)
$ cat [ -- Beat pattern
"k ~ ~ k ~ ~ k ~", "~ k k ~ k <~ ~ ~ k> <~ k> k"
]
# "808bd"
-- # gain 0.9
-- # cut 1
-- # legato 0.5
d9 $ "arpy/2" # gain 0.6
d2 $ "~ cp" # lpf 2000 # gain 0.9
d3
$ "dr*<8!3 [16 8!7]>"
# "drum:8"
# room 0.2
# size 0.2
# dry 2
# legato 0.5
# gain 0.5
8 8 [16 8 . 8]
once $ "[kick:3,reverbkick]" # gain 0.6 # lpf 1000 # legato 0.2
#
once $ note (arp "up" "c5'sevenSus4'5")
# "supersquare" # gain 0.8 # legato 8 # release 4