P1 = (-4.75, -11)
P2: P1 + (892.0 / 50.0, 0.0)
B = (5.12, 0.7000000000000001)
A = (2.7, -0.7000000000000001)
t = 0 (slider from 0 to 10, step 0.01)
z = If(x < 0.0, 0.0, If[x > 1.0, 1.0, x])
P = (5.352374970862248, -3.3038178344044145)
polígono1, b, a, c, d, e, f, C, D, E, F = Polygon(B, A, 6.0)
A1 = (5.74, -1.04)
A2: A1 + (86.0 / 50.0, 0.0)
B1 = (4.48, -4.9)
B2: B1 + (74.0 / 50.0, 0.0)
C1 = (2.7, -2.44)
C2: C1 + (52.0 / 50.0, 0.0)
D1 = (6.2, -3.52)
D2: D1 + (67.0 / 50.0, 0.0)
E1 = (2.7, -4.34)
E2: E1 + (73.0 / 50.0, 0.0)
F1 = (4.22, -1.5)
F2: F1 + (42.0 / 50.0, 0.0)
u = Vector(D, F)
v = Vector(E, B)
G1 = (-3.94, 5.04)
G2: G1 + (123.0 / 50.0, 0.0)
lista1 = Sequence(Sequence[Polygon[Translate[B, t * u + s * v], Translate[A, t * u + s * v], Translate[C, t * u + s * v], Translate[D, t * u + s * v], Translate[E, t * u + s * v], Translate[F, t * u + s * v]], t, -3.0, 3.0], s, -3.0, 3.0)
imagen1' = Translate(imagen1, Vector[Vector[(0.0, 0.0)]])
imagen2' = Rotate(imagen2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 4.0 * 3.141592653589793 * z(t - 4.0) / 3.0, F)
imagen3' = Rotate(imagen3, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 4.0 * 3.141592653589793 * z(t - 4.0) / 3.0, D)
imagen4' = Rotate(imagen4, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 4.0 * 3.141592653589793 * z(t - 4.0) / 3.0, A)
imagen5' = Rotate(imagen5, 4.0 * 3.141592653589793 * z(t - 6.0) / 3.0, F)
imagen6' = Rotate(imagen6, 4.0 * 3.141592653589793 * z(t - 6.0) / 3.0, D)
imagen7' = Rotate(imagen7, 4.0 * 3.141592653589793 * z(t - 6.0) / 3.0, A)
H1 = (2.68, -4.9)
H2: H1 + (243.0 / 50.0, 0.0)