LAÍS MEDEIROS_ModuloInterativo3D

A = Point(xAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arestaAD, arestaAB, arestaBC, arestaCD, arestaAE, arestaDH, arestaEH, arestaEF, arestaBF, arestaFG, arestaCG, arestaGH = Cube(A, B, C)
I = Point(xAxis)
b, c, d, e = Cylinder(B, I, 1)
J = Point(xAxis)
K = Point(Circle[J, Distance[I, J], Segment[I, J]])
f, L, M, N, O, P, faceIJKL, faceILPM, faceIJNM, faceJKON, faceKLPO, faceMNOP, arestaIL, arestaIJ, arestaJK, arestaKL, arestaIM, arestaLP, arestaMP, arestaMN, arestaJN, arestaNO, arestaKO, arestaOP = Cube(I, J, K)
Q = Point(xAxis)
R = Point(Circle[Midpoint[J, Q], (Distance[J, Q] * sqrt(3) / 2), Segment[J, Q]])
g, S, faceJQR, faceJRS, faceJQS, faceQRS, arestaJR, arestaJQ, arestaQR, arestaJS, arestaRS, arestaQS = Tetrahedron(J, Q, R)
T = Point(xAxis)
U = Point(yAxis)
Z = (-1, 3, 0)
h, V, W, faceQTU, faceQTVZ, faceTUWV, faceQUWZ, faceVWZ, arestaQT, arestaTU, arestaQU_{1}, arestaQZ, arestaTV, arestaUW, arestaVZ_{1}, arestaVW, arestaWZ = Prism(Q, T, U, Z)
A_1 = Point(zAxis)
i, faceQUVZTW, face2, face4, face3, face6, face5, face1, arestaQW, arestaTW, arestaTZ, arestaVZ, arestaUV, arestaQU, aresta1, aresta6, aresta2, aresta4, aresta5, aresta3 = Pyramid(Q, W, T, Z, V, U, A_1)