Friday, December 27, 2019

Polyhedron Transformations 2


PP[p_]:=ExampleData[{"Geometry3D",p},"PolygonData"];
PV[p_,a_,w_,v_]:=RotationTransform[a,
w,v]/@ExampleData[{"Geometry3D",p},"VertexData"];
PPT[p_,a_,w_,v_]:=Polyhedron[PV[p,a,w,v],PP[p]];
Graphics3D[Table[{FaceForm[{Cyan,Opacity[.3]}],EdgeForm[Green],
PPT["SpaceShuttle",i*Pi/2,{1,0,1},{10,10,5}]},{i,4}],
Boxed->False,ImageSize->800]


No comments:

Post a Comment