setcps 0.40

d1
$ whenmod 32 30 (# silence)
$ whenmod 32 24 (# gain 0.6)
$ s "k k <k k k k*2> <k k*2 k k*2>"
# s "kick808"
# gain 0.8

d2
$ s "[d d] <d d d*2 d*4>]"
# s "dr"
# gain 0.7

d3
$ someCyclesBy 0.9 (# s "cp")
$ (0.25 ~>)
$ s "cp ~ <cp cp <cp cp*2> cp*2> ~"
# gain 0.7
# n "<0 [0 1]>"

d5
$ someCycles (rev)
$ someCycles (# gain 0.7)
$ every' 2 1 (# silence)
$ sometimes (slow 2 . degradeBy 0.2 . (off 0.125 (|+ 7)) . (# gain 0.5))
$ rarely (degrade . (# note (scale "major" "c'maj'2")))
$ rarely (# note (choose [0, 7] + scale "major" "c'maj'"))
$ arp "updown"
$ s "superhammond*4"
# note (4 + scale "major" "c'maj'")
# gain 0.6


d6
$ whenmod 48 24 (# gain 0.5)
$ jux rev
$ off 0.125 (|+ n 12)
$ off 0.25 (|+ n 7)
$ note (scale "major" "c'maj'4")
# sound "superpiano"
# gain 0
