Lohista!

A = (-4.375897581807359, 3.2120190584186687)
B = (1.6241024181926411, 3.2120190584186687)
a = 0 (slider from 0 to 180, step 1)
B' = Rotate(B, (a * π / 180), A)
f = Segment(A, B)
g = Ray(A, B')
C = Point(g)
t1, c, a_1, b = Polygon(A, B, C)
h = Segment(B, C)
i = Segment(C, A)
d = Min({f, h, i})
e = Circle(A, (0.3 * d))
k = Circle(B, (0.3 * d))
p = Circle(C, (0.3 * d))
β = Angle(C, B, A)
D = Intersect(e, f)
E = Intersect(k, h)
F = Intersect(p, i)
j = 0 (slider from 0 to 10.1, step 0.1)
D' = Rotate(D, If[0 < j ≤ 1, ((j * a) * π / 180), (a * π / 180)], A)
q = CircleSector(A, D, D')
E' = Rotate(E, If[1 < j ≤ 2, ((j - 1) * β), β], B)
r = CircleSector(B, E, E')
F' = Rotate(F, If[2 < j ≤ 3, ((j - 2) * (π - β - (a * π / 180))), π - β - (a * π / 180)], C)
s = CircleSector(C, F, F')
B'_{1} = Dilate(B, If[4 < j ≤ 5, 5 - j, 0], A)
u = Vector(B, B'_{1})
A' = Translate(A, u)
B'_{2} = Translate(B, u)
C' = Translate(C, u)
t1', c', a', b'_{2} = Polygon(A', B'_{2}, C')
B'_{3} = Translate(B, u)
C'_{1} = Translate(C, u)
h' = Segment(B'_{3}, C'_{1})
q' = Translate(q, u)
s' = Translate(s, u)
C'_{2} = Translate(C, u)
A'_{1} = Translate(A, u)
i' = Segment(C'_{2}, A'_{1})
r' = Translate(r, u)
G = Midpoint(i)
A'_{2} = Rotate(A, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
B'_{4} = Rotate(B, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
C'_{3} = Rotate(C, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
t1'_1, c'_{3}, a'_{2}, b'_{4} = Polygon(A'_{2}, B'_{4}, C'_{3})
l = Segment(C'_{3}, B'_{4})
m = Segment(B'_{4}, A'_{2})
n = Segment(A'_{2}, C'_{3})
s'_{1} = Rotate(s, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
q'_{1} = Rotate(q, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
r'_{1} = Rotate(r, If[5.5 < j ≤ 6.5, ((j - 5.5) * π), π], G)
A'_{3} = Translate(A, u)
B'_{5} = Translate(B, u)
f' = Segment(A'_{3}, B'_{5})
D'_{1} = Rotate(D, If[9 < j ≤ 10, ((j - 9) * π), π], A)
t = CircleArc(A, D, D'_{1})