setcps 0.52

d1
$ whenmod 16 10 (fast 2)
$ euclid 2 4
$ s "kick:7"

d2
-- $ sometimes
$ euclid "<3 5>" 8
$ s "sn:0"
# gain 0.8


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 -- drumroll
$ off 0.125 id
$ degradeBy "0.5 0.2 0.5 0.8 0.5 0.9 0.5 0.1"
$ s "dr*8"
# n 0


d6 -- bass
$ whenmod 16 10 ( fast 2)
$ superimpose (|+ note "<3 3 10 3>")
$ note (scale "aeolian" "<c(3,8) a5>")
|- note 20
# s "bassWarsaw"
# gain 0.9

d3 -- vibration montante!
$ superimpose (|+ note 5)
$ every' 4 "<0 1 2 3>" (someCycles rev)
$ sound "bd"
# note "<42 42 42 36>"
-- # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
  segment (wchoose [(50,0.1), (250,0.9)])
  $ range 1 3 saw
  )
# gain 0.5
# legato 2

d7 -- musical forks
$ off 0.25 ((# room 0.5) . (|- 12))
$ superimpose (|+ note "< 5 3 2 0>")
$ s "f f f <f <f*2 ~>>"
# s "superfork"
# gain 0.7