Manipulate[Module[{oct,octv,tet,t0,t4a,t4b,o1,t1,oct2},oct=GraphicsComplex[PolyhedronData["Octahedron","VertexCoordinates"],Polygon[PolyhedronData["Octahedron","FaceIndices"]]];octv=PolyhedronData["Octahedron","VertexCoordinates"];tet=GraphicsComplex[PolyhedronData["Tetrahedron","VertexCoordinates"],Polygon[PolyhedronData["Tetrahedron","FaceIndices"]]];t0=Translate[Rotate[tet,-ArcTan[Sqrt[2]],{0,1,0}],{0,(-dis2)*0.5,dis2*(0.5/Sqrt[2])}];t4a=Table[Rotate[t0,i*(Pi/2)+Pi/4,{0,0,1}],{i,4}];t4b=Rotate[t4a,Pi,{0,1,0}];o1=(Translate[oct,#1]&)/@(dis1*octv);t1=Scale[{t4a,t4b},1*{1,1,1},{0,0,0}];oct2=Scale[oct,0.99*{2,2,2}];Graphics3D[{If[oct2s,oct2,{}],RGBColor[0,1,1],o1,Yellow,t1},SphericalRegion->True,Boxed->False,ViewAngle->0.205,ViewPoint->{4,-2,1},ImageSize->400]],{{dis1,3,"move octahedra"},1,3,Appearance->"Labeled"},{{dis2,1,"move tetrahedra"},1,3,Appearance->"Labeled"},{{oct2s,False,"show octahedron"},{False,True},ImageSize->Tiny},TrackedSymbols->{dis2,dis1,oct2s},SaveDefinitionsTrue]
