Polygones réguliers

Triangle équilatéral

Carré

Pentagone

Hexagone

Heptagone

Octogone

Ennéagone

Décagone

Hendecagone

Dodécagone

Tridécagone

Tétradécagone

Pentadécagone

Hexadécagone

Heptadécagone

Octodécagone

Ennéadécagone

Icosagone

L_1: {A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
N = 7 (slider from 3 to 20, step 1)
texte2 = Text(Element[L_1, N - 2.0])
A = Intersect(xAxis, yAxis)
B = (-2.36, 4.24)
c = Circle(A, B)
liste1 = Sequence(Rotate[B, 2.0 * i * 3.141592653589793 / N], i, 1.0, N, 1.0)
liste2 = Sequence(Polygon[A, Rotate[B, 2.0 * (i - 1.0) * 3.141592653589793 / N], Rotate[B, 2.0 * i * 3.141592653589793 / N]], i, 1.0, N, 1.0)