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