Andre's Move

A = (0, 0)
B = (2, 6)
C = (4, 6)
D = (4, 0)
poly1, a, b, c, d = Polygon(A, B, C, D)
E = (9, 6)
F = (7, 0)
poly2, c_1, e, f, d_1 = Polygon(C, E, F, D)
t = 0 (slider from 0 to 14, step 0.1)
g = Segment((4, 0), (4, t))
h = Segment(D, C)
u = Vector((0, 0), (t - 7, 0))
A' = Translate(A, u)
B' = Translate(B, u)
C' = Translate(C, u)
D' = Translate(D, u)
poly1', a', b', c', d' = Polygon(A', B', C', D')