pasos = 24 (slider from 5 to 30, step 1)
t = 16 (slider from 16 to pasos + 1)
sl = Sequence(Max[0, Min[1, t - s]], s, 1, pasos)
vl: {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3.1}
A1 = (-2, -4)
h: (6 * 492 / 396)
A3: A1 + (0, h)
A2: A1 + (6, 0)
A = (-1.22, -2.5)
B = (1.76, -2.52)
C = (0.26, -1.02)
u = Vector(A, B)
v = Vector(A, C)
img1t = Translate(imagen1, (sl(2) * u))
img2t = Translate(imagen1, (sl(4) * v))
D = (0.98, -0.32)
img3r = Rotate(imagen1, (sl(7) * π), D)
img4r = Rotate(imagen1, (sl(9) * π / 2), C)
img5r = Rotate(img4r, (sl(10) * π / 2), C)
s = Segment(A1, A2)
m = LineBisector(s)
E = Point(m)
c = CircleArc(E, A1, A2)
A4 = Intersect(s, m)
A0: A1 + (sl(13) * (A2 - A1))
m2 = Line(A0, m)
A5 = Intersect(c, m2, 1)
A6 = Mirror(A5, A4)
A7: A5 + A3 - A1
md = OrthogonalLine(C, s)
B0 = Intersect(md, s)
A11 = Mirror(A1, B0)
A22 = Mirror(A2, B0)
F = Point(md)
G = Point(md)
d = CircleArc(F, A22, A2)
e = CircleArc(G, A11, A1)
B1: A1 + (sl(17) * (A11 - A1))
f = OrthogonalLine(B1, s)
B2: A2 + (sl(17) * (A22 - A2))
g = OrthogonalLine(B2, s)
B11 = Intersect(e, f)
B22 = Intersect(d, g, 1)
B33: B22 + A3 - A1
H = Point(md)
w = Vector(C, H)
Img6sd = Translate(imagen3, (sl(18) * w))