Friday, December 27, 2019

Polyhedron Transformations


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]];
Show[Graphics3D[Table[{FaceForm[{Cyan,Opacity[.3]}],
EdgeForm[RGBColor["slategray"]],PPT["Beethoven",
i*Pi/3,{0,0,1},{7,7,10}]},{i,6}],
Boxed->False,ImageSize->600]]




No comments:

Post a Comment