t = 0 (slider from 0 to 4, step 0.01)
z = If(x < 0.0, 0.0, If[x > 1.0, 1.0, x])
A = (0.34, 0.92)
B = (4.4, 3.04)
C = (0.9400000000000001, -0.42)
D = (4.2, 0.18)
u = Vector(A, B)
v = Vector(C, D)
C': C + z(t) * (A - C)
D': C' + v
w = Vector(C', D')
a = Line(A, B)
D'' = Mirror(D', a)
E = Midpoint(D', D'')
E'_1: D' + z(t - 1.0) * (E - D')
b = Segment(D', E'_1)
E' = Rotate(E, z(t - 2.0) * 3.141592653589793 / 2.0, A)
c = CircleArc(A, E, E')
d = Segment(A, E')
E'': E' + z(t - 3.0) * u
B': A + E'' - E'
lista1: {Polygon[A, E', E'', B']}
e = Segment(E', E'')
f = Segment(E'', B')