dsetcps 0.5

d1
$ sometimesBy "0 0 0 <0 0.9>" (fast 2)
$ n "0 0*[1|2|4]"
-- "0 <~ ~ ~ 0?> 0 [<~ 0?> 0]"
-- "0!4 0*<2 [4 2] [4 8] [<4 8> <8 12>]>"
# s "jazz"
# gain 0.8

d2
$ bite 4 "0 1 2*<1 2> 3*<1 <2 4>>"
$ loopAt "<4 2!2 1>" $ chop 32 $ s "breaks125"
# gain 0.8

d3
$ almostNever (superimpose (<| s "~ ~ 808cy:1 ~"))
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ euclid 5 4
$ s "808cy"
# note "<4 4 4 4 7 7 7 7>"
# gain (slow 32 $ sine * 0.4 + 0.3)

d4
$ sometimes (hurry 2)
$ degrade
$ s "~ clap:2"
# gain 0.9

d5
$ whenmod 16 8 (superimpose $ arp "<updown downup pinkyup>")
$ s "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>"
# note (scale "major" "<c'maj <ds'maj f4'maj> <df'maj ff'maj>>([3|4],8)"
+ (
  (slow 4 $ "<0 2>")
  )
)
# s "superpiano" # velocity "0.6 [0.5 0.4] 0.5 [0.4 0.7]"

d6 $ silence

d10 -- basse
$ chop 4
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ note (iter 4 $ "<0 <3 [3 3]> <0 [3 0]>>" - 24)
# s "bassWarsaw"
-- # hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ range 0.1 0.8 cosine)
# gain 0.8