CNgon — ProgramsLOGO
last changed 29 May 2008
 

CNgon



; CNGON is a centered NGON

to CNGON :sides :radius
pu fd :radius lt 90 + 180 / :sides pd
NGON :sides ((sin 180 / :sides) * :radius * 2)
pu rt 90 + 180 / :sides bk :radius pd
end

to NGON :sides :length
repeat :sides [
fd :length lt 360 / :sides
]
end
1