PATRÓN

r = 0.23
A1 = (2.3000000000000003, 5.16)
A2 = Point(Circle[A1, (2 * r)])
A3 = Point(Circle[A2, (2 * r)])
A4 = Point(Circle[A3, (2 * r)])
A5 = Point(Circle[A4, (2 * r)])
A6 = Point(Circle[A5, (2 * r)])
A7 = Point(Circle[A6, (2 * r)])
A8 = Point(Circle[A7, (2 * r)])
A9 = Point(Circle[A8, (2 * r)])
A10 = Point(Circle[A9, (2 * r)])
A11 = Point(Circle[A10, (2 * r)])
A12 = Point(Circle[A11, (2 * r)])
A13 = Point(Circle[A12, (2 * r)])
A14 = Point(Circle[A13, (2 * r)])
A15 = Point(Circle[A14, (2 * r)])
A16 = Point(Circle[A15, (2 * r)])
A17 = Point(Circle[A16, (2 * r)])
A18 = Point(Circle[A17, (2 * r)])
A19 = Point(Circle[A18, (2 * r)])
A20 = Point(Circle[A19, (2 * r)])
A21 = Point(Circle[A20, (2 * r)])
A22 = Point(Circle[A21, (2 * r)])
A23 = Point(Circle[A22, (2 * r)])
A24 = Point(Circle[A23, (2 * r)])
A25 = Point(Circle[A24, (2 * r)])
A26 = Point(Circle[A25, (2 * r)])
A27 = Point(Circle[A26, (2 * r)])
A28 = Point(Circle[A27, (2 * r)])
A29 = Point(Circle[A28, (2 * r)])
A30 = Point(Circle[A29, (2 * r)])
A31 = Point(Circle[A30, (2 * r)])
A32 = Point(Circle[A31, (2 * r)])
A33 = Point(Circle[A32, (2 * r)])
A34 = Point(Circle[A33, (2 * r)])
A35 = Point(Circle[A34, (2 * r)])
A36 = Point(Circle[A35, (2 * r)])
A37 = Point(Circle[A36, (2 * r)])
A38 = Point(Circle[A37, (2 * r)])
A39 = Point(Circle[A38, (2 * r)])
A40 = Point(Circle[A39, (2 * r)])
A41 = Point(Circle[A40, (2 * r)])
A42 = Point(Circle[A41, (2 * r)])
A43 = Point(Circle[A42, (2 * r)])
A44 = Point(Circle[A43, (2 * r)])
A45 = Point(Circle[A44, (2 * r)])
A46 = Point(Circle[A45, (2 * r)])
A47 = Point(Circle[A46, (2 * r)])
A48 = Point(Circle[A47, (2 * r)])
A49 = Point(Circle[A48, (2 * r)])
A50 = Point(Circle[A49, (2 * r)])
A51 = Point(Circle[A50, (2 * r)])
A52 = Point(Circle[A51, (2 * r)])
A53 = Point(Circle[A52, (2 * r)])
A54 = Point(Circle[A53, (2 * r)])
A55 = Point(Circle[A54, (2 * r)])
A56 = Point(Circle[A55, (2 * r)])
A57 = Point(Circle[A56, (2 * r)])
A58 = Point(Circle[A57, (2 * r)])
A59 = Point(Circle[A58, (2 * r)])
A60 = Point(Circle[A59, (2 * r)])
A61 = Point(Circle[A60, (2 * r)])
A62 = Point(Circle[A61, (2 * r)])
A63 = Point(Circle[A62, (2 * r)])
A64 = Point(Circle[A63, (2 * r)])
A65 = Point(Circle[A64, (2 * r)])
A66 = Point(Circle[A65, (2 * r)])
A67 = Point(Circle[A66, (2 * r)])
A68 = Point(Circle[A67, (2 * r)])
A69 = Point(Circle[A68, (2 * r)])
A70 = Point(Circle[A69, (2 * r)])
A71 = Point(Circle[A70, (2 * r)])
A72 = Point(Circle[A71, (2 * r)])
A73 = Point(Circle[A72, (2 * r)])
A74 = Point(Circle[A73, (2 * r)])
A75 = Point(Circle[A74, (2 * r)])
A76 = Point(Circle[A75, (2 * r)])
A77 = Point(Circle[A76, (2 * r)])
A78 = Point(Circle[A77, (2 * r)])
A79 = Point(Circle[A78, (2 * r)])
A80 = Point(Circle[A79, (2 * r)])
A81 = Point(Circle[A80, (2 * r)])
A82 = Point(Circle[A81, (2 * r)])
A83 = Point(Circle[A82, (2 * r)])
A84 = Point(Circle[A83, (2 * r)])
A85 = Point(Circle[A84, (2 * r)])
A86 = Point(Circle[A85, (2 * r)])
A87 = Point(Circle[A86, (2 * r)])
A88 = Point(Circle[A87, (2 * r)])
A89 = Point(Circle[A88, (2 * r)])
A90 = Point(Circle[A89, (2 * r)])
A91 = Point(Circle[A90, (2 * r)])
A92 = Point(Circle[A91, (2 * r)])
A93 = Point(Circle[A92, (2 * r)])
A94 = Point(Circle[A93, (2 * r)])
A95 = Point(Circle[A94, (2 * r)])
A96 = Point(Circle[A95, (2 * r)])
A97 = Point(Circle[A96, (2 * r)])
A98 = Point(Circle[A97, (2 * r)])
A99 = Point(Circle[A98, (2 * r)])
A100 = Point(Circle[A99, (2 * r)])
A101 = Point(Circle[A100, (2 * r)])
A102 = Point(Circle[A101, (2 * r)])
A103 = Point(Circle[A102, (2 * r)])
A104 = Point(Circle[A103, (2 * r)])
A105 = Point(Circle[A104, (2 * r)])
A106 = Point(Circle[A105, (2 * r)])
A107 = Point(Circle[A106, (2 * r)])
A108 = Point(Circle[A107, (2 * r)])
A109 = Point(Circle[A108, (2 * r)])
A110 = Point(Circle[A109, (2 * r)])
A111 = Point(Circle[A110, (2 * r)])
A112 = Point(Circle[A111, (2 * r)])
A113 = Point(Circle[A112, (2 * r)])
A114 = Point(Circle[A113, (2 * r)])
A115 = Point(Circle[A114, (2 * r)])
A116 = Point(Circle[A115, (2 * r)])
A117 = Point(Circle[A116, (2 * r)])
A118 = Point(Circle[A117, (2 * r)])
A119 = Point(Circle[A118, (2 * r)])
A120 = Point(Circle[A119, (2 * r)])
B5 = Circle(A5, r)
D = (1.32, 5.42)
E = (1.56, 5.28)
F = (1.82, 5.2)
d = Segment(D, E)
e = Segment(E, F)
f = Segment(F, A1)
G = (5.319999999999999, -2.8799999999999994)
H = (4.96, -2.8199999999999994)
I = (4.64, -2.7799999999999994)
J = (4.36, -2.7399999999999998)
K = (4.04, -2.7199999999999998)
L = (3.78, -2.7199999999999998)
M = (3.48, -2.6999999999999997)
N = (3.18, -2.72)
O = (2.78, -2.74)
P = (2.4200000000000004, -2.7999999999999994)
Q = (2.3, -2.82)
R = (2.08, -2.88)
S = (1.8200000000000003, -2.8799999999999994)
T = (1.5400000000000003, -2.7999999999999994)
U = (1.32, -2.64)
g = Segment(A120, G)
h = Segment(G, H)
i = Segment(H, I)
j = Segment(I, J)
k = Segment(J, K)
l = Segment(K, L)
m = Segment(L, M)
n = Segment(M, N)
p = Segment(N, O)
q = Segment(O, P)
s = Segment(P, Q)
u = Segment(Q, R)
a_1 = Segment(R, S)
b_1 = Segment(S, T)
c_1 = Segment(T, U)
A = Midpoint(A5, A6)
a = Tangent(A, B5)
c = Circle(A, 1)
B, C = Intersect(c, a)
b = Segment(B, C)
lista1 = Sequence(Segment[Object["A" + (k)], Object["A" + (k + 1)]], k, 1, 119)
t = 0 (slider from 0 to 240, step 0.1)
V = (-3.34, 5.44)
d_1 = Segment(V, V + (3.2, 0))
P1 = Point(d_1)
P2 = Point(d_1)
P3 = Point(d_1)
P4 = Point(d_1)
P5 = Point(d_1)
lista3 = Sort({x(P1), x(P2), x(P3), x(P4), x(P5)})
lista4 = Sequence(Sequence[If[Element[lista3, t] ≟ x(Object["P" + (k)]), k, 0], k, 1, 5], t, 1, 5)
lista5 = Join(lista4)
lista6 = KeepIf(x > 0, lista5)
lista7 = Sequence(Translate[Object["img" + (Element[lista6, k])], Vector[Object["A" + (k)]]], k, 1, 5)
lista21 = Sequence(Translate[Object["img" + (Element[lista6, 1])], Vector[Object["A" + ((5 * k) + 1)]]], k, 1, t / 5)
lista22 = Sequence(Translate[Object["img" + (Element[lista6, 2])], Vector[Object["A" + ((5 * k) + 2)]]], k, 1, (t - 1) / 5)
lista23 = Sequence(Translate[Object["img" + (Element[lista6, 3])], Vector[Object["A" + ((5 * k) + 3)]]], k, 1, (t - 2) / 5)
lista24 = Sequence(Translate[Object["img" + (Element[lista6, 4])], Vector[Object["A" + ((5 * k) + 4)]]], k, 1, (t - 3) / 5)
lista25 = Sequence(Translate[Object["img" + (Element[lista6, 5])], Vector[Object["A" + ((5 * k) + 5)]]], k, 1, (t - 4) / 5)
polígono1, e_1, f_1, g_1, h_1 = Polygon(V - (0.4, 0.4), V + (3.6, (-0.4)), V + (3.6, 0.4), V + ((-0.4), 0.4))
lista2 = Sequence(Text["" + (k), Object["A" + (k)] + (0, 0.5)], k, 1, 5)
B88 = Circle(A88, r)
texto1 = Text("88", A88 + (0.3, 0.1))