A = Intersect(zAxis, xOyPlane)
B = (2, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
b = 1 (slider from 0 to 1, step 0.01)
c, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, faceIJKL, faceILNM, faceIJRQ, faceJKTS, faceKLVU, faceMNOP, arêteIL, arêteIJ, arêteJK, arêteKL, arêteLN, arêteMN, arêteIM, arêteIQ, arêteQR, arêteJR, arêteJS, arêteST, arêteKT, arêteKU, arêteUV, arêteLV, arêteNO, arêteOP, arêteMP = Net(a, b)
d, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, G_1, H_1, I_1, J_1, K_1, L_1, face3, face2, face1, face5, face6, face4, arête1, arête10, arête12, arête2, arêteWZ, arête3, arête16, arête5, arête4, arête7, arête9, arête18, arête11, arête14, arête15, arête13, arête6, arête17, arête8 = Net(a, b, faceABFE)
e, M_1, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, U_1, V_1, W_1, Z_1, A_2, B_2, face7, face11, face8, face10, face9, face12, arête20, arête19, arête22, arête24, arête27, arête35, arête37, arête28, arête21, arête29, arête23, arête25, arête26, arête36, arête34, arête33, arête30, arête32, arête31 = Net(a, b, faceABCD, arêteAD, arêteBC, arêteBF, arêteAE)
f, C_2, D_2, E_2, F_2, G_2, H_2, I_2, J_2, K_2, L_2, M_2, N_2, O_2, P_2, face13, face14, face15, face16, face17, face18, arête38, arête39, arête40, arête41, arête42, arête43, arête44, arête45, arête46, arête47, arête48, arête49, arête50, arête51, arête52, arête53, arête54, arête55, arête56 = Net(a, b, faceABCD, arêteAD, arêteBC, arêteBF, arêteAE, arêteEF, arêteGH)
g, 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, F_3, face19, face20, face21, face22, face23, face24, arête57, arête58, arête59, arête60, arête61, arête62, arête63, arête64, arête65, arête66, arête67, arête68, arête69, arête70, arête71, arête72, arête73, arête74, arête75 = Net(a, b, faceABCD, arêteBC, arêteCD, arêteEH, arêteEF)