Regular polygon by nfouille

for($n=<>;$_<6.28;$_+=6.2832/$n){print+($l=sprintf"%.0f %.0f
",$<*cos,$<*sin)=~s/-0/0/r}

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

download

return to the top page