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