setcps 1
d1
$ every 4 (off 0.125 (# gain "1 <0 1> 1 0"))
$ s "sd:1*4"
d2
-- $ off 0.125 (# note (scale "chinese" "3"))
$ off 0.25 (
(# s "808lc") .
(# note (scale "chinese" "-1"))
)
$ s "808hc*2"
# note (scale "chinese" "0 <3 5> <5 3>")
# gain (choose [0.7, 0.8, 0.9, 1])
d3
$ often (fast 2 . off 0.125 id . (# gain 0.6))
$ s "bass3(<<2 3> 4>,4)"
# note (scale "chinese" "0 1 3 5")
# gain tri