6 lines
212 B
Text
6 lines
212 B
Text
|
{points,faces}=PolyhedronData["Cube",{"VertexCoordinates","FaceIndices"}];
|
||
|
|
|
||
|
|
Function[iteration,
|
||
|
|
Graphics3D[(Polygon[iteration[[1]][[#]]]&/@iteration[[2]])]
|
||
|
|
]/@NestList[CatMullClark,{points,faces},3]//GraphicsRow
|