A_{1} = (-2.6865512143001204, -2.666756799696323, 0)
B_{1} = (2.257729714638817, -2.310502575512409, 0)
C_{1} = Point(Circle[Midpoint[A_{1}, B_{1}], (Distance[A_{1}, B_{1}] * sqrt(3) / 2), Segment[A_{1}, B_{1}]])
a, D_{1}, facciaABC, facciaACD, facciaABD, facciaBCD, spigoloAC, spigoloAB, spigoloBC, spigoloAD, spigoloCD, spigoloBD = Tetrahedron(A_{1}, B_{1}, C_{1})
E = (1.8750752976507563, -6.447725683548441, 0)
f = Ray(A_{1}, E)
F = Point(f)
A' = Mirror(A_{1}, F)
F' = Mirror(F, A')
g = Segment(F', B_{1})
h = Line(A', g)
i = Line(F, h)
G = Intersect(i, spigoloAB)
H = Intersect(spigoloAB, h)
j = Line(H, spigoloBC)
k = Line(G, spigoloAC)
I = Intersect(spigoloBC, k)
J = Intersect(spigoloAC, j)
C = Mirror(C_{1}, J)
B = Mirror(C_{1}, I)
l = Line(B, spigoloCD)
K = Intersect(l, spigoloBD)
m = Line(H, spigoloBD)
L = Intersect(m, spigoloAD)
n = Line(C, spigoloAD)
M = Intersect(spigoloCD, n)
D = Mirror(D_{1}, L)
A = Mirror(D_{1}, M)
N = Mirror(B_{1}, K)
poli1, m_1, l_1, d', c', j_1, d'_{1} = Polygon(M, L, D, C, J, A)
poli2, p, g_1, h_1, k_1, b', l_2 = Polygon(D, G, H, K, N, L)
poli3, q, m_2, r, i_1, c'_{1}, k_2 = Polygon(N, M, A, I, B, K)
poli4, s, i_2, j_2, t, g_2, h_2 = Polygon(B, I, J, C, G, H)