Centrar

Rotar cierto ángulo

Reflexión con desplazamiento (2)

Reflexión con desplazamiento (1)

Celda primitiva

Aplicar simetrías

Azulejo

Vectores de traslación

Centros de rotación

Ejes de reflexión

Copiar parte del mosaico

Dibujo libre

Rastro

Color manual

centrar = false
yT = -0.38
xT = 6.8 (slider from 1.72 to 20, step 0.1)
TT0: (xT, yT)
yQ = 0.96
xQ = 9.040000000000001 (slider from 2.26 to 20, step 0.01)
A = (6.8, -0.88)
B0 = (0.44, 2.2)
F = Point(Segment[B0 + (0, 1), B0 + (0, 2.3)])
A0 = (-1.4, 2.2)
Q: Corner[pincel, 1] + (0.05, 0)
B: A + B0 - A0
u = Vector(A, B)
J: F + A0 - B0
C: A + J - A0
v = Vector(A, C)
I: A0 - u + (3 * v / 2)
z = Vector(A0, I - v + u)
rAC = Line(A, C)
k = 3 (slider from 0 to 20, step 1)
CRotLat: (J + A0) / 2
CRotLat': CRotLat + A - A0
CRot: J
CRot': CRot + A - A0
ejeH = Segment(CRot' - u, CRot' + u)
xR = 7.58 (slider from 2.3 to 20, step 0.1)
yR = 1.08
R0: (xR, yR)
xF = 0.72 (slider from -0.06 to 0.92, step 0.01)
yF = 3.44 (slider from 3.337 to 4.04, step 0.01)
J2 = Mirror(B0, F)
C2: A + J2 - A0
R: R0 - (0.78, 1.47)
rota = false
fi = 1.618033988749895
E = (-2.58, -2.3000000000000003)
d = Circle(E, 1 / fi)
G = Point(d)
β0 = Angle(E + (0.5, 0), E, G)
β = If(rota, round(β0), 0°)
H = (0.2, -4.88)
A1 = 1
A2 = 2
xGoma = -0.9 (slider from -1.4 to -0.9, step 0.01)
yGoma = -1.7 (slider from -2 to -1.7, step 0.01)
azulM = 22 (slider from 0 to 100, step 1)
rojoM = 70 (slider from 0 to 100, step 1)
verdeM = 54 (slider from 0 to 100, step 1)
reflejoD = false
reflejoH = false
motivo = true
isometrías = false
patrón = true
vectores = false
rotación = false
reflexión = false
copia = false
libre = false
rastro = false
manual = false
α = Angle(B0, A0, J)
rAB = Line(A, B)
a = Line(A, C)
b = Line(A, B)
qx = Line(Q, a)
qy = Line(Q, b)
listaP = Sequence(Sequence[Q + ((s * 2) * u) - (t * v), s, (-k), k], t, (-((2 * k))), (2 * k))
Qy = Intersect(a, qy)
Qx = Intersect(b, qx)
PuntoGoma: (xGoma, yGoma)
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23: (2 * A22) - A21
A24: (2 * A23) - A22
A25: (2 * A24) - A23
A26: (2 * A25) - A24
A27: (2 * A26) - A25
A28: (2 * A27) - A26
A29: (2 * A28) - A27
A30: (2 * A29) - A28
A31: (2 * A30) - A29
A32: (2 * A31) - A30
A33: (2 * A32) - A31
A34: (2 * A33) - A32
A35: (2 * A34) - A33
A36: (2 * A35) - A34
A37: (2 * A36) - A35
A38: (2 * A37) - A36
A39: (2 * A38) - A37
A40: (2 * A39) - A38
A41: (2 * A40) - A39
A42: (2 * A41) - A40
A43: (2 * A42) - A41
A44: (2 * A43) - A42
A45: (2 * A44) - A43
A46: (2 * A45) - A44
A47: (2 * A46) - A45
A48: (2 * A47) - A46
B1 = Element(Element[listaP, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
B2 = Element(Element[listaP, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
B3 = Element(Element[listaP, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
B4 = Element(Element[listaP, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
B5 = Element(Element[listaP, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
B6 = Element(Element[listaP, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
B7 = Element(Element[listaP, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
B8 = Element(Element[listaP, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
B9 = Element(Element[listaP, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B10 = Element(Element[listaP, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
B11 = Element(Element[listaP, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
B12 = Element(Element[listaP, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
B13 = Element(Element[listaP, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
B14 = Element(Element[listaP, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
B15 = Element(Element[listaP, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
B16 = Element(Element[listaP, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
B17 = Element(Element[listaP, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
B18 = Element(Element[listaP, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
B19 = Element(Element[listaP, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
B20 = Element(Element[listaP, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
B21 = Element(Element[listaP, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
B22 = Element(Element[listaP, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
B23 = Element(Element[listaP, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
B24 = Element(Element[listaP, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
B25 = Element(Element[listaP, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
B26 = Element(Element[listaP, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
B27 = Element(Element[listaP, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
B28 = Element(Element[listaP, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
B29 = Element(Element[listaP, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
B30 = Element(Element[listaP, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
B31 = Element(Element[listaP, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
B32 = Element(Element[listaP, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
B33 = Element(Element[listaP, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
B34 = Element(Element[listaP, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
B35 = Element(Element[listaP, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
B36 = Element(Element[listaP, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
B37 = Element(Element[listaP, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
B38 = Element(Element[listaP, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
B39 = Element(Element[listaP, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
B40 = Element(Element[listaP, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
B41 = Element(Element[listaP, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
B42 = Element(Element[listaP, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
B43 = Element(Element[listaP, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
B44 = Element(Element[listaP, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
B45 = Element(Element[listaP, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
B46 = Element(Element[listaP, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
B47 = Element(Element[listaP, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
B48 = Element(Element[listaP, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
c: {Distance[Q, rAC] / Distance[B, rAC], Distance[Q, rAB] / Distance[C, rAB], Distance[Q, B] / Distance[C, B]}
rojoA: Distance[Q, rAC] / Distance[B, rAC]
verdeA: Distance[Q, rAB] / Distance[C, rAB]
azulA: Distance[Q, B] / Distance[C, B]
rojo = If(manual, rojoM / 100, rojoA)
verde = If(manual, verdeM / 100, verdeA)
azul = If(manual, azulM / 100, azulA)
muestraColor: {Polygon[H, H + (1, 0), H + (1, fi), H + (0, fi)]}
texto1: "% Rojo = " + rojoM + "

% Verde = " + verdeM + "

% Azul = " + azulM
test: (AffineRatio[A, B, Qx] ≥ 0) ∧ (AffineRatio[A, B, Qx] ≤ 1) ∧ (AffineRatio[A, C, Qy] ≥ 0) ∧ (AffineRatio[A, C, Qy] ≤ 1) ∧ libre ∧ rastro
celda, celdaa, celdab, celdac, celdae = Polygon(A0, B0, F, J)
texto2: "Ángulo rotado = " + β
F2 = Mirror(A0, CRot)
J' = Mirror(J, CRot)
F' = Mirror(F, CRot)
P' = If(β > 0, Rotate[CRot', β, R], R)
D: (B + C) / 2
T = If(centrar, CRot', TT0)
a1 = Segment(T + (3 * v / 2), T - (3 * v / 2))
QR = Translate(Mirror[Q, a1], z)
listaP2 = Sequence(Sequence[QR + ((s * 2) * u) - (t * v), s, (-k), k], t, (-((2 * k))), (2 * k))
D1 = Element(Element[listaP2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
D2 = Element(Element[listaP2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
D3 = Element(Element[listaP2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
D4 = Element(Element[listaP2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
D5 = Element(Element[listaP2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
D6 = Element(Element[listaP2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
D7 = Element(Element[listaP2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
D8 = Element(Element[listaP2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
D9 = Element(Element[listaP2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
D10 = Element(Element[listaP2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
D11 = Element(Element[listaP2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
D12 = Element(Element[listaP2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
D13 = Element(Element[listaP2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
D14 = Element(Element[listaP2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
D15 = Element(Element[listaP2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
D16 = Element(Element[listaP2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
D17 = Element(Element[listaP2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
D18 = Element(Element[listaP2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
D19 = Element(Element[listaP2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
D20 = Element(Element[listaP2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
D21 = Element(Element[listaP2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
D22 = Element(Element[listaP2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
D23 = Element(Element[listaP2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
D24 = Element(Element[listaP2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
D25 = Element(Element[listaP2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
D26 = Element(Element[listaP2, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
D27 = Element(Element[listaP2, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
D28 = Element(Element[listaP2, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
D29 = Element(Element[listaP2, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
D30 = Element(Element[listaP2, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
D31 = Element(Element[listaP2, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
D32 = Element(Element[listaP2, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
D33 = Element(Element[listaP2, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
D34 = Element(Element[listaP2, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
D35 = Element(Element[listaP2, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
D37 = Element(Element[listaP2, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
D36 = Element(Element[listaP2, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
D38 = Element(Element[listaP2, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
D39 = Element(Element[listaP2, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
D40 = Element(Element[listaP2, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
D41 = Element(Element[listaP2, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
D42 = Element(Element[listaP2, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
D43 = Element(Element[listaP2, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
D44 = Element(Element[listaP2, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
D45 = Element(Element[listaP2, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
D46 = Element(Element[listaP2, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
D47 = Element(Element[listaP2, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
D48 = Element(Element[listaP2, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
hayAxiales = true
w = Vector(CRotLat', T)
xT1 = 10.52 (slider from 1.72 to 20, step 0.1)
yT1 = 0.62
T1: (xT1, yT1)
polígono2, f, g, h, i = Polygon(I, I + u, I + u - v, I - v)
cisne2 = Translate(Mirror[cisne1, rAC], z)
listaCRef2 = Sequence(Translate[Line[CRot', CRot' + (1, 0)], Vector[(s * v)]], s, (-((2 * k))), (2 * k))
rectas1 = Sequence(Line[A + ((s * 2) * u) - u, A + ((s * 2) * u) - (C - A) - u], s, (-k), k)
listaCRot2 = Sequence(Sequence[Translate[CRotLat', Vector[(s * u) - (t * v)]], s, (-((2 * k))), (2 * k)], t, (-((2 * k))), (2 * k))
listaCRot = Sequence(Sequence[Translate[CRotLat', Vector[(s * u) + (t * v)]], s, -1, 1], t, 0, 1)
listaCDesp2 = Sequence(Translate[Line[CRot', CRot' + (0, 1)], Vector[(s * u)]], s, (-((2 * k))), (2 * k))
ejeV = Segment(A, A + (2 * v))
listaCisne1 = Sequence(Sequence[Translate[cisne1, Vector[((s * 2) * u) - (t * v)]], s, (-k), k], t, (-((2 * k))), (2 * k))
listaCisne2 = Sequence(Sequence[Translate[cisne2, Vector[((s * 2) * u) - (t * v)]], s, (-k), k], t, (-((2 * k))), (2 * k))
patron: {Polygon[B, A - u, A - u + v, B + v]}
rectas2 = Sequence(Line[A - (s * v), A + B - A - (s * v)], s, (-((2 * k))), (2 * k))
t = Segment(A0, I + u)
vectoresT1: {Vector[T1 - u, T1 + u], Vector[T1 + u, T1 - u], Vector[T1 - v / 2, T1 + v / 2], Vector[T1 + v / 2, T1 - v / 2]}
baseCopia: {Polygon[Rotate[T - (3 * u) - (3 * v / 2), β, R], Rotate[T + (3 * u) - (3 * v / 2), β, R], Rotate[T + (3 * u) + (3 * v / 2), β, R], Rotate[T - (3 * u) + (3 * v / 2), β, R]]}
listaCisne1C = Sequence(Sequence[Rotate[Translate[cisne1, Vector[w + ((s * 2) * u) - (t * v)]], β, R], s, -1, 1], t, -1, 1)
listaCisne2C = Sequence(Sequence[Rotate[Translate[cisne2, Vector[w + ((s * 2) * u) - (t * v)]], β, R], s, -1, 1], t, -1, 1)
A49: (2 * A48) - A47
A50: (2 * A49) - A48
A51: (2 * A50) - A49
A52: (2 * A51) - A50
A53: (2 * A52) - A51
A54: (2 * A53) - A52
A55: (2 * A54) - A53
A56: (2 * A55) - A54
A57: (2 * A56) - A55
A58: (2 * A57) - A56
A59: (2 * A58) - A57
A60: (2 * A59) - A58
A61: (2 * A60) - A59
A62: (2 * A61) - A60
A63: (2 * A62) - A61
A64: (2 * A63) - A62
A65: (2 * A64) - A63
A66: (2 * A65) - A64
A67: (2 * A66) - A65
A68: (2 * A67) - A66
A69: (2 * A68) - A67
A70: (2 * A69) - A68
A71: (2 * A70) - A69
A72: (2 * A71) - A70
A73: (2 * A72) - A71
A74: (2 * A73) - A72
A75: (2 * A74) - A73
A76: (2 * A75) - A74
A77: (2 * A76) - A75
A78: (2 * A77) - A76
A79: (2 * A78) - A77
A80: (2 * A79) - A78
A81: (2 * A80) - A79
A82: (2 * A81) - A80
A83: (2 * A82) - A81
A84: (2 * A83) - A82
A85: (2 * A84) - A83
A86: (2 * A85) - A84
A87: (2 * A86) - A85
A88: (2 * A87) - A86
A89: (2 * A88) - A87
A90: (2 * A89) - A88
B49 = Element(Element[listaP, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
B50 = Element(Element[listaP, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
B51 = Element(Element[listaP, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
B52 = Element(Element[listaP, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
B53 = Element(Element[listaP, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
B54 = Element(Element[listaP, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
B55 = Element(Element[listaP, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
B56 = Element(Element[listaP, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
B57 = Element(Element[listaP, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
B58 = Element(Element[listaP, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
B59 = Element(Element[listaP, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
B60 = Element(Element[listaP, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
B61 = Element(Element[listaP, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
B62 = Element(Element[listaP, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
B63 = Element(Element[listaP, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
B64 = Element(Element[listaP, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
B65 = Element(Element[listaP, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
B66 = Element(Element[listaP, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
B67 = Element(Element[listaP, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
B68 = Element(Element[listaP, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
B69 = Element(Element[listaP, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
B70 = Element(Element[listaP, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
B71 = Element(Element[listaP, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
B72 = Element(Element[listaP, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
B73 = Element(Element[listaP, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
B74 = Element(Element[listaP, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
B75 = Element(Element[listaP, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
B76 = Element(Element[listaP, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
B77 = Element(Element[listaP, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
B78 = Element(Element[listaP, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
B79 = Element(Element[listaP, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
B80 = Element(Element[listaP, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
B81 = Element(Element[listaP, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
B82 = Element(Element[listaP, 1 + Div[A82, (2 * k) + 1]], 1 + Mod[A82, (2 * k) + 1])
B83 = Element(Element[listaP, 1 + Div[A83, (2 * k) + 1]], 1 + Mod[A83, (2 * k) + 1])
B84 = Element(Element[listaP, 1 + Div[A84, (2 * k) + 1]], 1 + Mod[A84, (2 * k) + 1])
B85 = Element(Element[listaP, 1 + Div[A85, (2 * k) + 1]], 1 + Mod[A85, (2 * k) + 1])
B86 = Element(Element[listaP, 1 + Div[A86, (2 * k) + 1]], 1 + Mod[A86, (2 * k) + 1])
B87 = Element(Element[listaP, 1 + Div[A87, (2 * k) + 1]], 1 + Mod[A87, (2 * k) + 1])
B88 = Element(Element[listaP, 1 + Div[A88, (2 * k) + 1]], 1 + Mod[A88, (2 * k) + 1])
B89 = Element(Element[listaP, 1 + Div[A89, (2 * k) + 1]], 1 + Mod[A89, (2 * k) + 1])
B90 = Element(Element[listaP, 1 + Div[A90, (2 * k) + 1]], 1 + Mod[A90, (2 * k) + 1])
D49 = Element(Element[listaP2, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
D50 = Element(Element[listaP2, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
D51 = Element(Element[listaP2, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
D52 = Element(Element[listaP2, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
D53 = Element(Element[listaP2, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
D54 = Element(Element[listaP2, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
D55 = Element(Element[listaP2, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
D56 = Element(Element[listaP2, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
D57 = Element(Element[listaP2, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
D58 = Element(Element[listaP2, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
D59 = Element(Element[listaP2, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
D60 = Element(Element[listaP2, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
D61 = Element(Element[listaP2, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
D62 = Element(Element[listaP2, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
D63 = Element(Element[listaP2, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
D64 = Element(Element[listaP2, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
D65 = Element(Element[listaP2, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
D66 = Element(Element[listaP2, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
D67 = Element(Element[listaP2, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
D68 = Element(Element[listaP2, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
D69 = Element(Element[listaP2, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
D70 = Element(Element[listaP2, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
D71 = Element(Element[listaP2, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
D72 = Element(Element[listaP2, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
D73 = Element(Element[listaP2, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
D74 = Element(Element[listaP2, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
D75 = Element(Element[listaP2, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
D76 = Element(Element[listaP2, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
D77 = Element(Element[listaP2, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
D78 = Element(Element[listaP2, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
D79 = Element(Element[listaP2, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
D80 = Element(Element[listaP2, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
D81 = Element(Element[listaP2, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
D82 = Element(Element[listaP2, 1 + Div[A82, (2 * k) + 1]], 1 + Mod[A82, (2 * k) + 1])
D83 = Element(Element[listaP2, 1 + Div[A83, (2 * k) + 1]], 1 + Mod[A83, (2 * k) + 1])
D84 = Element(Element[listaP2, 1 + Div[A84, (2 * k) + 1]], 1 + Mod[A84, (2 * k) + 1])
D85 = Element(Element[listaP2, 1 + Div[A85, (2 * k) + 1]], 1 + Mod[A85, (2 * k) + 1])
D86 = Element(Element[listaP2, 1 + Div[A86, (2 * k) + 1]], 1 + Mod[A86, (2 * k) + 1])
D87 = Element(Element[listaP2, 1 + Div[A87, (2 * k) + 1]], 1 + Mod[A87, (2 * k) + 1])
D88 = Element(Element[listaP2, 1 + Div[A88, (2 * k) + 1]], 1 + Mod[A88, (2 * k) + 1])
D89 = Element(Element[listaP2, 1 + Div[A89, (2 * k) + 1]], 1 + Mod[A89, (2 * k) + 1])
D90 = Element(Element[listaP2, 1 + Div[A90, (2 * k) + 1]], 1 + Mod[A90, (2 * k) + 1])
cisne0 = Translate(cisne1, Vector[A, A0])
cisne02 = Translate(cisne2, Vector[A, A0])
baseCopiaV: {Polygon[T - (3 * u) - (3 * v / 2) + z, T - (2 * u) - (3 * v / 2) + z, T - (2 * u) - (3 * v / 2), T - u - (3 * v / 2), T - u - (3 * v / 2) + z, T - (3 * v / 2) + z, T - (3 * v / 2), T - (3 * v / 2) + u, T - (3 * v / 2) + u + z, T - (3 * v / 2) + (2 * u) + z, T - (3 * v / 2) + (2 * u), T - (3 * v / 2) + (3 * u), T + (3 * v / 2) + (3 * u), T + (3 * v / 2) + (2 * u), T + (3 * v / 2) + (2 * u) + z, T + (3 * v / 2) + u + z, T + (3 * v / 2) + u, T + (3 * v / 2), T + (3 * v / 2) + z, T + (3 * v / 2) + z - u, T + (3 * v / 2) - u, T + (3 * v / 2) - (2 * u), T + (3 * v / 2) - (2 * u) + z, T + (3 * v / 2) + z - (3 * u)]}
a2 = Segment(T + (3 * v / 2) + u, T - (3 * v / 2) + u)
PPP: (xQ, yQ)