setcps 0.25

d1
$ every' 8 7 (fast 2)
$ "k . k(<3 5>, 8)" # "kick:8"
# lpf 2000
# gain 0.7

d2 $ "~ s" # "snare:2"
# lpf 5000 # note (-8)
# gain 0.7

d3
$ fast 2
$ fast "<8!3 32> <16!3 [16 <8 [8 16]>]>"
$ s "drum:8"
# gain 0.9

d4 $ s "h*3 h <h h*3> h*2" # "hh" # gain 0.8
# pan (slow 16 $ sine)

d4
$ whenmod 32 16 (slow 2)
$ swing 2
$ note (scale "aeolian"
"c3'major7" + "0 . 1 <2 0>"
) # s "supersaw"
# voice 0.1
# gain 0.45

d5
$ note (
  "0(12?,8)"
) # s "superpiano"
# velocity 0.35
# pan 0.8
# sustain 0.4