china.tidal 402 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
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
PLN (Algolia) committed
18
$ often (fast 2 . off 0.125 id . (# gain 0.6))
19 20 21
$ s "bass3(<<2 3> 4>,4)"
# note (scale "chinese" "0 1 3 5")
# gain tri