r

Triângulo

Quadrado

Pentágono

Hexágono

Heptágono

Octógono

Decágono

Eneágono

Dodecágono

Undecágono

c = 2 (slider from 0.2 to 5, step 0.1)
n = 6 (slider from 3 to 12, step 1)
A = Point(a)
d = Circle(A, c)
B = Intersect(d, a, 2)
polígono1, c_1, a_1, b, e, f, g, C, D, E, F = Polygon(A, B, n)