rearrange

∼ r

∼πr

show dimensions

A = Intersect(xAxis, yAxis)
B = (0.012551951735161519, 1.8209632341566566)
c = Circle(A, B)
a = Segment(A, B)
n = 12 (slider from 12 to 360, step 2)
cuts = Sequence(Segment[A, Rotate[B, ((i * 360) * ° / n), A]], i, 1, n - 1)
B' = Rotate(B, (360 * ° / n), A)
d = CircleSector(A, B, B')
wedges = Sequence(Sector[Rotate[c, ((i * 360) * ° / n), A], Rotate[B, ((i * 360) * ° / n), A], Rotate[B', ((i * 360) * ° / n), A]], i, 1, n - 1)
C = (4.863786933429587, 3.339036765843345)
D = (7.632621048832052, 2.362189449801477)
u = Vector(C, D)
A' = Translate(A, u)
B'_1 = Translate(B, u)
B'' = Translate(B', u)
poly1, b'', a', b'_1 = Polygon(A', B'_1, B'')
e = CircleSector(A', B'_1, B'')
E = Midpoint(A', B'_1)
F = Midpoint(A', B'')
v = Vector(F, E)
B''' = Mirror(B'', E)
f = CircleSector(B'_1, A', B''')
downs = Sequence(Translate[e, Vector[((2 * i) * v)]], i, 1, (0.5 * n) - 1)
ups = Sequence(Translate[f, Vector[((2 * i) * v)]], i, 1, (0.5 * n) - 1)
b = false
g = false