setcps 1

d1
$ sometimes (# gain "<0 0.9> 1")
$ fast 2
$ s "kick_electro electro1"
# note ("0 -10")
# gain 0.9

d2
$ whenmod 32 16 (# gain 0.8)
$ whenmod 32 15 (# gain 0.7)
$ whenmod 32 14 (# gain 0.6)
$ whenmod 32 0 (# gain 0)
$ every 4 (off 0.25 id)
$ s "~ [cp sn:1]"

d3 -- TODO: Better drums
$ someCycles (# silence)
$ someCycles (slow 2)
$ s "<[dr*4 ~ dr*2] [dr*2 ~ dr*2 ~]>"

d4 -- TODO: Better bass
-- $ off 0.125 (|+ note 12)

-- play one per cycle
d4
-- $ off 0.25 (|+ note 7)
-- $ off 0.125 id 
$ note "<0(3,8) 3 5 12*2>"
# s "bass3:2"
# sustain 4
-- |- note 7

d5 -- lead piano synthe
$ whenmod 32 16 (rev)
$ jux rev
$ slow 2
$ off 0.125 (|+ 12)
$ note (off 0.125 (|+ 7) "<c(3,4) a*2 f(3,4,2) <e e a e>*2>")
# s "defaultB"
# gain 0.6

d6 -- lead blade
$ whenmod 32 28 (degrade)
$ whenmod 32 16 (|- 7)
$ someCycles (|+ note 7) . (chop 4)
$ slow 2
$ s "cs80leadMH"
# note "<c a f e>"
# gain 0.9