-- status: good lead, weird bass, decent beat, needs better snares/claps

setcps 0.5

d1 -- beat + dark amp
$ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
$ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
$ whenmod 32 0 (fix (# gain 0) (s "arp"))
$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "kick:14 [electro1:2, arp]"
# gain 1

d2 $ s "hh*2 clap(<2 2 1 1>,4)"
# n "0 <2 2 2 3>"
# gain 0.9

d3
$ someCycles (# silence)
$ sometimes (# gain 0.8)
$ fast 4
$ s "electro1:4"


d4
$ every 4 (jux rev)
$ sometimes (off 0.125 id)
$ s "~ electro1:2"

d5
-- $ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1"))
$ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>")
$ whenmod 64 32 ((|- note 7) . chop "2 0")
$ whenmod 64 1 (|+ note 7)
$ someCyclesBy 0.1 (chop 2 . superimpose (rev))
$ off (1/8) (|+ 7)
$ off (3/16) (|- 7)
$ someCyclesBy 0.2 (<|
  note (scale "major" "<0*2 2(3,<4 8>) 7(3,<4 8>,2) <5 5 4>*2>"))
$ note (scale "major" "<0 2 7 <5 5 4>*2>")
# s "phazer"
# gain 0.7

d6
-- $ someCyclesBy 0.2 (rev)
$ off 0.125 (|+ 3)
$ note (scale "aeolian" "<c c f f>(<3 1>,<8 1>) a5(2,<4 2 1>)")
|- note 28
# s "bassWarsaw"
# gain 0.9


d7
$ whenmod 32 16 (someCycles (off (1/16) id))
$ s "~ ~ ~ glitch:2"
