A = (0.58, -1.92)
c = Circle(A, 4.0)
B = Point(c)
a = 10 (slider from 10 to 500, step 10)
B' = Rotate(B, (360.0 / a)°, A)
liste1 = Sequence(Rotate[B, (k * 360.0 / a)°, A], k, 0.0, a)
liste3 = Sequence(CircleSector[A, Element[liste1, k], Element[liste1, k + 1.0]], k, 0.0, a / 2.0)
liste4 = Sequence(CircleSector[A, Element[liste1, a / 2.0 + k + 1.0], Element[liste1, a / 2.0 + k + 2.0]], k, 0.0, a / 2.0)
C = (7.640000000000001, -4.0200000000000005)
D = Point(Circle[C, 12.566370614359172])
b = Segment(C, D)
d = OrthogonalLine(C, b)
E = Point(d)
E' = Rotate(E, (180.0 / a)°, C)
e = Ray(C, E')
f = Circle(C, 4.0)
F = Intersect(f, e, 1.0)
liste2 = Sequence(C + (D - C) / a * k * 2.0, k, 1.0, a / 2.0 - 1.0)
u = Vector(C, D)
v: 2.0 * u / a
liste5 = Sequence(Translate[F, k * v], k, 0.0, a / 2.0)
g = CircleSector(Element[liste5, a + 1.0], Element[liste2, a], Element[liste2, a + 1.0])
liste6 = Sequence(CircleSector[Element[liste2, k], Element[liste5, k + 2.0], Element[liste5, k + 1.0]], k, 0.0, a / 2.0)
liste7 = Sequence(CircleSector[Element[liste5, k + 2.0], Element[liste2, k], Element[liste2, k + 1.0]], k, 1.0, a / 2.0)
h = CircleSector(C, Element[liste5, 2.0], F)
k = CircleSector(Element[liste5, 2.0], C, Element[liste2, 1.0])
p = CircleSector(Element[liste5, a / 2.0 + 1.0], Element[liste2, a / 2.0 - 1.0], D)