setcps 0.5

d1 -- kick alt: rond, dansant 3-5-8 samplé, jux revé
$ jux rev
$ euclid "[3|3|3|5|5|8]" 8
$ s "k"
# s "kick:5"
# gain 0.8

d1 -- kick main: un peu sale, 4 temps + double
$ every' 4 0 (off (1/8) id)
$ every' 8 5 (off (1/8) (# gain "0 0 0 1"))
$ s "k k k k"
# s "clubkick:7"
# gain 0.9

d2 -- snare regulier 4 contretemps, parfois plus fort ou double
$ someCycles (# n 4)
$ every 1 ((degradeBy "0 0.33") . (stut "0 3" 0.9 0.1))
$ every 4 (# n "0 2")
$ s "~ s ~ s"
# s "bssnare:3"

d3
$ sometimesBy "<0 0 1 1> <0 1 0 1> <0 0 0 1>" (off (1/16) id)
$ s "d*8"
# s "drum:8"

d4
$ whenmod 128 64 (# n 2)
$ whenmod 64 32 (# gain 0.8)
$ every' 4 2 (off 0.125 id)
$ s "clap(<1 2>, 3,<0 0 0 1 1 1 2 2 2>)"
# gain 0.75

d5 -- bass
$ whenmod 64 32 (sometimesBy 1 (swing 4 . (# legato 2)))
$ note (scale "aeolian" (
whenmod 16 8 (2 - )
  "0 .. 2 <[2 .. 0] 0>" + (slow 2 $ "<0 2 1 0>") -- melodie
))
# s "bassWarsaw"
# pan 0.1
# gain (slow 64 $ sine * 0.3 + 0.7)
|- note 24

d6 -- piano lead!
$ off 0.25 degrade
$ note (scale "aeolian" (
whenmod 16 8 (2 - )
  "0 .. 2 <[2 .. 0] 0>" + (slow 2 $ "<0 2 1 0>") -- melodie
+ (slow 8 $ "[0, <2 4>]") -- accord: tierce <> quinte
))
# s "superpiano"
# velocity (slow 64 $ cosine * 0.4 + 0.5)
|- note 12

d7 -- second blade runnner
$ whenmod 128 66 (# gain 0.9)
$ whenmod 128 65 (# gain 0.8)
$ whenmod 128 64 (# gain 0.7)
$ chop 4  . iter 4 . rev
$ note (scale "aeolian" (
"<<0 0 <4 5> <4 5>> <2 2 <2 3> <2 3>>>"
))
# s "cs80leadMH"
# gain 0

d8
$ (0.75 ~>)
$ s "808cy:1"
# crush (slow 8 $ isaw * 4 + 4)
# gain 0.9
