Visualization Notes
Thursday, December 26, 2019
2D Polygons in Graphics3D
Graphics3D[{Opacity[.5],EdgeForm[Gray],
Table[{ColorData["BrightBands"][i/24],
Polygon[{{0,0,0},{Cos[i*Pi/3],
Sin[i*Pi/4],i*Sin[i]/24},
{Cos[i*Pi/4],Cos[i*Pi/3],
i*Sin[i]/24},{0,0,0}}]},{i,24}]},
Boxed->False,ViewPoint->{3,4,5},ImageSize->500]
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment