setcps 1

d1 $ s "bd:14([3,5],8)"
# gain 0.8

d2
$ every 16 (# s "cp")
$ every 8 (# n "2")
$ every 2 (# n "1")
$ n "0(<2 6 4 16>, 8)"
# s "dr"

d3
$ whenmod 32 30 (# gain 0)
$ whenmod 32 16 (off 0.5 (jux rev))
$ whenmod 16 8 rev
$ off 0.125 (|> 0)
$ sometimes (off 0.25 (|> 3))
$ s "superfork"
# n (choose [0,7])
# gain 0.8

d4
$ off 0 (# note 7)
$ s "numbers"
# speed (0.5 + perlin / 2) -- random speed
# note "<0 3 7>"
# n (irand 2)
# coarse 2
# gain 0.6

d6
$ rarely (off 0.75 (# note 3)) -- majeure seconde
$ rarely (off 0.5 (# note 2)) -- mineure
$ whenmod 32 28 (# gain 0.6)
$ whenmod 16 10 (rev)
$ whenmod 8 6 (fast 2)
$ often (
  off 0.5 (off 0.25 (|+ 4))
)
$ off 0 (|+ 2)
$ s "blip(<2 <0 8>>,8)"
# note "0 3 7"
# gain 0.8

d5
$ sometimes (# crush 6)
$ almostNever (# gain 0.8)
$ s "rave(<2 4>, 4)"
# n 7
# gain 0