Reset

Stop

t1 = 46.79 (slider from 0 to 121, step 0.01)
Z = (9.103382326127214, -4.023941311802315)
Y = (2.7688259251644696, -4.033368865645176)
X = (0.4902384043234725, -3.97779356025881)
W = (-2.010650338062988, -3.0885886740769575)
V = (-4.233662553517619, -2.0326578717360078)
U = (-6.0120723258813245, -0.08752218321320522)
T = (-6.623400685131348, 2.468941864559621)
S = (-5.956497020494958, 4.85867999617335)
R = (-4.178087248131254, 7.192842822400713)
Q = (-1.6771985057447931, 8.304348930128029)
P = (0.7125396258689356, 8.582225457059858)
O = (8.381931769187414, 5.9146107985143)
A = (13.683506395756572, -3.981136413955312)
B = (24.855584733824443, -3.852721720414302)
C = (33.759003486001134, -3.6815021290262884)
D = (36.92656592667939, -1.755281725911138)
E = (39.409250001805574, 1.583500306155123)
F = (39.75168918458161, 6.7200880477955245)
G = (37.26900510945542, 11.856675789435926)
H = (33.267037831055106, 14.901390294514135)
I = (28.622415744360737, 14.467774558103129)
J = (25.188409348073385, 11.535295093271753)
K = (17.006208705053442, 6.978120051589759)
t = 48.66 (slider from 0 to 121, step 0.01)
points: {A, B, C, D, E, F, G, H, I, J, K, O, P, Q, R, S, T, U, V, W, X, Y, Z, A}
g = Mod(t, 23)
V_1 = Translate(Element[points, floor(g) + 1.5], Vector[(g - floor(g)) * Vector[Element[points, floor(g) + 1.5], Element[points, floor(g) + 2]]])
M = Translate(Element[points, floor(g) + 1], Vector[(g - floor(g)) * Vector[Element[points, floor(g) + 1], Element[points, floor(g) + 2]]])
Vitesse2 = 4 (slider from 0 to 10, step 0.01)
Vitesse1 = 4.16 (slider from 0 to 10, step 0.01)
bb: t * Vitesse2 / Vitesse1
poly1, b, c, d, e, f, h, i, j, k, l, m, n, p, q, r, s, a_1, f_1, g_1, h_1, i_1, j_1, k_1 = Polygon(A, B, C, D, E, F, G, H, I, J, K, O, P, Q, R, S, T, U, V, W, X, Y, Z)
gg = Mod(t1, 23)
W_1 = Translate(Element[points, floor(g) + 1], Vector[(g - floor(g)) * Vector[Element[points, floor(g) + 2], Element[points, floor(g) + 2]]])
L = Translate(Element[points, floor(gg) + 1], Vector[(gg - floor(gg)) * Vector[Element[points, floor(gg) + 1], Element[points, floor(gg) + 2]]])
a = true
N = Translate(Element[points, g + 1 + Vitesse1], Vector[(g - floor(g)) * Vector[Element[points, g + 1 + Vitesse1], Element[points, g + 1.5 + Vitesse1]]])
c_1 = Circle(M, 2)
b_1 = Line(M, V_1)
Z_1, A_1 = Intersect(c_1, b_1)
d_1 = Circle(L, 2)
B_1 = Translate(Element[points, floor(gg) + 1.5], Vector[(gg - floor(gg)) * Vector[Element[points, floor(gg) + 1.5], Element[points, floor(gg) + 2]]])
e_1 = Line(L, B_1)
C_1, D_1 = Intersect(d_1, e_1)
l_1 = Segment(L, C_1)
m_1 = OrthogonalLine(L, l_1)
p_1 = Circle(L, 1)
E_1, F_1 = Intersect(p_1, m_1)
n_1 = Line(E_1, e_1)
q_1 = Line(C_1, m_1)
G_1 = Intersect(n_1, q_1)
s_1 = Circle(B, 1.52)
r_1 = Circle(A, 1.52)
t_1 = Circle(C, 1.52)
c_2 = Circle(D, 1.5)
d_2 = Circle(E, 1.5)
e_2 = Circle(F, 1.5)
f_2 = Circle(G, 1.5)
g_2 = Circle(H, 1.5)
h_2 = Circle(I, 1.52)
k_2 = Circle(J, 1.52)
p_2 = Circle(V, 1.52)
q_2 = Circle(K, 1.52)
s_2 = Circle(O, 1.52)
t_2 = Circle(P, 1.52)
c_3 = Circle(Q, 1.5)
d_3 = Circle(R, 1.5)
e_3 = Circle(S, 1.5)
f_3 = Circle(T, 1.5)
g_3 = Circle(U, 1.52)
h_3 = Circle(W, 1.52)
k_3 = Circle(X, 1.52)
p_3 = Circle(Y, 1.52)
q_3 = Circle(Z, 1.52)
a_2 = OrthogonalLine(A, b)
b_2 = OrthogonalLine(B, c)
i_2 = OrthogonalLine(C, c)
j_2 = OrthogonalLine(D, e)
l_2 = OrthogonalLine(E, e)
m_2 = OrthogonalLine(F, f)
n_2 = OrthogonalLine(G, h)
r_2 = OrthogonalLine(H, i)
a_3 = OrthogonalLine(I, j)
b_3 = OrthogonalLine(O, n)
i_3 = OrthogonalLine(P, n)
j_3 = OrthogonalLine(Q, p)
l_3 = OrthogonalLine(R, r)
m_3 = OrthogonalLine(S, s)
n_3 = OrthogonalLine(T, s)
r_3 = OrthogonalLine(U, f_1)
s_3 = OrthogonalLine(V, f_1)
H_1, I_1 = Intersect(r_1, a_2)
J_1, K_1 = Intersect(s_1, b_2)
L_1, M_1 = Intersect(t_1, i_2)
N_1, O_1 = Intersect(c_2, j_2)
P_1, Q_1 = Intersect(d_2, l_2)
R_1, S_1 = Intersect(e_2, m_2)
T_1, U_1 = Intersect(f_2, n_2)
A_2, B_2 = Intersect(g_2, r_2)
C_2, D_2 = Intersect(h_2, a_3)
E_2, F_2 = Intersect(s_2, b_3)
G_2, H_2 = Intersect(t_2, i_3)
I_2, J_2 = Intersect(c_3, j_3)
K_2, L_2 = Intersect(d_3, l_3)
M_2, N_2 = Intersect(e_3, m_3)
O_2, P_2 = Intersect(f_3, n_3)
Q_2, R_2 = Intersect(g_3, r_3)
S_2, T_2 = Intersect(p_2, s_3)
t_3 = OrthogonalLine(W, h_1)
U_2, V_2 = Intersect(h_3, t_3)
a_4 = OrthogonalLine(X, h_1)
W_2, Z_2 = Intersect(k_3, a_4)
b_4 = OrthogonalLine(Y, i_1)
A_3, B_3 = Intersect(p_3, b_4)
c_4 = OrthogonalLine(Z, k_1)
C_3, D_3 = Intersect(q_3, c_4)
d_4 = OrthogonalLine(K, l)
e_4 = OrthogonalLine(J, k)
E_3, F_3 = Intersect(q_2, d_4)
G_3, H_3 = Intersect(k_2, e_4)
poly2, b_5, d_5, i_4, k_4, m_4, o_1, q_4, s_4, u_1, b_6, a_5, t_4, r_4, p_4, n_4, l_4, j_4, h_4, c_5, a_6 = Polygon(B_3, D_3, I_1, K_1, M_1, O_1, Q_1, S_1, U_1, B_2, A_2, T_1, R_1, P_1, N_1, L_1, J_1, H_1, C_3, A_3)
poly3, a_7, c_6, g_4, e_5, e_6, g_5, i_5, k_5, l_5, j_5, h_5, f_4, f_5, h_6, d_6, b_7 = Polygon(A_2, C_2, G_3, E_3, E_2, G_2, I_2, K_2, L_2, J_2, H_2, F_2, F_3, H_3, D_2, B_2)
poly4, l_6, n_5, p_5, r_5, t_5, v_2, z_2, b_8, a_8, w_2, u_2, s_5, q_5, o_2, m_5, k_6 = Polygon(L_2, N_2, P_2, R_2, T_2, V_2, Z_2, B_3, A_3, W_2, U_2, S_2, Q_2, O_2, M_2, K_2)
poly5, b_9, z_1, w_1, a_9 = Polygon(B_3, Z_2, W_2, A_3)
I_3 = Intersect(l, z_2)
J_3 = Intersect(a_8, w_1)
K_3 = Intersect(a_8, w_1)
L_3 = Intersect(k, a_8)
M_3 = Intersect(a_8, w_1)
N_3 = Intersect(i_1, l)
O_3 = Intersect(l, a_8)
f_6 = Segment(N_3, O_3)
g_6 = Segment(I_1, H_1)