setcps 0.5

d1
$ whenmod 64 60 (degradeBy "<0.25 0.5 0.75 1>")
$ whenmod 32 16 (fast 2)
$ euclid 4 8
$ s "k"
# s "kick:5"
# gain 0.7
-- # s "clubkick:2"

d2
$ whenmod 64 48 (# gain (slow 16 $ tri))
$ whenmod 64 48 (fast 2)
$ s "~ s ~ <~ s>"
# s "snare:1"

d3
$ sometimesBy "0.125 <0.25 0.75> <0,0.1 .. 1> 0.75" (off (1/16) id)
-- $ degradeBy "0 0.9 0 0.2"
$ s "dr dr dr*2 dr"
# n 9
# gain (slow 32 $ 0.4 * sine + 0.4)

d5 -- chopped bass
$ every 4 rev
$ chop 4
$ (# crush 6.5)
$ superimpose (|+ note 5)
$ note (scale "major" (fast 2 $ "0 .. 7"))
# s "bassWarsaw"
|- note 24
# gain (slow 32 $ sine * 0.3 + 0.5)

d6 -- sync synth
$ swing 2
$ whenmod 128 64 (|+ note 12) . (# phaserdepth "<0,0.25 .. 32>"). (# phaserrate "<0.025 .. 32>")
$ whenmod 32 16 rev
$ every 4 (someCyclesBy 1 (chop 2) . (|+ note "0 [0,12]"))
-- $ superimpose (|+ note 5)
$ superimpose (# s "superpiano")
$ note (scale "major" ("<0,2.0 .. 5>" + "<0 3 5 7>"
+ (slow 16 $ "<5>"))
)
# s "defaultB"
|- note 24
# gain 0.7

d4
$ s "~ <~ ~ ~ c?> ~ <c [c ~ <~ ~ c> <~ ~ c>]>"
# s "clap"
# gain (slow 64 $ 0.7 - tri * 0.3)
# pan (slow 32 $ sine * 0.5)
# room 0.4 # size 0.4 # dry 1

d5
$ someCycles (jux rev)
$ every 4 rev
$ superimpose (|+ note 5)
$ note (scale "major" ("<0,2.0 .. 5>" + "<0 3 5 7>"))
# s "moogBass"
# gain 0.8