B = (5.16, -1.8)
A = (-0.12, -1.74)
polígono3, b_1, a, h, i, H, I = Polygon(B, A, 4.0)
c_1 = Semicircle(A, B)
C = Point(c_1)
b = OrthogonalLine(C, b_1)
K = Intersect(b, b_1)
polígono2, c, b_2, f, g, F, G = Polygon(C, B, 4.0)
polígono1, a_1, b_3, d, e, D, E = Polygon(A, C, 4.0)
J = Intersect(Line[D, E], Line[F, G])
t = 0 (slider from 0 to 5, step 0.01)
z = If(x < 0.0, 0.0, If[x > 1.0, 1.0, x])
α = Angle(A, C, B)
lista1: {Polygon[A, B, C]}
D': D + z(t) * (J - D) + z(t - 2.0) * (H - A) + z(t - 4.0) * (K - C)
E': D' + A - C + z(t - 4.0) * (C - K)
G': G + z(t) * (J - G) + z(t - 2.0) * (H - A) + z(t - 4.0) * (K - C)
F': G' + B - C + z(t - 4.0) * (C - K)
A': A + z(t - 2.0) * (H - A)
B': B + z(t - 2.0) * (I - B)
C': A' + C - A + z(t - 4.0) * (K - C)
lista2: {Polygon[A', E', D', C']}
lista3: {Polygon[B', F', G', C']}