to circle :rad
ellipsearc 360 :rad :rad 0
end

bury "circle