setcps 1


-- trille: "[1 2 1 2 1 2] ~"

d1
$ every 2 (off 0.25 id)
$ every' 4 3 (off 0 (# s "sn:1"))
$ every' 8 7 (off 0.5 (# gain 0.8))
$ every' 8 7 (off 0.75 (# gain 0.8))
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain 0.7)
$ s "bd"


d2
$ euclid 1 2
$ every 4 rev
$ sometimesBy 0.2 (degradeBy 0.8)
$ sometimes (# note "[2 4 2 4 0]")
$ every' 8 6 (off 0 (|+ 7))
$ every' 8 7 (off 0 (|- 7))
$ every' 4 1 (jux rev)
$ note "[0 7]*3"
# s "supermandolin"

d3
$ every 2 (# gain 0)
$ every' 8 6 (# gain 0)
$ every' 8 7 (# gain 0)
$ sometimes (off 0 (|- 7))
$ sometimesBy 0.2 (# note "[2 4]*3")
$ s "superfork*8"
# note "[0 2]*3"