Thursday, December 26, 2019

RotationTransform Examples


Graphics3D[Table[{ColorData["Crayola","ColorList"][[10+k]],
Opacity[.75],EdgeForm[None],
GeometricTransformation[Dodecahedron[],
RotationTransform[k*Pi/8,{1,1,0}]]},{k,8}],
       Boxed->False,ImageSize->500]


No comments:

Post a Comment