n = 7 (slider from 3 to 36, step 1)
B = Point(yAxis)
A = Point(yAxis)
c = Circle(A, B)
a = Line(A, B)
a' = Rotate(a, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 3.141592653589793 / n, A)
C = Intersect(c, a', 1.0)
d = OrthogonalLine(C, a)
D = Intersect(c, d, 2.0)
e = Ray(D, A)
E = Intersect(c, e, 2.0)
f = Circle(D, E)
F = Point(f)
g = CircleArc(D, F, E)
G = Intersect(g, d)
h = Segment(A, G)
i = Line(D, h)
H = Intersect(a', i)
k = Circle(H, C)
lista2 = Sequence(Rotate[k, i * 2.0 * 3.141592653589793 / n, A], i, 1.0, n)
I = Intersect(k, a, 1.0)
I' = Mirror(I, a')
p = CircleArc(H, I', I)
lista1 = Sequence(Arc[Rotate[Circle[H, I'], i * 2.0 * 3.141592653589793 / n, A], Rotate[I', i * 2.0 * 3.141592653589793 / n, A], Rotate[I, i * 2.0 * 3.141592653589793 / n, A]], i, 1.0, n)