Inversión

Colorear

2D

3D

animación = false
ulamX = 0
ulamY = 0
vel: 1
ulamC = 0
uC = 2
uX = -2
uY = 2
Centro: (0, 0)
k: sqrt(3) / 4
D': (0.75, k)
D: (-1.25, k)
u1 = Vector(D, D')
u: (2 * u1)
B: (0.25, (-k))
C: (-0.25, k)
v: (2 * (B - C))
t: (ulamX * u) + (ulamY * v) - Centro
t3: {Polygon[(0.75, k), (-0.25, k), 3]}
t1: {Polygon[(-0.75, (-k)), (0.25, (-k)), 3]}
c = Circle((0, 0), 7)
A: (-0.75, (-k))
A' = Mirror(A, B)
t2': {Polygon[D', A', 3]}
A3 = PointIn(t1(1))
L4: {B, A3, A}
a4 = Spline(L4, 3)
t4: {Polygon[B, A', 3]}
A2 = PointIn(t4(1))
A1 = PointIn(t3(1))
C1 = Point(Segment[B, D'])
L1: {C, A1, C1}
a1 = Spline(L1, 3)
t2: {Polygon[D, A, 3]}
A4 = PointIn(t2(1))
L3: {A, A4, D}
a3 = Spline(L3, 3)
L2: {C1, A2, D'}
a2 = Spline(L2, 3)
a4' = Mirror(a4, B)
a1' = Mirror(a1, C)
a2' = Mirror(a2, C)
a3' = Translate(a3, u1)
po1 = Sequence(Point[a1, s], s, 0, 1, 0.05)
po2 = Sequence(Point[a2, s], s, 0, 1, 0.05)
po4 = Sequence(Point[a4', s], s, 0, 1, 0.05)
po5 = Sequence(Point[a4, s], s, 0, 1, 0.05)
po6 = Sequence(Point[a3, s], s, 0, 1, 0.05)
po3 = Reverse(Sequence[Point[a3', s], s, 0, 1, 0.05])
po7 = Sequence(Point[a2', s], s, 0, 1, 0.05)
po8 = Reverse(Sequence[Point[a1', s], s, 0, 1, 0.05])
po = Join({po1, po2, po3, po4, po5, po6, po7, po8})
pol1 = Polygon(po)
aa = 0 (slider from 0 to 4, step 0.01)
pol1' = Translate(pol1, Vector[((aa - 3) * u1)])
pol2 = Rotate(pol1, If[2 < aa < 3, (pi * (aa - 2)), pi], C)
lista2: {pol2, pol1'}
ulamN = 0
invertir = false
Export_1 = Corner(1, 1)
Export_2 = Corner(1, 3)
lista3: {}
lista4: {}
paleta: {{0, 153, 204}, {204, 0, 0}, {128, 0, 204}, {128, 204, 0}}
númeroListas: 2
colorear = true
listaAzar = Sequence({random(), random(), random()}, k, 1, númeroListas)
a = 0
F: (-0.25, ((-k)) / 3, sqrt(2 / 3))
ang = Angle(F, Midpoint[A, C], D)
b3 = Rotate(a3, ((1 - a) * ang), Midpoint[A, C], Segment[A, C])
t3a = Rotate(t3, ((1 - a) * ang), Midpoint[B, C], Segment[C, B])
DD = Rotate(D', ((1 - a) * ang), Midpoint[B, C], Segment[C, B])
t4a = Rotate(t4, ((1 - a) * ang), Midpoint[B, C], Segment[C, B])
t4b = Rotate(t4a, ((1 - a) * ang), Midpoint[B, DD], Segment[DD, B])
b2a = Rotate(a2, ((1 - a) * ang), Midpoint[B, C], Segment[C, B])
b2b = Rotate(b2a, ((1 - a) * ang), Midpoint[B, DD], Segment[DD, B])
pol2' = Translate(pol2, Vector[((aa - 3) * u1)])
lista1: {pol1, pol2'}
bb: (4 * k / 3)
t3' = Mirror(t3, C)
t1' = Mirror(t1, B)
t4b' = Mirror(t4b, C)
t2a = Rotate(t2, ((1 - a) * ang), Midpoint[A, C], Segment[A, C])
b1 = Rotate(a1, ((1 - a) * ang), Midpoint[B, C], Segment[C, B])
color: {{0, 0.6, 0.8}, {0.8, 0, 0}}
anima = 0.05 (slider from 0 to 1, step 0.01)
tras1 = Translate(lista1, t)
tras2 = Translate(lista2, t)