powered by
quad2trimesh(mesh, updateNormals = TRUE)
Sigma <- diag(3:1) #create a 3D-covariance matrix require(rgl) quadmesh <- ellipse3d(Sigma)##create quadmesh trimesh <- quad2trimesh(quadmesh)# convert to trimesh
Run the code above in your browser using DataLab