A_{2} = (-2.38240822434037, -2.153547911072536, 0)
B = (1.9945873186241343, -1.8547265759895737, 0)
C = Point(Circle[B, Distance[A_{2}, B], Segment[A_{2}, B]])
a, D, E, F, G, H, facciaABCD, facciaADHE, facciaABFE, facciaBCGF, facciaCDHG, facciaEFGH, spigoloAD, spigoloAB, spigoloBC, spigoloCD, spigoloAE, spigoloDH, spigoloEH, spigoloEF, spigoloBF, spigoloFG, spigoloCG, spigoloGH = Cube(A_{2}, B, C)
I = Midpoint(spigoloEF)
J = Midpoint(spigoloGH)
K = Midpoint(spigoloFG)
L = Midpoint(spigoloEH)
M = Midpoint(spigoloDH)
N = Midpoint(spigoloAE)
O = Midpoint(spigoloBF)
P = Midpoint(spigoloCG)
Q = Midpoint(spigoloCD)
R = Midpoint(spigoloBC)
S = Midpoint(spigoloAB)
T = Midpoint(spigoloAD)
q1, s, o, i, n = Polygon(S, O, I, N)
q2, o_1, r, p, k = Polygon(O, R, P, K)
q3, l, i_1, k_1, j = Polygon(L, I, K, J)
U = Point(spigoloCG)
V = Point(spigoloDH)
q5, j_1, p_1, q_1, m = Polygon(J, P, Q, M)
q6, l_1, n_1, t, m_1 = Polygon(L, N, T, M)
q4, r_1, s_1, t_1, q = Polygon(R, S, T, Q)
t1, r_2, p_2, q_2 = Polygon(P, Q, R)
t2, t_2, q_3, m_2 = Polygon(Q, M, T)
t3, m_3, j_2, l_2 = Polygon(J, L, M)
t4, k_2, j_3, p_3 = Polygon(J, P, K)
t5, i_2, l_3, n_2 = Polygon(L, N, I)
t6, t_3, n_3, s_2 = Polygon(N, S, T)
t7, s_3, o_2, r_3 = Polygon(O, R, S)
t8, k_3, o_3, i_3 = Polygon(O, I, K)
W = Midpoint(L, R)
Z = Midpoint(p_3)
b = Sphere(W, Z)
A = Midpoint(K, L)
t9, w, z_1, a_1 = Polygon(Z, A, W)