Centrar

Rotar cierto ángulo

Reflejar en la tercera dirección

Reflejar en la segunda dirección

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.8199999999999988
xT = 7.78 (slider from 1.72 to 20, step 0.1)
TT0: (xT, yT)
A0 = (-2.6, 2.2)
B01 = (-0.64503, 2.2)
B02 = (-0.28533, 2.2)
B0 = Point(Segment[B01, B02])
F = Rotate(A0, 240°, B0)
J: F + A0 - B0
CRot: J
A = (6.8, -0.88)
CRot': CRot + A - A0
xQ = 8.58 (slider from 2.26 to 20, step 0.01)
yQ = 1.619999999999999
Q: Corner[pincel, 1] + (0.05, 0)
B: A + B0 - A0
C1: B + F - B0
QR = Mirror(Q, Line[CRot', B])
F' = Rotate(F, 120°, J)
C3: A + F' - A0
listaCDib = Sequence(Sequence[Sequence[Translate[CRot', Vector[(s * (C3 - A)) + (t * (C1 - A)) + (h * (C3 - C1))]], s, -1, 2, 1], t, -2, 2, 1], h, -2, 1, 1)
listaCRotUni = Join(Join[listaCDib])
e = Ray(A0, Rotate[A0 + (1, 0), 30°, A0])
M = Point(e)
L = Point(e)
f = Segment(L, M)
k = 3 (slider from 0 to 20, step 1)
u = Vector(A, B)
C: A + J - A0
z = Vector(B, C)
v = Vector(A, C)
yR = 2.299999999999999
xR = 8.56 (slider from 2.3 to 20, step 0.1)
R0: (xR, yR)
E = (-2.58, -2.3000000000000003)
fi = 1.618033988749895
d = Circle(E, 1 / fi)
G = Point(d)
β0 = Angle(E + (0.5, 0), E, G)
rota = false
β = If(rota, round(β0), 0°)
R: R0 - (0.78, 1.47)
yF = 4.04 (slider from 3.337 to 4.04, step 0.01)
xF = -0.06 (slider from -0.06 to 0.92, step 0.01)
J2 = Rotate(B0, 120°, J)
C2: A + J2 - A0
H = (0.2, -4.88)
A1 = 1
A2 = 2
xGoma = -0.98 (slider from -1.4 to -0.9, step 0.01)
yGoma = -1.8200000000000012 (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)
rAC = Line(A, C)
a = Line(A, C)
b = Line(A, B)
qx = Line(Q, a)
qy = Line(Q, b)
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
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
celda, m, n, p = Polygon(B0, F, J)
texto2: "Ángulo rotado = " + β
cisne2 = Rotate(cisne1, 120°, CRot')
cisne3 = Rotate(cisne1, 240°, CRot')
cisne4 = Mirror(cisne1, Line[B, CRot'])
cisne5 = Rotate(cisne4, 120°, CRot')
cisne6 = Rotate(cisne4, 240°, CRot')
P' = If(β > 0, Rotate[CRot', β, R], R)
D: (A + B + C) / 3
I: A0 + J2 - F
C4: A + I - A0
patron: {Polygon[A, B, C1, C2, C3, C4]}
lista1 = Sequence(Sequence[Segment[A + ((3 * s) * (B - A)) + (t * (C3 - A)), B + ((3 * s) * (B - A)) + (t * (C3 - A))], s, (-k), k], t, (-k), k)
lista3 = Sequence(Sequence[Segment[A + ((3 * s) * (C4 - A)) + (t * (C2 - C4)), C4 + ((3 * s) * (C4 - A)) + (t * (C2 - C4))], s, (-k), k], t, (-k), k)
lista2 = Sequence(Sequence[Segment[C4 + ((3 * s) * (C3 - C4)) + (t * (B - C4)), C3 + ((3 * s) * (C3 - C4)) + (t * (B - C4))], s, (-k), k], t, (-k), k)
lista1b = Sequence(Sequence[Segment[C1 + ((3 * s) * (B - A)) + (t * (C3 - A)), C1 - A + B + ((3 * s) * (B - A)) + (t * (C3 - A))], s, (-k), k], t, (-k), k)
lista2b = Sequence(Sequence[Segment[C2 + ((3 * s) * (C3 - C4)) + (t * (B - C4)), C2 - C4 + C3 + ((3 * s) * (C3 - C4)) + (t * (B - C4))], s, (-k), k], t, (-k), k)
lista3b = Sequence(Sequence[Segment[C3 + ((3 * s) * (C4 - A)) + (t * (C2 - C4)), C3 - A + C4 + ((3 * s) * (C4 - A)) + (t * (C2 - C4))], s, (-k), k], t, (-k), k)
F2 = Mirror(A0, CRot)
hayAxiales = true
listaCisne1 = Sequence(Sequence[Translate[cisne1, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), (2 * k)], t, (-k), (2 * k))
listaCisne2 = Sequence(Sequence[Translate[cisne2, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), k], t, (-(k + 1)), k + 1)
listaCisne3 = Sequence(Sequence[Translate[cisne3, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), k], t, (-(k + 1)), k + 1)
listaCisne4 = Sequence(Sequence[Translate[cisne4, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), k], t, (-k), (2 * k))
listaCisne5 = Sequence(Sequence[Translate[cisne5, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), k], t, (-k), (2 * k))
listaCisne6 = Sequence(Sequence[Translate[cisne6, Vector[((3 * s) * (B - A)) - (t * (C4 - B))]], s, (-k), k], t, (-k), (2 * k))
listaP1 = Sequence(Q + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
B1 = Element(listaP1, A1)
B2 = Element(listaP1, A2)
B3 = Element(listaP1, A3)
B4 = Element(listaP1, A4)
B5 = Element(listaP1, A5)
B6 = Element(listaP1, A6)
B7 = Element(listaP1, A7)
B8 = Element(listaP1, A8)
B9 = Element(listaP1, A9)
B10 = Element(listaP1, A10)
B11 = Element(listaP1, A11)
B12 = Element(listaP1, A12)
B13 = Element(listaP1, A13)
B14 = Element(listaP1, A14)
B15 = Element(listaP1, A15)
B16 = Element(listaP1, A16)
B17 = Element(listaP1, A17)
B18 = Element(listaP1, A18)
B19 = Element(listaP1, A19)
B20 = Element(listaP1, A20)
B21 = Element(listaP1, A21)
B22 = Element(listaP1, A22)
B23 = Element(listaP1, A23)
B24 = Element(listaP1, A24)
B25 = Element(listaP1, A25)
B26 = Element(listaP1, A26)
B27 = Element(listaP1, A27)
B28 = Element(listaP1, A28)
B29 = Element(listaP1, A29)
B30 = Element(listaP1, A30)
B31 = Element(listaP1, A31)
B32 = Element(listaP1, A32)
B33 = Element(listaP1, A33)
B34 = Element(listaP1, A34)
B35 = Element(listaP1, A35)
B36 = Element(listaP1, A36)
B37 = Element(listaP1, A37)
B38 = Element(listaP1, A38)
B39 = Element(listaP1, A39)
B40 = Element(listaP1, A40)
B41 = Element(listaP1, A41)
B42 = Element(listaP1, A42)
B43 = Element(listaP1, A43)
B44 = Element(listaP1, A44)
B45 = Element(listaP1, A45)
B46 = Element(listaP1, A46)
B47 = Element(listaP1, A47)
B48 = Element(listaP1, A48)
listaP2 = Sequence(QR + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
D1 = Element(listaP2, A1)
D2 = Element(listaP2, A2)
D3 = Element(listaP2, A3)
D4 = Element(listaP2, A4)
D5 = Element(listaP2, A5)
D6 = Element(listaP2, A6)
D7 = Element(listaP2, A7)
D8 = Element(listaP2, A8)
D9 = Element(listaP2, A9)
D10 = Element(listaP2, A10)
D11 = Element(listaP2, A11)
D12 = Element(listaP2, A12)
D13 = Element(listaP2, A13)
D14 = Element(listaP2, A14)
D15 = Element(listaP2, A15)
D16 = Element(listaP2, A16)
D17 = Element(listaP2, A17)
D18 = Element(listaP2, A18)
D19 = Element(listaP2, A19)
D20 = Element(listaP2, A20)
D21 = Element(listaP2, A21)
D22 = Element(listaP2, A22)
D23 = Element(listaP2, A23)
D24 = Element(listaP2, A24)
D25 = Element(listaP2, A25)
D26 = Element(listaP2, A26)
D27 = Element(listaP2, A27)
D28 = Element(listaP2, A28)
D29 = Element(listaP2, A29)
D30 = Element(listaP2, A30)
D31 = Element(listaP2, A31)
D32 = Element(listaP2, A32)
D33 = Element(listaP2, A33)
D34 = Element(listaP2, A34)
D35 = Element(listaP2, A35)
D36 = Element(listaP2, A36)
D37 = Element(listaP2, A37)
D38 = Element(listaP2, A38)
D39 = Element(listaP2, A39)
D40 = Element(listaP2, A40)
D41 = Element(listaP2, A41)
D42 = Element(listaP2, A42)
D43 = Element(listaP2, A43)
D44 = Element(listaP2, A44)
D45 = Element(listaP2, A45)
D46 = Element(listaP2, A46)
D47 = Element(listaP2, A47)
D48 = Element(listaP2, A48)
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
B49 = Element(listaP1, A49)
B50 = Element(listaP1, A50)
B51 = Element(listaP1, A51)
B52 = Element(listaP1, A52)
B53 = Element(listaP1, A53)
B54 = Element(listaP1, A54)
B55 = Element(listaP1, A55)
B56 = Element(listaP1, A56)
B57 = Element(listaP1, A57)
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
B58 = Element(listaP1, A58)
B59 = Element(listaP1, A59)
B60 = Element(listaP1, A60)
B61 = Element(listaP1, A61)
B62 = Element(listaP1, A62)
B63 = Element(listaP1, A63)
B64 = Element(listaP1, A64)
B65 = Element(listaP1, A65)
B66 = Element(listaP1, A66)
B67 = Element(listaP1, A67)
B68 = Element(listaP1, A68)
B69 = Element(listaP1, A69)
B70 = Element(listaP1, A70)
D49 = Element(listaP2, A49)
D50 = Element(listaP2, A50)
D51 = Element(listaP2, A51)
D52 = Element(listaP2, A52)
D53 = Element(listaP2, A53)
D54 = Element(listaP2, A54)
D55 = Element(listaP2, A55)
D56 = Element(listaP2, A56)
D57 = Element(listaP2, A57)
D58 = Element(listaP2, A58)
D59 = Element(listaP2, A59)
D60 = Element(listaP2, A60)
D61 = Element(listaP2, A61)
D62 = Element(listaP2, A62)
D63 = Element(listaP2, A63)
D64 = Element(listaP2, A64)
D65 = Element(listaP2, A65)
D66 = Element(listaP2, A66)
D67 = Element(listaP2, A67)
D68 = Element(listaP2, A68)
D69 = Element(listaP2, A69)
D70 = Element(listaP2, A70)
listaP3 = Sequence(Rotate[Q, 120°, CRot'] + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
E1 = Element(listaP3, A1)
E2 = Element(listaP3, A2)
E3 = Element(listaP3, A3)
E4 = Element(listaP3, A4)
E5 = Element(listaP3, A5)
E6 = Element(listaP3, A6)
E7 = Element(listaP3, A7)
E8 = Element(listaP3, A8)
E9 = Element(listaP3, A9)
E10 = Element(listaP3, A10)
E11 = Element(listaP3, A11)
E12 = Element(listaP3, A12)
E13 = Element(listaP3, A13)
E14 = Element(listaP3, A14)
E15 = Element(listaP3, A15)
E16 = Element(listaP3, A16)
E17 = Element(listaP3, A17)
E18 = Element(listaP3, A18)
E19 = Element(listaP3, A19)
E20 = Element(listaP3, A20)
E21 = Element(listaP3, A21)
E22 = Element(listaP3, A22)
E23 = Element(listaP3, A23)
E24 = Element(listaP3, A24)
E25 = Element(listaP3, A25)
E26 = Element(listaP3, A26)
E27 = Element(listaP3, A27)
E28 = Element(listaP3, A28)
E29 = Element(listaP3, A29)
E30 = Element(listaP3, A30)
E31 = Element(listaP3, A31)
E32 = Element(listaP3, A32)
E33 = Element(listaP3, A33)
E34 = Element(listaP3, A34)
E35 = Element(listaP3, A35)
E36 = Element(listaP3, A36)
E37 = Element(listaP3, A37)
E38 = Element(listaP3, A38)
E39 = Element(listaP3, A39)
E40 = Element(listaP3, A40)
E41 = Element(listaP3, A41)
E42 = Element(listaP3, A42)
E43 = Element(listaP3, A43)
E44 = Element(listaP3, A44)
E45 = Element(listaP3, A45)
E46 = Element(listaP3, A46)
E47 = Element(listaP3, A47)
E48 = Element(listaP3, A48)
E49 = Element(listaP3, A49)
E50 = Element(listaP3, A50)
E51 = Element(listaP3, A51)
E52 = Element(listaP3, A52)
E53 = Element(listaP3, A53)
E54 = Element(listaP3, A54)
E55 = Element(listaP3, A55)
E56 = Element(listaP3, A56)
E57 = Element(listaP3, A57)
E58 = Element(listaP3, A58)
E59 = Element(listaP3, A59)
E60 = Element(listaP3, A60)
E61 = Element(listaP3, A61)
E62 = Element(listaP3, A62)
E63 = Element(listaP3, A63)
E64 = Element(listaP3, A64)
E65 = Element(listaP3, A65)
E66 = Element(listaP3, A66)
E67 = Element(listaP3, A67)
E68 = Element(listaP3, A68)
E69 = Element(listaP3, A69)
E70 = Element(listaP3, A70)
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
B71 = Element(listaP1, A71)
B72 = Element(listaP1, A72)
B73 = Element(listaP1, A73)
B74 = Element(listaP1, A74)
B75 = Element(listaP1, A75)
B76 = Element(listaP1, A76)
B77 = Element(listaP1, A77)
B78 = Element(listaP1, A78)
B79 = Element(listaP1, A79)
B80 = Element(listaP1, A80)
D71 = Element(listaP2, A71)
D72 = Element(listaP2, A72)
D73 = Element(listaP2, A73)
D74 = Element(listaP2, A74)
D75 = Element(listaP2, A75)
D76 = Element(listaP2, A76)
D77 = Element(listaP2, A77)
D78 = Element(listaP2, A78)
D79 = Element(listaP2, A79)
D80 = Element(listaP2, A80)
E71 = Element(listaP3, A71)
E72 = Element(listaP3, A72)
E73 = Element(listaP3, A73)
E74 = Element(listaP3, A74)
E75 = Element(listaP3, A75)
E76 = Element(listaP3, A76)
E77 = Element(listaP3, A77)
E78 = Element(listaP3, A78)
E79 = Element(listaP3, A79)
E80 = Element(listaP3, A80)
T = If(centrar, CRot', TT0)
xT1 = 6.8 (slider from 1.72 to 20, step 0.1)
yT1 = 0.7999999999999989
T1: (xT1, yT1)
w = Vector(CRot', T)
a2 = Segment(T - (2 * u), T + (2 * u))
vectoresT1: {Vector[T1 - (I - B0) / 2, T1 + (I - B0) / 2], Vector[T1 + (I - B0) / 2, T1 - (I - B0) / 2], Vector[T1 - (F - A0) / 2, T1 + (F - A0) / 2], Vector[T1 + (F - A0) / 2, T1 - (F - A0) / 2], Polygon[T1 - (I - B0) / 2 - (F - A0) / 2, T1 - (I - B0) / 2 + (F - A0) / 2, T1 + (I - B0) / 2 + (F - A0) / 2, T1 + (I - B0) / 2 - (F - A0) / 2]}
baseCopia: {Polygon[Rotate[A + w - v, β, R], Rotate[B + w - (2 * v), β, R], Rotate[A + w - (2 * z), β, R], Rotate[B + w - z, β, R], Rotate[B + w + v - (2 * z), β, R], Rotate[B + w + (2 * u), β, R], Rotate[B + w - z + (2 * v), β, R], Rotate[A + w + (2 * v) + (2 * u), β, R], Rotate[B + w + (3 * v), β, R], Rotate[A + w + (3 * v), β, R], Rotate[B + w + (2 * z) + (2 * v), β, R], Rotate[A + w + (2 * v) + (2 * z), β, R], Rotate[B + w + (3 * z), β, R], Rotate[A + w + (3 * z), β, R], Rotate[B + w + (2 * z) - (2 * u), β, R], Rotate[A + w + z - u, β, R], Rotate[A + w - (2 * u), β, R], Rotate[A + w - v - u, β, R]]}
listaCisne1C: {Rotate[Translate[cisne1, w], β, R], Rotate[Translate[cisne1, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne1, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne1, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne1, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne1, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne1, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne2C: {Rotate[Translate[cisne2, w], β, R], Rotate[Translate[cisne2, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne2, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne2, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne2, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne2, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne2, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne3C: {Rotate[Translate[cisne3, w], β, R], Rotate[Translate[cisne3, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne3, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne3, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne3, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne3, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne3, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne1CH = Sequence(Mirror[Element[listaCisne1C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne1C])
listaCisne2CH = Sequence(Mirror[Element[listaCisne2C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne2C])
listaCisne3CH = Sequence(Mirror[Element[listaCisne3C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne3C])
polígono1, crot, a0, b0 = Polygon(A0, B0, CRot)
polígono2, g, h, i, s = Polygon(CRot + z, CRot + v, CRot + u, CRot)
polígono3, j, q, r, t = Polygon(F', I, A0, CRot)
listaCisne4C: {Rotate[Translate[cisne4, w], β, R], Rotate[Translate[cisne4, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne4, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne4, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne4, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne4, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne4, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne5C: {Rotate[Translate[cisne5, w], β, R], Rotate[Translate[cisne5, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne5, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne5, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne5, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne5, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne5, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne6C: {Rotate[Translate[cisne6, w], β, R], Rotate[Translate[cisne6, Vector[w + Vector[B - C4]]], β, R], Rotate[Translate[cisne6, Vector[w + Vector[C4 - B]]], β, R], Rotate[Translate[cisne6, Vector[w + Vector[C2 - B]]], β, R], Rotate[Translate[cisne6, Vector[w + Vector[C2 - C4]]], β, R], Rotate[Translate[cisne6, Vector[w + Vector[B - C2]]], β, R], Rotate[Translate[cisne6, Vector[w + Vector[C4 - C2]]], β, R]}
listaCisne4CH = Sequence(Mirror[Element[listaCisne4C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne4C])
listaCisne5CH = Sequence(Mirror[Element[listaCisne5C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne5C])
listaCisne6CH = Sequence(Mirror[Element[listaCisne6C, k], Line[T, T + (1, 0)]], k, 1, Length[listaCisne6C])
listaP4 = Sequence(Rotate[QR, 120°, CRot'] + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
listaP5 = Sequence(Rotate[Q, 240°, CRot'] + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
listaP6 = Sequence(Rotate[QR, 240°, CRot'] + Element[listaCRotUni, k] - CRot', k, 1, Length[listaCRotUni])
G1 = Element(listaP4, A1)
H1 = Element(listaP5, A1)
I1 = Element(listaP6, A1)
G2 = Element(listaP4, A2)
H2 = Element(listaP5, A2)
I2 = Element(listaP6, A2)
G3 = Element(listaP4, A3)
H3 = Element(listaP5, A3)
I3 = Element(listaP6, A3)
G4 = Element(listaP4, A4)
H4 = Element(listaP5, A4)
I4 = Element(listaP6, A4)
G5 = Element(listaP4, A5)
H5 = Element(listaP5, A5)
I5 = Element(listaP6, A5)
G6 = Element(listaP4, A6)
H6 = Element(listaP5, A6)
I6 = Element(listaP6, A6)
G7 = Element(listaP4, A7)
H7 = Element(listaP5, A7)
I7 = Element(listaP6, A7)
G8 = Element(listaP4, A8)
H8 = Element(listaP5, A8)
I8 = Element(listaP6, A8)
G9 = Element(listaP4, A9)
H9 = Element(listaP5, A9)
I9 = Element(listaP6, A9)
G10 = Element(listaP4, A10)
H10 = Element(listaP5, A10)
I10 = Element(listaP6, A10)
G11 = Element(listaP4, A11)
H11 = Element(listaP5, A11)
I11 = Element(listaP6, A11)
G12 = Element(listaP4, A12)
H12 = Element(listaP5, A12)
I12 = Element(listaP6, A12)
G13 = Element(listaP4, A13)
H13 = Element(listaP5, A13)
I13 = Element(listaP6, A13)
G14 = Element(listaP4, A14)
H14 = Element(listaP5, A14)
I14 = Element(listaP6, A14)
G15 = Element(listaP4, A15)
H15 = Element(listaP5, A15)
I15 = Element(listaP6, A15)
G16 = Element(listaP4, A16)
H16 = Element(listaP5, A16)
I16 = Element(listaP6, A16)
G17 = Element(listaP4, A17)
H17 = Element(listaP5, A17)
I17 = Element(listaP6, A17)
G18 = Element(listaP4, A18)
H18 = Element(listaP5, A18)
I18 = Element(listaP6, A18)
G19 = Element(listaP4, A19)
H19 = Element(listaP5, A19)
I19 = Element(listaP6, A19)
G20 = Element(listaP4, A20)
H20 = Element(listaP5, A20)
I20 = Element(listaP6, A20)
G21 = Element(listaP4, A21)
H21 = Element(listaP5, A21)
I21 = Element(listaP6, A21)
G22 = Element(listaP4, A22)
H22 = Element(listaP5, A22)
I22 = Element(listaP6, A22)
G23 = Element(listaP4, A23)
H23 = Element(listaP5, A23)
I23 = Element(listaP6, A23)
G24 = Element(listaP4, A24)
H24 = Element(listaP5, A24)
I24 = Element(listaP6, A24)
G25 = Element(listaP4, A25)
H25 = Element(listaP5, A25)
I25 = Element(listaP6, A25)
G26 = Element(listaP4, A26)
H26 = Element(listaP5, A26)
I26 = Element(listaP6, A26)
G27 = Element(listaP4, A27)
H27 = Element(listaP5, A27)
I27 = Element(listaP6, A27)
G28 = Element(listaP4, A28)
H28 = Element(listaP5, A28)
I28 = Element(listaP6, A28)
G29 = Element(listaP4, A29)
H29 = Element(listaP5, A29)
I29 = Element(listaP6, A29)
G30 = Element(listaP4, A30)
H30 = Element(listaP5, A30)
I30 = Element(listaP6, A30)
G31 = Element(listaP4, A31)
H31 = Element(listaP5, A31)
I31 = Element(listaP6, A31)
G32 = Element(listaP4, A32)
H32 = Element(listaP5, A32)
I32 = Element(listaP6, A32)
G33 = Element(listaP4, A33)
H33 = Element(listaP5, A33)
I33 = Element(listaP6, A33)
G34 = Element(listaP4, A34)
H34 = Element(listaP5, A34)
I34 = Element(listaP6, A34)
G35 = Element(listaP4, A35)
H35 = Element(listaP5, A35)
I35 = Element(listaP6, A35)
G36 = Element(listaP4, A36)
H36 = Element(listaP5, A36)
I36 = Element(listaP6, A36)
G37 = Element(listaP4, A37)
H37 = Element(listaP5, A37)
I37 = Element(listaP6, A37)
G38 = Element(listaP4, A38)
H38 = Element(listaP5, A38)
I38 = Element(listaP6, A38)
G39 = Element(listaP4, A39)
H39 = Element(listaP5, A39)
I39 = Element(listaP6, A39)
G40 = Element(listaP4, A40)
H40 = Element(listaP5, A40)
I40 = Element(listaP6, A40)
G41 = Element(listaP4, A41)
H41 = Element(listaP5, A41)
I41 = Element(listaP6, A41)
G42 = Element(listaP4, A42)
H42 = Element(listaP5, A42)
I42 = Element(listaP6, A42)
G43 = Element(listaP4, A43)
H43 = Element(listaP5, A43)
I43 = Element(listaP6, A43)
G44 = Element(listaP4, A44)
H44 = Element(listaP5, A44)
I44 = Element(listaP6, A44)
G45 = Element(listaP4, A45)
H45 = Element(listaP5, A45)
I45 = Element(listaP6, A45)
G46 = Element(listaP4, A46)
H46 = Element(listaP5, A46)
I46 = Element(listaP6, A46)
G47 = Element(listaP4, A47)
H47 = Element(listaP5, A47)
I47 = Element(listaP6, A47)
G48 = Element(listaP4, A48)
H48 = Element(listaP5, A48)
I48 = Element(listaP6, A48)
G49 = Element(listaP4, A49)
H49 = Element(listaP5, A49)
I49 = Element(listaP6, A49)
G50 = Element(listaP4, A50)
H50 = Element(listaP5, A50)
I50 = Element(listaP6, A50)
G51 = Element(listaP4, A51)
H51 = Element(listaP5, A51)
I51 = Element(listaP6, A51)
G52 = Element(listaP4, A52)
H52 = Element(listaP5, A52)
I52 = Element(listaP6, A52)
G53 = Element(listaP4, A53)
H53 = Element(listaP5, A53)
I53 = Element(listaP6, A53)
G54 = Element(listaP4, A54)
H54 = Element(listaP5, A54)
I54 = Element(listaP6, A54)
G55 = Element(listaP4, A55)
H55 = Element(listaP5, A55)
I55 = Element(listaP6, A55)
G56 = Element(listaP4, A56)
H56 = Element(listaP5, A56)
I56 = Element(listaP6, A56)
G57 = Element(listaP4, A57)
H57 = Element(listaP5, A57)
I57 = Element(listaP6, A57)
G58 = Element(listaP4, A58)
H58 = Element(listaP5, A58)
I58 = Element(listaP6, A58)
G59 = Element(listaP4, A59)
H59 = Element(listaP5, A59)
I59 = Element(listaP6, A59)
G60 = Element(listaP4, A60)
H60 = Element(listaP5, A60)
I60 = Element(listaP6, A60)
G61 = Element(listaP4, A61)
H61 = Element(listaP5, A61)
I61 = Element(listaP6, A61)
G62 = Element(listaP4, A62)
H62 = Element(listaP5, A62)
I62 = Element(listaP6, A62)
G63 = Element(listaP4, A63)
H63 = Element(listaP5, A63)
I63 = Element(listaP6, A63)
G64 = Element(listaP4, A64)
H64 = Element(listaP5, A64)
I64 = Element(listaP6, A64)
G65 = Element(listaP4, A65)
H65 = Element(listaP5, A65)
I65 = Element(listaP6, A65)
G66 = Element(listaP4, A66)
H66 = Element(listaP5, A66)
I66 = Element(listaP6, A66)
G67 = Element(listaP4, A67)
H67 = Element(listaP5, A67)
I67 = Element(listaP6, A67)
G68 = Element(listaP4, A68)
H68 = Element(listaP5, A68)
I68 = Element(listaP6, A68)
G69 = Element(listaP4, A69)
H69 = Element(listaP5, A69)
I69 = Element(listaP6, A69)
G70 = Element(listaP4, A70)
H70 = Element(listaP5, A70)
I70 = Element(listaP6, A70)
G71 = Element(listaP4, A71)
H71 = Element(listaP5, A71)
I71 = Element(listaP6, A71)
G72 = Element(listaP4, A72)
H72 = Element(listaP5, A72)
I72 = Element(listaP6, A72)
G73 = Element(listaP4, A73)
H73 = Element(listaP5, A73)
I73 = Element(listaP6, A73)
G74 = Element(listaP4, A74)
H74 = Element(listaP5, A74)
I74 = Element(listaP6, A74)
G75 = Element(listaP4, A75)
H75 = Element(listaP5, A75)
I75 = Element(listaP6, A75)
G76 = Element(listaP4, A76)
H76 = Element(listaP5, A76)
I76 = Element(listaP6, A76)
G77 = Element(listaP4, A77)
H77 = Element(listaP5, A77)
I77 = Element(listaP6, A77)
G78 = Element(listaP4, A78)
H78 = Element(listaP5, A78)
I78 = Element(listaP6, A78)
G79 = Element(listaP4, A79)
H79 = Element(listaP5, A79)
I79 = Element(listaP6, A79)
G80 = Element(listaP4, A80)
H80 = Element(listaP5, A80)
I80 = Element(listaP6, A80)
qz = Line(Q, z)
Qz = Intersect(b, qz)
test: (AffineRatio[A, B, Qx] ≥ 0) ∧ (AffineRatio[A, B, Qx] ≤ 1) ∧ (AffineRatio[A, C, Qy] ≥ 0) ∧ (AffineRatio[A, C, Qy] ≤ 1) ∧ (AffineRatio[A, B, Qz] ≥ 0) ∧ (AffineRatio[A, B, Qz] ≤ 1) ∧ libre ∧ rastro
listaCRot2 = Sequence(Sequence[Sequence[Translate[CRot', Vector[(s * u) + (t * v) + (h * z)]], s, (-k), k, 1], t, (-k), k, 1], h, (-k), k, 1)
listaCRot2B = Sequence(Sequence[Sequence[Translate[CRot', Vector[(s * (z - u)) + (t * (v + z)) + (h * (u + v))]], s, (-k), k, 1], t, (-k), k, 1], h, (-k), k, 1)
cisne0 = Translate(cisne1, Vector[A, A0])
cisne02 = Translate(cisne2, Vector[A, A0])
cisne03 = Translate(cisne3, Vector[A, A0])
cisne04 = Translate(cisne4, Vector[A, A0])
cisne05 = Translate(cisne5, Vector[A, A0])
cisne06 = Translate(cisne6, Vector[A, A0])
l = Segment(CRot, B0)
a1 = Segment(Rotate[T - (2 * z), β, R], Rotate[T + (2 * z), β, R])
listaCisne1CD = Sequence(Mirror[Element[listaCisne1C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
listaCisne2CD = Sequence(Mirror[Element[listaCisne2C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
listaCisne3CD = Sequence(Mirror[Element[listaCisne3C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
listaCisne4CD = Sequence(Mirror[Element[listaCisne4C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
listaCisne5CD = Sequence(Mirror[Element[listaCisne5C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
listaCisne6CD = Sequence(Mirror[Element[listaCisne6C, k], Line[T, T + v]], k, 1, Length[listaCisne1C])
a3 = Segment(T - (2 * v), T + (2 * v))
listaCRot: {CRot' + (0, 0), CRot' - z, CRot' - v}
listaCRotT: {Rotate[T - z, β, R], Rotate[T, β, R], Rotate[T - v, β, R]}
listaCRotTH: {Mirror[T - z, a2], Mirror[T, a2], Mirror[T - v, a2]}
listaCRotTD: {Mirror[T - z, a3], Mirror[T, a3], Mirror[T - v, a3]}
lista5 = Sequence(Line[CRot' + (s * u), CRot' + z + (s * u)], s, (-((2 * k))), (2 * k))
lista4 = Sequence(Line[CRot' + (s * v), CRot' + u + (s * v)], s, (-((2 * k))), (2 * k))
lista6 = Sequence(Line[CRot' + (s * u), CRot' + v + (s * u)], s, (-((2 * k))), (2 * k))
PPP: (xQ, yQ)