setcps 1

d1
$ whenmod 8 7 (fast 2)
$ whenmod 8 7 (# gain 1)
$ whenmod 8 6 (# gain 0)
-- $ sometimes (fast 2)
$ s "bd*2 < ~ [bd*2 ~]>"
# s (wchoose [
  ("kicklinn", 0.8),
  ("reverbkick", 0.15),
  ("cp", 0.05)
])

d2
$ whenmod 64 48 (# silence)
$ whenmod 32 24 (# n 4)
$ whenmod 16 8 (rev)
$ sometimes (off 0.125 (|+ 0))
$ s "bass3(<<1 5> 3>, 8)"
# note "0 5 7"
# pan 0.2
# gain 0.9
--
-- d4
-- $ sometimes (fast 2)
-- $ s "glitch:2(<1 2>,4)"
-- # gain 0.7

d3
$ whenmod 8 7 rev
$ whenmod 8 6 (# note "0 4 7 4")
$ whenmod 8 6 (off 0.125 (|+ 0))
-- $ sometimes (jux rev)
$ sometimes (off 0.25 (|+ "<0 7>"))
$ sometimes (off 0.5 rev)
$ often (off 0 (|+ 7))
$ euclid 3 8
$ s "blip"
# note "<0 [3,7] 0 [0,7]>"
# pan (0.25 + rand / 2)
# gain 0.6

d1 $ n "0 2 4 5 7 9 11 12"  -- gamme pentatonique
