L'octaèdre et les quarts d'octaèdres.

Quatre tétraèdres isocèles rectangles composent un octaèdre régulier.

Vous pouvez afficher la fenêtre graphique et modifier comme vous l'entendez le curseur d'animation.

g = 0.465 (slider from 0 to 1, step 0.001)
d, G, face12, face14, face13, face15, arête15, arête14, arête17, arête16, arête19, arête18 = Tetrahedron((1, 0, 0), (0, 1, 0), (0, 0, 1))
b, A, B, C, D, E, face4, face6, face5, face7, face8, faceBCDE, arête5, arête4, arête7, arête9, arête6, arêteAE, arêteBE, arêteBC, arête8, arêteCD, arête10, arêteDE = Cube((1, 1, -1), (-1, 1, -1), (-1, -1, -1))
a, face9, face10, face11, arête11, arête12, arête13 = Pyramid(Polygon[B, C, (0, 0, 1)], (0, 1, 0))
a' = Rotate(a, π, Line[(0, 1, 0), (0, 0, 1)])
f = If(g  <  0.3, 0, (g - 0.3) / 2)
h = Rotate(Translate[a', Vector[(f * (B + C))]], 0, xAxis)
i = Rotate(Translate[a', Vector[(f * (B + C))]], π / 2, xAxis)
j = Rotate(Translate[a', Vector[(f * (B + C))]], π, xAxis)
k = Rotate(Translate[a', Vector[(f * (B + C))]], (3 * π / 2), xAxis)