<picture
  class="UnitPicture"
  name="circle"
  path="doc/obj/circle.pn0.xml"
><![CDATA[
UnitPicture
"circle"
{ { newpath
    .5 .5 .5 0 360 arc
    closepath
    random setgray
    fill } dlist }
40 40
]]></picture>

