powered by
invertFaces(mesh)
mesh3d
updateNormals
require(rgl) data(nose) shade3d(shortnose.mesh,col=3) noseinvert <- invertFaces(shortnose.mesh) ## show normals plotNormals(noseinvert,long=0.01)
Run the code above in your browser using DataLab