# NOT RUN {
data(humface)
humface$normals <- NULL # remove normals
humface <- vcgUpdateNormals(humface)
# }
# NOT RUN {
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