Plot Circle by pooq

input""r
for x=-r to r
c$=""
for y=-r to r
c$=c$+mid$("* ",(x*x+y*y>r*r)+1,1)next
?c$next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page