Picture "square" { X Y Width Height { newpath rectpath random setgray fill } dlist } 40 40