setcps 0.5

d1
$ whenmod 16 10 (# gain 0)
$ every 4 (sometimes (off 0.125 (# gain "1 0")))
$ every 4 (sometimes (off 0.125 (# gain "0 1")))
$ s "d d"
# s "clubkick:7"
# gain 0.9

d2
$ whenmod 16 15 (# gain 1)
$ whenmod 16 12 (# gain 0)
$ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id)
$ s "~ sn:2"
# gain 0.9

d3
$ whenmod 16 4 (# gain 1)
$ whenmod 16 3 (# gain tri)
$ whenmod 16 0 (# gain 0)
$ whenmod 8 6 (sometimes (|- gain 0.2))
$ whenmod 8 4 (sometimes (fast 2))
$ whenmod 16 8 (off (1/16) id)
$ sometimes (# s "drum:20")
$ sometimes (# s "drum:8")
$ s "dr*8"

-- drum:8
-- drum:20

-- drum:9 maracas

d4 -- basse
$ s "b(<7 7 7 8>,8,<1 2>)"
# s "bassWarsaw"
# note (scale "major" (
  every 8 rev $
  whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement
  "0 2 2 4 0"
  ))
# gain (slow 16 $ sine * 0.4 + 0.6)
|- note 24

d5 -- noise guitar
$ whenmod 64 48 (swing "2 1")
$ whenmod 8 6 (swing "1 2")
$ sometimesBy "<0 0 0 [0 1]>" ((0/16) ~>)
$ whenmod 8 4 (# lpf 3000)
$ s "b(<7 7 7 8>,8,<1 2>)"
# crush 4
# s "bassWarsaw"
# note ( scale "major" (
  every 8 rev $
  whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement
  "0 2 2 4 0"
))
# gain 0.9
# release 0.9


d9
$ 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)
