c = 12 (slider from 0 to 20, step 0.1)
A: (0, 0, 0)
B: (c, 0, 0)
C = Point(Circle[Midpoint[A, B], (Distance[A, B] * sqrt(3) / 2), Segment[A, B]])
tetraèdre, D, faceABC, faceACD, faceABD, faceBCD, arêteAC, arêteAB, arêteBC, arêteAD, arêteCD, arêteBD = Tetrahedron(A, B, C)
A' = Centroid(faceABC)
B' = Centroid(faceABD)
C' = Centroid(faceACD)
D' = Centroid(faceBCD)
tétraèdre1, E, faceA'B'D', faceA'D'E, faceA'B'E, faceB'D'E, arêteA'D', arêteA'B', arêteB'D', arêteA'E, arêteD'E, arêteB'E = Tetrahedron(A', B', D')