Manipulate[
where = PolyhedronData[“Tetrahedron”][[1, 1]];
tet = PolyhedronData[“Tetrahedron”][[1]];
oct = PolyhedronData[“Octahedron”][[1]];
octn = {RGBColor[0.6, 1, 0.2],
Rotate[oct, ArcTan[Sqrt[2]], {0, 1, 0}]};
octn2 = Scale[octn, 2 {1, 1, 1}, {0, 0, 0}];
d2 = Map[Translate[{tet}, #] &, a  where];
d3 = Map[Translate[{octn, d2}, #] &, b 2  where];
Graphics3D[{d3, octn2}, Boxed -> False, SphericalRegion -> True,
ViewPoint -> {-5, 20, 5}, ViewAngle -> Pi/60],
{{b, 1, “divide tetrahedron b”}, 0, 2},
{{a, 1, “divide tetrahedron a”}, 0, 2}, TrackedSymbols -> {b, a}]

Advertisements