Friday, December 27, 2019

BeveledPolyhedron Examples 2


RL[a_,p_,v_]:={RotationTransform[a,v]/@p[[1]]};
PL[p_,a_,v_]:=
Table[Line[Table[RL[a,p,v][[1,p[[2,j,i]]]],
{i,Length[p[[2,j]]]}]],{j,Length[p[[2]]]}];
GL=Function[{p,n,v,col},
Graphics3D[Table[{ColorData[col][Cos[i*Pi/n]],
Style[PL[p,2i*Pi/n,v],Thick]},{i,n}],
Boxed->False,ImageSize->600]];
GL[BeveledPolyhedron[Tetrahedron[],.1],
11,{0,0,1},"CherryTones"]

No comments:

Post a Comment