Ver polígono regular

n = 7 (slider from 3 to 36, step 1)
B = Point(yAxis)
A = Point(yAxis)
c = Circle(A, B)
a = Line(A, B)
d = OrthogonalLine(B, a)
a' = Rotate(a, -1.0 * 3.141592653589793 / n, A)
D = Intersect(d, a')
D' = Mirror(D, a)
lista2: {Polygon[D, D', n]}
polígono1, d_1, d', a_1 = Polygon(D', A, D)
g = AngularBisector(B, D, A)
E = Intersect(a, g)
h = Circle(E, B)
F = Intersect(h, a', 1.0)
F' = Mirror(F, a)
k = CircleArc(E, F, F')
lista1 = Sequence(Arc[Rotate[Circle[E, F], kk * 2.0 * 3.141592653589793 / n, A], Rotate[F, kk * 2.0 * 3.141592653589793 / n, A], Rotate[F', kk * 2.0 * 3.141592653589793 / n, A]], kk, 1.0, n)
b = true