Regular polygon by pooq

input""n
for i=0to n-1a=i*2*pi/n
?val(str$(cos(a)*1e3,"%.0f")),val(str$(sin(a)*1e3,"%.0f"))next

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

download

return to the top page