UnitPicture "circle" { { newpath .5 .5 .5 0 360 arc closepath random setgray fill } dlist } 40 40