setcps 0.5

d1
$ whenmod 32 28 (# silence)
$ whenmod 16 8 (# gain (0.35 + sine))
$ s "dr dr? <dr*2 dr>? dr dr dr? dr*2 dr"


d3
$ whenmod 128 80 (degrade)
$ whenmod 128 64 (# speed 0.5)
$ whenmod 32 30 (degradeBy  0.8)
$ whenmod 32 28 (# note 12)
$ whenmod 32 24 (# note 19)
$ almostNever (off (4/8) (+ 7))
$ sometimes (off (1/16) (|+ 12))
$ sometimes (off (0) (|- 12))
$ chunk 2 (0.125 ~>)
$ s "[[hh?,hh] hh?]*8"
# s "superpiano"
# pan (0.2 + rand / 2)
# sustain (0.5 + rand / 2)
# velocity cosine
# note (wchoose [
--    do      re       mi       fa        sol      la   si
  (12, 1),  (14, 1),                    (19, 1),
  (0, 2),   (2, 2),                     (7, 2),
  (-12, 4), (-10, 2),         (-7, 1), (-5, 3)
])


d3 $ s "superpiano*8"
# note (scale "aeolian" "0 2 <4 7>")

d1
$ s "nass:0" # cut 1 

d4
$ whenmod 32 28 (# gain cosine)
$ degradeBy 0.3
$ off (1/16) (|+ 2)
$ off (1/8) id
$ s "bass3*4"
# note "<[0 5 0 0] [5 5 0 0] [7 5 0 7] [0 5 0 7]>"

d5
$ sometimes (# s "hh,cp")
$ s "cp*<2 <2 <2 4>>>"