tete.tidal 537 Bytes
setcps 0.45

d1
$ sometimesBy "0 0.5" (# n 0)
$ s "bsperc(<3 [3|6] 12>,6)"
# n "[5|6]"
# gain 0.9

d2
$ sometimes (ply 2)
$ whenmod 8 7 (# gain 0)
$ s "[dr(<6!3 12>,4),[~ . ~ ~ ~ 808oh]]"
# gain 0.7

d4
$ off 0.5  degrade
$ off 0.25 degrade
$ often (superimpose (off 0.125
  (|+ note "12")
))
$ slow 4
$ note (
"<7!3 0> . <5 12> 0? ~ 0?"
- 12
)
|+ note "<c'maj c'min d'min c'maj>"
# s "superpiano"
# velocity 0.45

d5
$ slow 2
$ note ("<c3'maj>"
+ "0(5,8) <<4!3 8> <2 6>>*2"
+ (slow 4 $ "<0 12>")
) # s "superfork"
# gain 0.7
# room 0.2