setcps 1

d1 $ "bd bd?"

d1 -- beat
-- $ fix ((euclid 2 2) . (every 4 $ off 0.5 (# s "kick"))) (s "kick") -- faster
-- $ slow "1 2" -- calm
$ every' 4 1 (stut 2 0.9 0.25)
$ s "kick:5 dr:9(<<1 1 1 3> 1 1 <3 2 2 2>>,4)"
# gain 0.8

d2
$ someCyclesBy 0.2 (off 0.25 id)
$ s "~ clap:1"
# gain 0.9

d3
$ whenmod 8 4 (# silence)
$ whenmod 8 6 (# n 2)
$ whenmod 8 4 (# n 1)
$ whenmod 8 6 (# gain 0.9)
$ degradeBy 0.2
$ s "dr*8"

d4
-- $ whenmod 16 8 (|- note 2)
$ whenmod 8 4 (|- note 2)
-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7) . (# gain 0.6))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14
# s "bassWarsaw"
# gain 0.9

d5
$ someCycles (superimpose rev)
$ off 0.125 (|+ 5)
$ note (scale "major" "[0,5] [7,10]")
# s "laserbeam"
# gain 0.75

d6
$ almostNever (# gain 0.8)
$ degradeBy 0.6
$ swing 3
$ s "~ cc*2"
# n (choose [1,2,3])
# gain 0.6

d7
$ whenmod 8 4 (off 0.25 (|+ 3))
$ s "prayerBell"
# gain 0.6

d8 -- gong lazer
$ whenmod 16 8 (rev)
$ every 4 (rev)
$ note "0 .. 7"
# s "supergong"
# voice "<0.1 .. 0.9 1 .. 5>"
# accelerate "<0 .. 10 9 .. 2 5 .. 8 10 .. 0>"
# gain 0.9
|- note 0

d9 $ n (slow 2
  $ fmap (*7) $ run 8)
  # s "supergong"
  # decay "[1 0.2]/4" # voice "[0.5 0]/8"
# gain 1.2
