setcps 0.5

d1
-- $ sometimesBy "0.9 0 0.1 0" (0.125 ~>) -- decalage
-- $ sometimesBy "0 0 0 0.8" (off 0.125 id) -- double heartbeat
$ s "k*2"
# s "kick:5"
# gain 0.75

d1
$ fast 4
$ every' 16 15 (# gain 0)
$ every' 8 7 (0.25 ~>)
$ whenmod 8 6 (sometimes (off 0.5 id))
$ s "kick:4"
# gain 0.65

d1
$ every' 16 15 (# gain 0)
$ every' 8 7 (0.25 ~>)
$ sometimes (off 0.5 id)
$ euclid 5 8
$ s "kick:4"
# gain 0.65

d2
$ fast "4 <8 16>"
$ s "d"
# s "dr"
# pan (slow 16 $ sine / 2)
# room (slow 32 $ sine * 0.7 + 0.1)
# size 0.5
# dry (slow 64 $ cosine)

d3
$ fast 2
$ every 4 (sometimes (off "<0.25 0.125>" id))
$ s "~ s"
# s "snare"
# gain 0.8

d4
$ sometimesBy -- double
(slow 16 $ sine * 0.8 + 0.1)
(off "<0.25 0.125>" id)
$ s "<~ c?> ~ c ~"
# s "clap:8"
# gain (slow 4 $ (0.9 - tri * 0.5))

d5 -- chopped bass
$ superimpose (iter 4 . rev . (# crush 4) . (# gain 0.5))
$ chop (slow 4 $ "<<1 4> 2>")
$ stut 4 0.5 0.125
$ (# crush ("<6,0.05 .. 0>"))
$ note (scale "major" (fast 2 $ "[0,<~ <[7|4] <14 <10 14>>>>]"))
# s "bassWarsaw"
# gain 0.8
|- note 24

d6 -- continuous laser
-- $ rev
$ s "bd" >| speed (
  segment 100 $
  range (slow 8 $ cosine * 50)
        (slow 8 $ "<20 30 40 50 40 30 20>")
  saw
)
# gain 0.45
|- note "[<12 ~>,24,<-12 -12?>]"

d7 -- basse grave moog weird
$ whenmod 16 8 rev
$ whenmod 8 6 (fast 2)
$ whenmod 8 4 (fast 2)
$ note (scale "major" ("<<7 14> 4>"))
# s "moog"
# gain 0.5

d8 -- forks!
-- $ fast 2
$ whenmod 32 26 (degradeBy 0.2)
$ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
$ superimpose (|+ note (slow 4 $ "<5 3> 5"))  . (# gain 0.8)
$ euclid "[<3 3?>,5?]" 8
$ s "s"
# s "superfork"
# room 0.5
# gain 0.5
# pan (slow 4 $ sine)
|- note 12
