-- Bogdanerie (omondi)
unsolo 3

d1 $ s "reverbkick(<2 <4 8>>,4):1"
# gain 0.8
# pan (0.5 + sine / 2)

d4 -- omondi nigga!
$ whenmod 4 2 (rev . chop 2)
$ somecyclesBy 0.8 (fast 1.5) $ somecycles (slow 2)
$ s "bogdan:12(<1 2>,2)" # cut 2
# note "0"
# gain 0.8

d2
$ every 4 (fast 2)
$ s "<[dr*2 [~ dr?]] dr*4> hh*2" # pan 1
# gain 0.8

d3 -- piano lead
$ off 0 (|- 7)
$ off 0 (|+ 12)
$ s "~ superpiano superpiano ~"
# scale "major" (
  choose [-7,0,7]
  )
# velocity 0.6
# sustain "0.3 1 1"

d5 -- motherfuck
$ whenmod 64 23 (# gain 0)
$ loopAt 0.35
$ s "bogdan:11(1,4,1)"
# pan (slow 4 $ sine)
# gain 0.8

d6 -- cheeky bastard
$ whenmod 8 4 (# crush 5)
$ whenmod 32 16 (# gain sine)
$ s "bogdan:7(<1 <1 2>>,4)"
# gain 0

d4
$ s "arpy:0"
# note 20

d2 $ s "supermandolin(<3 5>,8)"
# note (scale "major" "[0,2,4]" + (irand 6))
-- # gain 0.9
