Wednesday, December 25, 2019

Interactive 3D Coordinates


Manipulate[Show[Graphics3D[{Hue[(x+y+z)/9],
EdgeForm[Gray],Opacity[.5],Dodecahedron[{x,y,z},1],
Black,Opacity[1],Style[Text[{x,y,z},{x,y,z}],Italic,11]}],
PlotRange->{{-5,5},{-5,5},{-5,5}},Axes->True,
AxesStyle->LightGray,BoxStyle->LightGray,ImageSize->500],
{x,Range[-3,3,1]},{y,Range[-3,3,1]},{z,Range[-3,3,1]}]


No comments:

Post a Comment