MariadaConceiçãoBraz_ModuloInterativo3D

A = Point(xAxis)
B = (-4.300201592522068, 1.1281676410368178, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, edgeAD, edgeAB, edgeBC, edgeCD, edgeAE, edgeDH, edgeEH_{1}, edgeEF, edgeBF, edgeFG, edgeCG, edgeGH = Cube(A, B, C)
I = Point(Circle[E, Distance[H, E], Segment[H, E]])
b, J, K, L, M, N, faceEHJI, faceHJNK, faceEHKL, faceEIML, faceIJNM, faceKLMN, edgeHJ, edgeEH, edgeEI, edgeIJ, edgeHK, edgeJN, edgeKN, edgeKL_{1}, edgeEL, edgeLM, edgeIM, edgeMN = Cube(H, E, I)
O = Point(Circle[L, Distance[K, L], Segment[K, L]])
c, P, Q, R, S, T, faceKLOP, faceKPTQ, faceKLRQ, faceLOSR, faceOPTS, faceQRST, edgeKP, edgeKL, edgeLO, edgeOP, edgeKQ, edgePT, edgeQT, edgeQR, edgeLR, edgeRS_{1}, edgeOS, edgeST = Cube(K, L, O)
U = Point(Circle[S, Distance[R, S], Segment[R, S]])
d, V, W, Z, A_1, B_1, faceRSUV, face1, faceRSZW, face2, face3, face4, edgeRV, edgeRS, edgeSU, edgeUV, edgeRW, edge2, edge3, edgeWZ_{1}, edgeSZ, edge4, edge1, edge5 = Cube(R, S, U)
C_1 = Point(Circle[Z, Distance[W, Z], Segment[W, Z]])
e, D_1, E_1, F_1, G_1, H_1, face5, face7, face6, face8, face9, face10, edge6, edgeWZ, edge8, edge10, edge7, edge12, edge14, edge13, edge9, edge15, edge11, edge16 = Cube(W, Z, C_1)
I_1 = (0.834759911231945, 0.514153421624588, 0)
J_1 = (1.276355374170759, 1.309287643422664, 0)
K_1 = Point(Circle[J_1, Distance[I_1, J_1], Segment[I_1, J_1]])
f, L_1, M_1, N_1, O_1, P_1, face11, face13, face12, face14, face15, face16, edge18, edge17, edge20, edge22, edge19, edge24, edge26, edge25, edge21, edge27, edge23, edge28 = Cube(I_1, J_1, K_1)
Q_1 = Point(Circle[O_1, Distance[P_1, O_1], Segment[P_1, O_1]])
g, R_1, S_1, T_1, U_1, V_1, face17, face20, face18, face19, face21, face22, edge32, edge29, edge30, edge34, edge33, edge36, edge38, edge37, edge31, edge39, edge35, edge40 = Cube(P_1, O_1, Q_1)
W_1 = Point(edge40)
Z_1 = Point(Circle[W_1, Distance[U_1, W_1], Segment[U_1, W_1]])
h, A_2, B_2, C_2, D_2, E_2, face23, face25, face24, face26, face27, face28, edge42, edge41, edge44, edge46, edge43, edge48, edge50, edge49, edge45, edge51, edge47, edge52 = Cube(U_1, W_1, Z_1)
F_2 = Point(Circle[B_2, Distance[C_2, B_2], Segment[C_2, B_2]])
i, G_2, H_2, I_2, J_2, K_2, face29, face32, face30, face31, face33, face34, edge56, edge53, edge54, edge58, edge57, edge60, edge62, edge61, edge55, edge63, edge59, edge64 = Cube(C_2, B_2, F_2)
L_2 = Point(Circle[J_2, Distance[K_2, J_2], Segment[K_2, J_2]])
j, M_2, N_2, O_2, P_2, Q_2, face35, face38, face36, face37, face39, face40, edge68, edge65, edge66, edge70, edge69, edge72, edge74, edge73, edge67, edge75, edge71, edge76 = Cube(K_2, J_2, L_2)
R_2 = Point(Circle[P_2, Distance[Q_2, P_2], Segment[Q_2, P_2]])
k, S_2, T_2, U_2, V_2, W_2, face41, face44, face42, face43, face45, face46, edge80, edge77, edge78, edge82, edge81, edge84, edge86, edge85, edge79, edge87, edge83, edge88 = Cube(Q_2, P_2, R_2)
Z_2 = Point(Circle[V_2, Distance[W_2, V_2], Segment[W_2, V_2]])
l, A_3, B_3, C_3, D_3, E_3, face47, face50, face48, face49, face51, face52, edge92, edge89, edge90, edge94, edge93, edge96, edge98, edge97, edge91, edge99, edge95, edge100 = Cube(W_2, V_2, Z_2)
F_3 = Point(Circle[Z, Distance[F_1, Z], Segment[F_1, Z]])
m, G_3, H_3, I_3, J_3, K_3, face53, face56, face54, face55, face57, face58, edge104, edge101, edge102, edge106, edge105, edge108, edge110, edge109, edge103, edge111, edge107, edge112 = Cube(F_1, Z, F_3)
L_3 = Point(edge106)
M_3 = Point(Circle[G_3, Distance[L_3, G_3], Segment[L_3, G_3]])
n, N_3, O_3, P_3, Q_3, R_3, face59, face62, face60, face61, face63, face64, edge116, edge113, edge114, edge118, edge117, edge120, edge122, edge121, edge115, edge123, edge119, edge124 = Cube(L_3, G_3, M_3)
únel = 1 (slider from -5 to 5)
p(t) = (t * únel)