c = 8.4 (slider from 0 to 10, step 0.1)
A: (0, 0, 0)
B: (c, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
cube, 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)
A_1 = Centroid(faceABCD)
B_1 = Centroid(faceABFE)
C_1 = Centroid(faceBCGF)
octaèdre, I, J, K, face1, face3, face4, face2, face6, face5, face7, faceIJK, arête2, arête1, arête5, arête4, arête9, arête3, arêteIK, arête6, arête7, arêteIJ, arête8, arêteJK = Octahedron(A_1, B_1, C_1)
u: ((-2 * c), 0, 0)
octaèdre1 = Translate(octaèdre, u)
A_2 = Centroid(face1)
B_2 = Centroid(face2)
C_2 = Centroid(face6)
cube1, L, M, N, O, P, face8, face10, face9, face11, face12, faceMNOP, arête11, arête10, arête13, arête15, arête12, arêteLP, arêteMP, arêteMN, arête14, arêteNO, arête16, arêteOP = Cube(A_2, B_2, C_2)
cube2 = Translate(cube1, u)