A = Intersect(zAxis, xAxis)
B = Point(yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
I = Point(Circle[B, Distance[A, B], Segment[A, B]])
b, J, K, L, M, N, faceABIJ, faceAJNK, faceABLK, faceBIML, faceIJNM, faceKLMN, arêteAJ, arêteAB, arêteBI, arêteIJ, arêteAK, arêteJN, arêteKN, arêteKL, arêteBL, arêteLM, arêteIM, arêteMN = Cube(A, B, I)
D: N
a, E, faceADI, faceADE, faceAEI, faceDEI, arêteAD, arêteAI, arêteDI, arêteAE, arêteDE, arêteEI = Tetrahedron(A, I, D)