-- DamBells! Techno hypnotic drumrolling bells

setcps 0.5

d1
$ whenmod 64 48 (# gain 0) -- grand pont
$ whenmod 16 10 (# gain 0) -- petit pont
$ whenmod 32 16 (fast 2)
$ s "d*2"
# s "clubkick:2"
# gain 0.9

d9 -- Lead Bells
$ euclid (slow 16 $ "<1 3 5>") 8
$ s "superfork"
# note "<0 <0 <0 1>> 0 <0 1>>"
|- note "[<0 0 0? 0>,<12 12?>]"
# room 0.9
# gain (slow 32 $ sine * 0.4 + 0.5)

d2
$ whenmod 64 56 (# gain 0) -- grand pont
$ whenmod 16 15 (# gain 1) -- petit pont (fin)
$ whenmod 16 12 (# gain 0) -- petit pont
$ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id)
$ s "~ sn:2"
# gain 0.88

d3 -- drums
$ sometimesBy 0.8 (fast 2 . degrade)
-- $ whenmod 16 10 (# gain 0) -- petit pont
-- $ whenmod 16 4 (# gain 1)
-- $ whenmod 16 3 (# gain saw)
-- $ whenmod 16 0 (# gain 0)
$ whenmod 8 6 (sometimes (|- gain 0.2))
$ whenmod 8 4 (sometimes (fast 2))
$ whenmod 16 8 (off (1/8) id)
$ sometimesBy (slow 8 $ "<0.1 0.2 0.5 0.7 0.9>") (# s "dr,drum:20")
$ sometimesBy (slow 8 $ "<0.9 0.7 0.5 0.2 0.1>") (# s "dr,drum:8")
$ s "dr*4"

d4 -- basse
$ whenmod 64 48 (# gain (slow 16 $ isaw * 0.6)) -- grand pont
$ whenmod 16 10 (fast 2 . (stut 2 0.9 0.125)) -- petit pont
$ superimpose (|+ note (slow 16 $ "<12 5>"))
$ superimpose (
  (# crush (slow 16 $ "<5 .. 16 15 .. 5>")) .
  (# gain 0.85)
)
$ euclid (slow 16 $ "<1 3 5>") 8
$ s "bassWarsaw"
# note "<0 <0 <0 1>> 0 <0 1>>"
|- note 24
# gain (slow 32 $ 0.9 - sine * 0.4)

d8 -- claps
$ every' 16 6 (off "0.0625" id) -- doublee
$ every' 8  6 (off "0.125" id) -- doublee
$ s "[~ c]*2"
# s "realclaps" # n "[0?,1?,2?,3?]"
# gain (slow 64 $ isaw * 0.5 + 0.5)