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
