vcgSmooth(mesh, type = c("taubin", "laplace", "HClaplace", "fujiLaplace",
"angWeight", "surfPreserveLaplace"), iteration = 10, lambda = 0.5,
mu = -0.53, delta = 0.1)Vollmer J., Mencl R. and Mueller H. 1999. Improved Laplacian Smoothing of Noisy Surface Meshes. Computer Graphics Forum, 18(3):131 - 138.
Schroeder, P. and Barr, A. H. (1999). Implicit fairing of irregular meshes using diffusion and curvature flow: 317-324.
vcgPlyRead,vcgCleandata(humface)
smoothface <- vcgSmooth(humface)
## view
require(rgl)
shade3d(smoothface, col=3)Run the code above in your browser using DataLab