-- TODO: Hardcore ensoleille?

setcps 0.5

d1
$ every 4 ( sometimesBy "0.9 0 0 0" (0.125 ~>))
$ s
"k*4"
# s "kick"
# n 5
# gain (slow 16 $ 0.25 * sine + 0.6)

d2 -- drumroll
$ someCycles (degradeBy 0.1)
$ sometimesBy 0.8 (off (1/16) id)
$ s "dr*16"
# gain 0.9

d3
$ euclid (slow 4 $ "<8 <3 5>>") 8
$ superimpose (|+ note 5)
$ s "superfork"
# gain 0.8
|- note 24

d4
-- $ rev
$ (|+ note 0)
-- $ chop 8
$ whenmod 8 4 (|+ note 12)
$ superimpose (|+ note 4)
$ note (scale "aeolian" "[1 0 1] [2 1 2] [3 2 3] [4 3 4]")
|- note 12
# s "superpiano"
# gain 0.9
# velocity (slow 4 $ 0.8 + sine * 0.2)


d5
$ whenmod 32 24 rev
$ degradeBy 0.2
$ chop (slow 4 $ "<1 <2 4>>")
$ note (scale "aeolian" (run 8))
-- $ note ("0")
# s "superhoover"
# gain 0.65

d10
$ euclid "<3 5>" 8
$ s "glitch:2"
# gain (slow 16 $ sine * 0.9)