require(rgl)
require(Morpho)
data(nose)
### calculate vertex normals
shortnose.mesh$normals <- NULL ##remove normals
if (FALSE) {
shade3d(shortnose.mesh,col=3)##render
}
shortnose.mesh <- updateNormals(shortnose.mesh)
if (FALSE) {
clear3d()
shade3d(shortnose.mesh,col=3)##smoothly rendered now
}
## calculate facenormals
facemesh <- facenormals(shortnose.mesh)
if (FALSE) {
plotNormals(facemesh,long=0.01)
points3d(vert2points(facemesh),col=2)
wire3d(shortnose.mesh)
}
Run the code above in your browser using DataLab