setcps 1

d1 -- kick
$ whenmod 32 30 (degradeBy "1")
$ whenmod 32 28 (degradeBy "0.8")
$ whenmod 32 24 (degradeBy "0.2")
$ s "<k k k k*2> k"
# s "kick:5"
# gain 0.9

d2 -- snares
$ (0.5 ~>)
$ whenmod 32 24 (sometimes (off 0.125 id))
$ sometimesBy (slow 16 $ sine + 0.2) (off 0.25 id)
$ s "snare:6"
# room (slow 64 $ cosine * 0.8)
# size (slow 8 $ sine * 0.9)
# dry 0.95
# lpf (slow 8 $ 1000 + sine * 9000)

d3 $ s "d*8"
# s "drum:14"
# gain (slow 8 $ sine * 0.2 + 0.7)

d4 -- blip melodie
$ whenmod 64 48 (# gain (slow 16 $ 1 - sine * 0.8))
$ whenmod 64 32 (superimpose ( -- choeur
  (# s "moogBass")
  . jux rev
  . (# gain 0.85) . (# lpf 1000)
  ))
$ note (scale "aeolian"
(
  whenmod 16 10 (7 -)
  $ every 2 (rev)
  "<0 2 4 6> .. <4 6 8 10>"
))
# s "chaoscillator"

d5
$ s "~ . <c c c? c> <~ ~ ~ c> ~ ~"
# s "clap:2"
# gain (slow 64 $ 0.5 * sine + 0.4)


-- weird toys

d9
$ note (scale "hexMajor6" (
  "0 .. 2 . 3 .. 5 . 4 .. 3 . 0"
))
# s "bleep"
# gain (slow 64 $ sine * 0.8)
|- note 24