Keyse_ModuloInterativo3D

A = (5, 1, 0)
B = (5.087635074408102, 3.3917251010379275, 0)
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_{1}, arestaBF, arestaFG, arestaCG, arestaGH_{1} = Cube(A, B, C)
I = Point(Circle[G, Distance[H, G], Segment[H, G]])
b, J, K, L, M, N, faceGHJI, faceHJNK, faceGHKL, faceGIML, faceIJNM, faceKLMN, arestaHJ, arestaGH_{2}, arestaGI, arestaIJ, arestaHK, arestaJN_{1}, arestaKN, arestaKL, arestaGL, arestaLM, arestaIM, arestaMN = Cube(H, G, I)
U = Point(Circle[H, Distance[G, H], Segment[G, H]])
d, V, W, Z, A_1, B_1, faceGHUV, face1, faceGHZW, face2, face3, face4, arestaGV, arestaGH, arestaHU, arestaUV, arestaGW, aresta2, aresta3, arestaWZ, arestaHZ, aresta4, aresta1, aresta5 = Cube(G, H, U)
R = Point(Circle[M, Distance[J, M], Segment[J, M]])
S = Point(Circle[J, Distance[N, J], Segment[N, J]])
c, T, C_1, D_1, E_1, F_1, faceJNTS, face7, face5, face6, face8, face9, arestaNT, arestaJN, arestaJS, arestaST, aresta7, aresta9, aresta11, aresta10, aresta6, aresta12, aresta8, aresta13 = Cube(N, J, S)
O = Point(Circle[J, Distance[D_1, J], Segment[D_1, J]])
e, P, Q, G_1, H_1, I_1, face10, face13, face11, face12, face14, face15, aresta16, aresta14, arestaJO, arestaOP_{1}, aresta17, aresta19, aresta21, aresta20, aresta15, aresta22, aresta18, aresta23 = Cube(D_1, J, O)
K_1 = Point(Circle[P, Distance[O, P], Segment[O, P]])
f, L_1, M_1, N_1, O_1, P_1, face16, face18, face17, face19, face20, face21, aresta24, arestaOP_{2}, aresta26, aresta28, aresta25, aresta30, aresta32, aresta31, aresta27, aresta33, aresta29, aresta34 = Cube(O, P, K_1)
Q_1 = Point(Circle[O, Distance[P, O], Segment[P, O]])
g, R_1, S_1, T_1, U_1, V_1, face22, face25, face23, face24, face26, face27, aresta37, arestaOP, aresta35, aresta39, aresta38, aresta41, aresta43, aresta42, aresta36, aresta44, aresta40, aresta45 = Cube(P, O, Q_1)
W_1 = Point(Circle[Q_1, Distance[R_1, Q_1], Segment[R_1, Q_1]])
h, Z_1, A_2, B_2, C_2, D_2, face28, face31, face29, face30, face32, face33, aresta49, aresta46, aresta47, aresta51, aresta50, aresta53, aresta55, aresta54, aresta48, aresta56, aresta52, aresta57 = Cube(R_1, Q_1, W_1)
E_2 = Point(Circle[W_1, Distance[Q_1, W_1], Segment[Q_1, W_1]])
i, F_2, G_2, H_2, I_2, J_2, face34, face36, face35, face37, face38, face39, aresta59, aresta58, aresta61, aresta63, aresta60, aresta65, aresta67, aresta66, aresta62, aresta68, aresta64, aresta69 = Cube(Q_1, W_1, E_2)
K_2 = Point(Circle[Q_1, Distance[W_1, Q_1], Segment[W_1, Q_1]])
j, L_2, M_2, N_2, O_2, P_2, face40, face43, face41, face42, face44, face45, aresta73, aresta70, aresta71, aresta75, aresta74, aresta77, aresta79, aresta78, aresta72, aresta80, aresta76, aresta81 = Cube(W_1, Q_1, K_2)
k = 0 (slider from 0 to 1, step 0.01)
l, J_1, Q_2, R_2, S_2, T_2, U_2, V_2, W_2, Z_2, A_3, B_3, C_3, D_3, E_3, face46, face48, face47, face49, face50, face51, aresta83, aresta82, aresta86, aresta89, aresta92, aresta94, aresta84, aresta85, aresta98, aresta87, aresta88, aresta99, aresta90, aresta91, aresta100, aresta93, aresta96, aresta97, aresta95 = Net(c, k)
m = 0 (slider from 0 to 1, step 0.01)
n, F_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3, O_3, P_3, Q_3, R_3, S_3, face52, face54, face53, face55, face56, face57, aresta102, aresta101, aresta105, aresta108, aresta111, aresta113, aresta103, aresta104, aresta117, aresta106, aresta107, aresta118, aresta109, aresta110, aresta119, aresta112, aresta115, aresta116, aresta114 = Net(f, m)
o = 0 (slider from 0 to 1, step 0.01)
p, T_3, U_3, V_3, W_3, Z_3, A_4, B_4, C_4, D_4, E_4, F_4, G_4, H_4, I_4, face58, face60, face59, face61, face62, face63, aresta121, aresta120, aresta124, aresta127, aresta130, aresta132, aresta122, aresta123, aresta136, aresta125, aresta126, aresta137, aresta128, aresta129, aresta138, aresta131, aresta134, aresta135, aresta133 = Net(a, o)
q = 0 (slider from 0 to 1, step 0.01)
r, J_4, K_4, L_4, M_4, N_4, O_4, P_4, Q_4, R_4, S_4, T_4, U_4, V_4, W_4, face64, face66, face65, face67, face68, face69, aresta140, aresta139, aresta143, aresta146, aresta149, aresta151, aresta141, aresta142, aresta155, aresta144, aresta145, aresta156, aresta147, aresta148, aresta157, aresta150, aresta153, aresta154, aresta152 = Net(b, q)
s = 0.54 (slider from 0 to 1, step 0.01)
t, Z_4, A_5, B_5, C_5, D_5, E_5, F_5, G_5, H_5, I_5, J_5, K_5, L_5, M_5, face70, face72, face71, face73, face74, face75, aresta159, aresta158, aresta162, aresta165, aresta168, aresta170, aresta160, aresta161, aresta174, aresta163, aresta164, aresta175, aresta166, aresta167, aresta176, aresta169, aresta172, aresta173, aresta171 = Net(j, s)
u: 1
v, N_5, O_5, P_5, Q_5, R_5, S_5, T_5, U_5, V_5, W_5, Z_5, A_6, B_6, C_6, face76, face78, face77, face79, face80, face81, aresta178, aresta177, aresta181, aresta184, aresta187, aresta189, aresta179, aresta180, aresta193, aresta182, aresta183, aresta194, aresta185, aresta186, aresta195, aresta188, aresta191, aresta192, aresta190 = Net(j, u)
w = 0 (slider from 0 to 1, step 0.01)
a_1, D_6, E_6, F_6, G_6, H_6, I_6, J_6, K_6, L_6, M_6, N_6, O_6, P_6, Q_6, face82, face84, face83, face85, face86, face87, aresta197, aresta196, aresta200, aresta203, aresta206, aresta208, aresta198, aresta199, aresta212, aresta201, aresta202, aresta213, aresta204, aresta205, aresta214, aresta207, aresta210, aresta211, aresta209 = Net(i, w)
distânciaC4aresta135 = Distance(C_4, aresta135)
Midpoint(C_4, ClosestPoint[aresta135, C_4])
TextoC4aresta135: Name[C_4] + (Name[aresta135]) + " = " + distânciaC4aresta135
distânciaB1Q4 = Distance(B_1, Q_4)
Midpoint(B_1, Q_4)
TextoB1Q4: Name[B_1] + (Name[Q_4]) + " = " + distânciaB1Q4
distânciaS2O4 = Distance(S_2, O_4)
Midpoint(S_2, O_4)
TextoS2O4: Name[S_2] + (Name[O_4]) + " = " + distânciaS2O4
distânciaJ3N3 = Distance(J_3, N_3)
Midpoint(J_3, N_3)
TextoJ3N3: Name[J_3] + (Name[N_3]) + " = " + distânciaJ3N3
Textoface61: "Área de  " + (Name[V_3]) + (Name[U_3]) + (Name[F_4]) + (Name[G_4]) + " = " + face61
Pontoface61 = PointIn(face61)
Textoface1: "Área de  " + (Name[W]) + (Name[G]) + (Name[V]) + (Name[B_1]) + " = " + face1
Pontoface1 = PointIn(face1)
Textoface67: "Área de  " + (Name[L_4]) + (Name[K_4]) + (Name[T_4]) + (Name[U_4]) + " = " + face67
Pontoface67 = PointIn(face67)