Ángulo de giro

mosaico = 1 (slider from 1 to 3, step 1)
m = 3 (slider from -10 to 10, step 1)
n = 3 (slider from -10 to 10, step 1)
α = 0 rad (slider from 0 to 3.141592653589793, step 0.0017453292519943296)
α2 = 0 rad (slider from 0 to 4.1887902047863905, step 0.0017453292519943296)
A = Intersect(xAxis, yAxis)
B = (2, 0)
p1, p11, p12, p13, p14, p15, p16, P11, P12, P13, P14 = Polygon(A, B, 6)
C = Rotate(P12, α, P13)
D = Rotate(P13, α, P14)
p2, p21, p22, p23, P21 = Polygon(P13, P12, 3)
p3, p31, p32, p33, P31 = Polygon(P14, P13, 3)
polígono4: {Polygon[B, A, 3]}
p5, p51, p52, p53, P51 = Polygon(P14, D, 3)
p6, p61, p62, p63, P61 = Polygon(P13, C, 3)
p7, p71, p72, p73, P71 = Polygon(A, B, 3)
E = Rotate(B, α2, P71)
u1 = Vector(B, D)
v1 = Vector(A, C)
F = Rotate(A, α2, B)
p8, p81, p82, p83, P81 = Polygon(B, F, 3)
p9, p91, p92, p93, P91 = Polygon(P71, E, 3)
G = Rotate(P71, α2, A)
p100, p101, p102, p103, P1001 = Polygon(A, G, 3)
u2 = Vector(A, E)
v2 = Vector(B, G)
p110, p111, p112, p113, p114, P110A, P110B = Polygon(A, B, 4)
B' = Rotate(B, α, P110A)
K' = Rotate(P110A, α, P110B)
p120, p121, p122, p123, p124, P120A, P120B = Polygon(P110B, K', 4)
u3 = Vector(P110A, P120B)
v3 = Vector(A, K')
p130, p131, p132, p133, p134, P130A, P130B = Polygon(P110A, B', 4)
p140, p141, p142, p143, p144, P140A, P140B = Polygon(K', P130B, 4)
lista2 = Sequence(Sequence[Polygon[Translate[P14, Vector[(s * u1) + (t * v1)]], Translate[D, Vector[(s * u1) + (t * v1)]], Translate[P51, Vector[(s * u1) + (t * v1)]]], s, (-m), m], t, (-n), n)
lista3 = Sequence(Sequence[Polygon[Translate[P13, Vector[(s * u1) + (t * v1)]], Translate[C, Vector[(s * u1) + (t * v1)]], Translate[P61, Vector[(s * u1) + (t * v1)]]], s, (-m), m], t, (-n), n)
lista4 = Sequence(Sequence[Polygon[Translate[A, Vector[(s * u2) + (t * v2)]], Translate[B, Vector[(s * u2) + (t * v2)]], Translate[P71, Vector[(s * u2) + (t * v2)]]], s, (-m), m], t, (-n), n)
lista5 = Sequence(Sequence[Polygon[Translate[B, Vector[(s * u2) + (t * v2)]], Translate[F, Vector[(s * u2) + (t * v2)]], Translate[P81, Vector[(s * u2) + (t * v2)]]], s, (-m), m], t, (-n), n)
lista6 = Sequence(Sequence[Polygon[Translate[A, Vector[(s * u3) + (t * v3)]], Translate[B, Vector[(s * u3) + (t * v3)]], Translate[P110A, Vector[(s * u3) + (t * v3)]], Translate[P110B, Vector[(s * u3) + (t * v3)]]], s, (-m), m], t, (-n), n)
lista7 = Sequence(Sequence[Polygon[Translate[K', Vector[(s * u3) + (t * v3)]], Translate[P120A, Vector[(s * u3) + (t * v3)]], Translate[P120B, Vector[(s * u3) + (t * v3)]], Translate[P110B, Vector[(s * u3) + (t * v3)]]], s, (-m), m], t, (-n), n)
H = (-9.06, 2.06)
H': H
vel1 = If(mosaico ≟ 2, 0, 1)
vel2: 1 - vel1
lista1 = Sequence(Sequence[Polygon[Translate[A, Vector[(s * u1) + (t * v1)]], Translate[B, Vector[(s * u1) + (t * v1)]], Translate[P11, Vector[(s * u1) + (t * v1)]], Translate[P12, Vector[(s * u1) + (t * v1)]], Translate[P13, Vector[(s * u1) + (t * v1)]], Translate[P14, Vector[(s * u1) + (t * v1)]]], s, (-m), m], t, (-n), n)
nada = 1.8 (slider from -5 to 5, step 0.1)
texto1: "mosaico = " + mosaico