data(humface)
humface$normals <- NULL # remove normals
humface <- vcgUpdateNormals(humface)
if (FALSE) {
pointcloud <- t(humface$vb[1:3,]) #get vertex coordinates
pointcloud <- vcgUpdateNormals(pointcloud)
require(Morpho)
plotNormals(pointcloud)#plot normals
}
Run the code above in your browser using DataLab