t = 0 (slider from 0 to 5, step 0.01)
z = If(x < 0.0, 0.0, If[x > 1.0, 1.0, x])
A = (-4, -6)
a = Line(A, xAxis)
A' = Point(a)
M = Midpoint(A, A')
b = Line(M, yAxis)
B = (-2.820000000000001, -1.1400000000000001)
B' = Mirror(B, b)
N = Midpoint(B, B')
c = Line(B, xAxis)
C: ((x(A') + x(A) + 10.0) / 2.0, y(B))
d = Segment(C, C + (0.0, 1.0))
D = Point(d)
E: N + (0.0, Distance[D, C])
texto1: "" + (Distance[D, C])
e = Circle(E, N)
F = Rotate(N, 119.99999999999999°, E)
F' = Mirror(F, b)
α = Angle(N, E, F)
f = Circle(F, B)
G = Intersect(f, b, 1.0)
β = Angle(G, F, B)
H = Rotate(B, -1.0 * z(t - 3.0) * β, F)
H' = Mirror(H, b)
g = Segment(F, H)
g' = Segment(F', H')
h = CircleArc(F, H, B)
h' = Arc(Mirror[Circle[F, H], b], H', B')
i = Line(D, c)
K: N + z(t - 1.0) * (E - N)
j = Segment(N, K)
L = Rotate(N, z(t - 2.0) * α, E)
L' = Rotate(N, -1.0 * z(t - 2.0) * α, E)
γ = Angle(N, E, L)
γ' = Angle(L', E, N)
lista1: {Polygon[N, F, F']}
O: A + (10.0, 0.0)
O': A' + (10.0, 0.0)
P: B + (10.0, 0.0)
k = Line(M + (10.0, 0.0), yAxis)
J: B + z(t) * (N - B)
J': B' + z(t) * (N - B')