A = (4.2087489679828405, 6.83538024310797)
B = (7.156025189481213, 4.489004998808296)
C = (7.327711182966555, 1.1983567903392396)
D = (3.6936909875268147, -1.434161776436005)
E = (0.6033431047906576, -0.833260799237308)
F = (-1.199359826805434, 2.0567867577659498)
G = (-0.6013202828314915, 4.826654119329467)
H = (1.747916394692938, 6.7781515786128566)
a = Ray(A, B)
b = Ray(B, C)
c = Ray(C, D)
d = Ray(D, E)
e = Ray(E, F)
f = Ray(F, G)
g = Ray(G, H)
k = 6.2 (slider from 2 to 10, step 0.1)
p = Circle(A, k)
q = Circle(B, k)
r = Circle(C, k)
s = Circle(D, k)
t_3 = Circle(E, k)
c_1 = Circle(F, k)
d_1 = Circle(G, k)
e_1 = Circle(H, k)
l = 5 (slider from 1 to 5, step 1)
K = Intersect(p, a)
N, O = Intersect(q, a)
P = Intersect(q, b)
Q = Intersect(b, c)
R, S = Intersect(r, b)
T = Intersect(r, c)
U, V_2 = Intersect(s, c)
W = Intersect(s, d)
k_1 = CircleSector(B, P, O)
p_1 = CircleSector(C, T, S)
m = Ray(D, A)
Z, A_1 = Intersect(p, m)
q_1 = CircleSector(A, K, A_1)
B_1 = Intersect(s, m, 1.0)
n = Segment(A, B)
a_1 = Segment(C, D)
b_1 = Segment(A, B)
poly1, a_2, b_2, c_2, d_2 = Polygon(A, B, C, D)
i_1 = Ray(E, A)
C_1, D_1 = Intersect(p, i_1)
r_1 = CircleSector(A, K, D_1)
E_1, F_1 = Intersect(t_3, d)
G_1 = Intersect(t_3, i_1)
t_1 = CircleSector(E, G_1, F_1)
e_2 = CircleSector(D, W, V_2)
j_1 = Segment(A, E)
l_1 = Segment(E, D)
m_1 = Segment(A, E)
n_1 = Segment(E, F)
s_1 = Segment(F, A)
f_2 = Ray(F, A)
H_1, I_1 = Intersect(p, f_2)
g_2 = CircleSector(A, K, I_1)
h_2 = Ray(D, E)
J_1, K_1 = Intersect(t_3, h_2)
L_1 = Intersect(t_3, e)
k_2 = CircleSector(E, L_1, K_1)
p_2 = CircleSector(E, L_1, K_1)
M_1, N_1 = Intersect(c_1, e)
O_1 = Intersect(c_1, f_2)
q_2 = CircleSector(F, O_1, N_1)
i_2 = Segment(G, A)
j_2 = Segment(F, G)
P_1 = Intersect(c_1, f)
r_2 = CircleSector(F, P_1, N_1)
Q_1 = Intersect(d_1, g)
l_2 = Ray(G, A)
R_1 = Intersect(d_1, l_2)
S_1, T_1 = Intersect(p, l_2)
t_2 = CircleSector(A, K, T_1)
m_2 = Segment(G, H)
n_2 = Segment(H, A)
U_1, V_1 = Intersect(d_1, f)
c_3 = CircleSector(G, Q_1, V_1)
W_1, Z_1 = Intersect(e_1, g)
a_3 = Ray(H, A)
B_2 = Intersect(e_1, a_3)
d_3 = CircleSector(H, B_2, Z_1)
C_2, D_2 = Intersect(p, a_3)
e_3 = CircleSector(A, K, D_2)
h = Ray(C, D)
f_1 = Circle(D, k)
I, J = Intersect(f_1, h)
i = Ray(D, A)
L = Intersect(f_1, i)
g_1 = CircleSector(D, L, J)
j = Ray(D, E)
h_1 = Ray(F, G)
f_3 = Circle(G, k)
M, A_2 = Intersect(f_3, h_1)
s_2 = CircleSector(G, R_1, A_2)
V = (19.980968902836267, 1.9594980281242547)
b_3 = Segment(A, V)
g_3 = Segment(B, V)
h_3 = Segment(C, V)
i_3 = Segment(D, V)
j_3 = Segment(E, V)
k_3 = Segment(F, V)
l_3 = Segment(G, V)
m_3 = Segment(H, V)
Animation = 26.5 (slider from 0 to 50, step 0.1)
p_3 = Circle(A, If[Animation < b_3, Animation, b_3])
E_2, J_3 = Intersect(p_3, b_3)
u = Vector(A, E_2)
A'_1 = Translate(A, u)
K'_1 = Translate(K, u)
F_2 = Translate(A_1, u)
q_3 = Sector(Translate[Circle[A, K], u], K'_1, F_2)
r_3 = Circle(B, If[Animation < g_3, Animation, g_3])
G_2, K_3 = Intersect(r_3, g_3)
v = Vector(B, G_2)
B' = Translate(B, v)
P' = Translate(P, v)
O' = Translate(O, v)
s_3 = Sector(Translate[Circle[B, P], v], P', O')
c_4 = Circle(C, If[Animation < h_3, Animation, h_3])
H_2, L_3 = Intersect(c_4, h_3)
w = Vector(C, H_2)
C' = Translate(C, w)
T' = Translate(T, w)
S' = Translate(S, w)
d_4 = Sector(Translate[Circle[C, T], w], T', S')
e_4 = Circle(D, If[Animation < i_3, Animation, i_3])
I_2 = Intersect(e_4, i_3)
z = Vector(D, I_2)
D'_1 = Translate(D, z)
L' = Translate(L, z)
J' = Translate(J, z)
f_4 = Sector(Translate[Circle[D, L], z], L', J')
A'_2 = Translate(A, u)
K'_2 = Translate(K, u)
J_2 = Translate(D_1, u)
g_4 = Sector(Translate[Circle[A, K], u], K'_2, J_2)
D' = Translate(D, z)
W' = Translate(W, z)
K_2 = Translate(V_2, z)
h_4 = Sector(Translate[Circle[D, W], z], W', K_2)
k_4 = Circle(E, If[Animation < j_3, Animation, j_3])
L_2 = Intersect(k_4, j_3)
u_1 = Vector(E, L_2)
E'_1 = Translate(E, u_1)
M_2 = Translate(G_1, u_1)
N_2 = Translate(F_1, u_1)
p_4 = Sector(Translate[Circle[E, G_1], u_1], M_2, N_2)
E' = Translate(E, u_1)
O_2 = Translate(L_1, u_1)
P_2 = Translate(K_1, u_1)
q_4 = Sector(Translate[Circle[E, L_1], u_1], O_2, P_2)
A'_3 = Translate(A, u)
K'_3 = Translate(K, u)
Q_2 = Translate(I_1, u)
r_4 = Sector(Translate[Circle[A, K], u], K'_3, Q_2)
s_4 = Circle(F, If[Animation < k_3, Animation, k_3])
R_2 = Intersect(s_4, k_3)
v_1 = Vector(F, R_2)
F'_1 = Translate(F, v_1)
S_2 = Translate(O_1, v_1)
T_2 = Translate(N_1, v_1)
t_4 = Sector(Translate[Circle[F, O_1], v_1], S_2, T_2)
F' = Translate(F, v_1)
U_2 = Translate(P_1, v_1)
W_2 = Translate(N_1, v_1)
c_5 = Sector(Translate[Circle[F, P_1], v_1], U_2, W_2)
A'_4 = Translate(A, u)
K'_4 = Translate(K, u)
Z_2 = Translate(T_1, u)
d_5 = Sector(Translate[Circle[A, K], u], K'_4, Z_2)
e_5 = Circle(G, If[Animation < l_3, Animation, l_3])
A_3 = Intersect(e_5, l_3)
w_1 = Vector(G, A_3)
G'_1 = Translate(G, w_1)
B_3 = Translate(R_1, w_1)
C_3 = Translate(A_2, w_1)
f_5 = Sector(Translate[Circle[G, R_1], w_1], B_3, C_3)
A' = Translate(A, u)
K' = Translate(K, u)
D_3 = Translate(D_2, u)
g_5 = Sector(Translate[Circle[A, K], u], K', D_3)
G' = Translate(G, w_1)
E_3 = Translate(Q_1, w_1)
F_3 = Translate(V_1, w_1)
h_5 = Sector(Translate[Circle[G, Q_1], w_1], E_3, F_3)
k_5 = Circle(H, If[Animation < m_3, Animation, m_3])
G_3 = Intersect(k_5, m_3)
z_1 = Vector(H, G_3)
H' = Translate(H, z_1)
H_3 = Translate(B_2, z_1)
I_3 = Translate(Z_1, z_1)
p_5 = Sector(Translate[Circle[H, B_2], z_1], H_3, I_3)
q_5 = Circle(V, k)
texte1: "Nombre de cotés : " + (l + 3.0)