animer ce point

B = (6.0600000000000005, -6.34)
A = (-0.32, -6.28)
Q = Midpoint(A, B)
j_1 = Segment(Q, A)
poly1, a, b, c, C = Polygon(A, B, 3.0)
D = Midpoint(c)
F = Point(j_1)
E = Midpoint(b)
distanceCE = Distance(C, E)
TexteCE: "\overline{" + (Name[C]) + (Name[E]) + "} \, = \, " + distanceCE
d = Circle(F, distanceCE)
G = Intersect(d, a, 1.0)
e = Segment(F, E)
f = OrthogonalLine(G, e)
g = OrthogonalLine(D, e)
H = Intersect(e, f)
I = Intersect(e, g)
h = Segment(D, I)
i = Segment(H, G)
J = (10.5, 0.14)
u = Vector(H, J)
poly2, g_1, f_1, h_1 = Polygon(F, H, G)
F' = Translate(F, u)
H' = Translate(H, u)
G' = Translate(G, u)
poly2', g', f', h' = Polygon(F', H', G')
j = Line(H', G')
k = Line(F', H')
distanceGH = Distance(G, H)
TexteGH: "\overline{" + (Name[G]) + (Name[H]) + "} \, = \, " + distanceGH
p = Circle(G', distanceGH)
K = Intersect(p, j, 2.0)
l = OrthogonalLine(K, j)
distanceFI = Distance(F, I)
TexteFI: "\overline{" + (Name[F]) + (Name[I]) + "} \, = \, " + distanceFI
q = Circle(F', distanceFI)
L = Intersect(q, k, 1.0)
m = OrthogonalLine(L, k)
M = Intersect(l, m)
distanceAF = Distance(A, F)
TexteAF: "\overline{" + (Name[A]) + (Name[F]) + "} \, = \, " + distanceAF
r = Circle(F', distanceAF)
N = Intersect(r, h', 1.0)
distanceID = Distance(I, D)
TexteID: "\overline{" + (Name[I]) + (Name[D]) + "} \, = \, " + distanceID
s = Circle(M, distanceID)
O = Intersect(s, m, 2.0)
distanceIE = Distance(I, E)
TexteIE: "\overline{" + (Name[I]) + (Name[E]) + "} \, = \, " + distanceIE
t = Circle(M, distanceIE)
P = Intersect(t, l, 2.0)
poly3, a_1, f_2, i_1, d_1 = Polygon(A, F, I, D)
poly4, d_2, i_2, e_1, c_1 = Polygon(D, I, E, C)
poly5, h_2, g_2, b_1, e_2 = Polygon(H, G, B, E)
poly6, o, m_1, p_1, n = Polygon(O, M, P, N)
poly7, l_1, o_1, n_1, f'_1 = Polygon(L, O, N, F')
poly8, g'_1, n_2, p_2, k_1 = Polygon(G', N, P, K)