@verb #7508:":new_circle" this none this rxdo #8084
@program #7508:":new_circle" this none this
"basic circle attributes: cx (x-axis coordinate center of circle, implied), cy (y-axis coordinate center of circle, implied), r (radius of circle, required)"
{attr} = args
$svg:check_required_attr(attr, {"r"})
node = this:new_child("circle", attr, $svg)
return node
"Last modified by Lao-Tzu (#8084) on Mon Dec 31 15:21:39 2001 MST."
.