fcircle
(
5
,
5
,
5
)
end
function
fcircle
(
x,y,r
)
for
t=
0
to
r
circle
x,y,t
next
t
endfunction