t = 19 (slider from 0 to 960, step 1)
I = (0, 0)
c = Circle(I, 38)
A = Intersect(c, a, 1)
B = Rotate(A, 120*°, I)
A1 = Dilate(B, 0.375, A)
C = Rotate(B, 120*°, I)
C1 = Dilate(A, 0.375, C)
B1 = Dilate(C, 0.375, B)
B2 = Dilate(A, 0.375, B)
C2 = Dilate(B, 0.375, C)
f = Circle(C, C1, C2)
Q = Center(f)
A2 = Dilate(C, 0.375, A)
d = Circle(A, A1, A2)
O = Center(d)
poly1, a2, a_1, a1 = Polygon(A, A1, A2)
poly2, b2, b, b1 = Polygon(B, B1, B2)
e = Circle(B, B1, B2)
P = Center(e)
h = Segment(A2, C1)
i = Segment(C1, C)
j = Segment(C, C2)
k = Segment(C2, B1)
l = Segment(B1, B)
m = Segment(B, B2)
n = Segment(B2, A1)
p = Segment(A1, A)
g = Segment(A, C)
q = Segment(B, C)
r = Segment(B, A)
A' = Rotate(A, ((-π) * t / 180), O)
A2' = Rotate(A2, ((-π) * t / 180), O)
A1' = Rotate(A1, ((-π) * t / 180), O)
C1' = Rotate(C1, ((-π) * t / 180), Q)
C' = Rotate(C, ((-π) * t / 180), Q)
C2' = Rotate(C2, ((-π) * t / 180), Q)
B' = Rotate(B, ((-π) * t / 180), P)
B1' = Rotate(B1, ((-π) * t / 180), P)
B2' = Rotate(B2, ((-π) * t / 180), P)
poly3, a2', a1', a' = Polygon(A1', A', A2')
poly4, c', c2', c1' = Polygon(C2', C1', C')
poly5, b1', b', b2' = Polygon(B', B2', B1')
poly6 = If(t  <  120, Polygon[A1', A', C1', C', B1', B'])
poly7 = If(120  <  t  <  240, Polygon[A2', A1', C2', C1', B2', B1'])
poly8 = If(240  <  t  <  360, Polygon[A', A2', C', C2', B', B2'])
poly9 = If(360  <  t  <  480, Polygon[A1', A', C1', C', B1', B'])
poly10 = If(480  <  t  <  600, Polygon[B1', A2', A1', C2', C1', B2'])
poly11 = If(600  <  t  <  720, Polygon[B2', A', A2', C', C2', B'])
poly12 = If(720  <  t  <  840, Polygon[B', A1', A', C1', C', B1'])
poly13 = If(840  <  t  <  960, Polygon[B1', A2', A1', C2', C1', B2'])
M1 = If(t  <  120, Rotate[A, ((-π) * t / 180), O])
M2 = If(120 ≤ t  <  240, Barycenter[{A1', C2'}, {2, 3}])
E = Barycenter({A2, C}, {2, 3})
M3 = If(240 ≤ t  <  360, Rotate[E, ((-π) * (t - 240) / 180), Q])
F = Rotate(E, -2.0944, Q)
G = Barycenter({C2, B}, {4, 1})
H = Barycenter({C2, B}, {1, 4})
K = Rotate(H, -2.0943951023931953, P)
M4 = If(360 ≤ t  <  480, Barycenter[{C', B1'}, {4, 1}])
M5 = If(480 ≤ t  <  600, Barycenter[{C1', B2'}, {1, 4}])
M6 = If(600 ≤ t  <  720, Rotate[H, ((-π) * (t - 600) / 180), P])
M7 = If(720 ≤ t  <  840, Barycenter[{B', A1'}, {3, 2}])
M8 = If(840 ≤ t ≤ 960, Rotate[A1, ((-π) * (t - 840) / 180), O])
s = Segment(C1, E)
b_1 = Segment(C, F)
c_1 = Segment(H, B)
d_1 = Segment(K, B2)
e_1 = Segment(G, C2)
ψ = If(t  <  120, M1, If[t  <  240, M2, If[t  <  360, M3, If[t  <  480, M4, If[t  <  600, M5, If[t  <  720, M6, If[t  <  840, M7, M8]]]]]])
u = Vector(A, A2)
O' = Translate(O, u)
f_1 = CircleArc(O, A2, A)
g_1 = CircleArc(O', E, A2)
h_1 = CircleArc(Q, F, E)
v = Vector(C, F)
Q' = Translate(Q, v)
k_1 = CircleArc(Q', G, F)
i_1 = Line(A, I)
Q'' = Mirror(Q', i_1)
p_1 = CircleArc(Q'', H, G)
q_1 = CircleArc(P, K, H)
O'' = Mirror(O', i_1)
r_1 = CircleArc(O'', A1, K)
s_1 = CircleArc(O, A, A1)