Animer t et reconnaître les 
transformations successives

Envoyer ABC sur DEF par une application affine

On effectue la translation de vecteur $\overrightarrow{AD}$
suivie de l'application linéaire qui envoie
la base $\overrightarrow{AB}, \overrightarrow{AC}$ sur  $\overrightarrow{DE}, \overrightarrow{DF}$

Variante

C = (-3.2600000000000002, 3.56)
A = (-1.02, -3.08)
B = (2.98, -4.5600000000000005)
poly1, c, a, b = Polygon(C, A, B)
D = (6.28, -1.5)
E = (13.14, -1.48)
d = Segment(D, E)
e = Circle(D, E)
f = Circle(E, D)
F = Intersect(e, f, 1)
poly2, e_1, d_1, f_1 = Polygon(D, F, E)
t = 0 (slider from 0 to 5, step 0.01)
u = Vector(A, D)
g = Line(D, a)
G = Point(g)
α = Angle(G, D, E)
t_1 = Min(t, 1)
v: (t_1 * u)
C' = Translate(C, v)
A' = Translate(A, v)
B' = Translate(B, v)
poly1', c', a', b' = Polygon(C', A', B')
t_2 = Max(0, Min[t - 1, 1])
α_1: (t_2 * α)
C'' = Rotate(C', α_1, D)
B''_1 = Rotate(A', α_1, D)
B'' = Rotate(B', α_1, D)
poly1'', c'', a'', b'' = Polygon(C'', B''_1, B'')
t_3 = Max(0, Min[t - 2, 1])
k: (t_3 * d / a) + 1 - t_3
C''' = Dilate(C'', k, D)
B'''_1 = Dilate(B''_1, k, D)
B''' = Dilate(B'', k, D)
poly1''', c''', a''', b''' = Polygon(C''', B'''_1, B''')
h = OrthogonalLine(F, d)
i = OrthogonalLine(C''', h)
H = Intersect(h, i)
t_4 = Max(0, Min[t - 3, 1])
M: (t_4 * H) + ((1 - t_4) * C''')
I = (5.5, 7.4)
poly3, e_2, d_2, m = Polygon(D, M, E)
t_5 = Max(0, t - 4)
N: (t_5 * F) + ((1 - t_5) * M)
poly4, e_3, d_3, n = Polygon(D, N, E)
j = false