powered by
vcgBary(mesh)
mesh
data(humface) bary <- vcgBary(humface) require(rgl) points3d(bary,col=2) wire3d(humface)
Run the code above in your browser using DataLab