A = (-1.1968325338083936, -2.88702524329247, 0)
B = (3.1544414157652945, 3.1363471983950006, 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)