Thursday, December 26, 2019

PolyhedronData Examples


GPD[p_,c1_,c2_,r_]:=Graphics3D[{RGBColor[c1],
Opacity[.5],Sphere[{0,0,0},r],
EdgeForm[{RGBColor[c2],Thickness[.007]}],
Transparent,PolyhedronData[{p,#},
"GraphicsComplex"]&/@{"Laevo","Dextro"}},
Boxed->False];
{GPD["PentagonalHexecontahedron",
"royalblue","silver",3.45],
GPD["SnubDodecahedron","crimson","gold",1.95]}


No comments:

Post a Comment