setcps 1.03

d1 -- bass
-- $ whenmod 32 16 (# silence)
$ slow 2
$ note (
  scale "major" (
    cat [
      " 1  1 ~ . ~ [~ 0]",
      "0 [0 1] ~ ~ . ~  "
    ]
    + "[0, 7]" -- gamme
  )
)
# s "bass3"
# gain 0.8



d2 -- hit roll
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
# s "hh"
# release 0.5

d3 -- claps
$ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
# gain 0.9
# n 1

d4 -- fork
$ off 0 ((# s "supergong") . (# gain 0.5) . (# release 0.5))
$ s (cat [
"~ f f*2 ~"
, "f f ~ f"
, "f*2 ~ f f"
, "[f*4] ~"
])
# s "superfork" # n (scale "major" (-4))
# release 0.5

d5
-- $ whenmod 32 16 (# silence)
$ whenmod 32 4 (# gain 0.8)
$ every 4 (# silence)
$ s "reverbkick*2"
# gain 0.7
