# NOT RUN {
data(nose)
# }
# NOT RUN {
rgl::shade3d(shortnose.mesh,col=3)
# }
# NOT RUN {
noseinvert <- invertFaces(shortnose.mesh)
## show normals
# }
# NOT RUN {
plotNormals(noseinvert,long=0.01)
# }
Run the code above in your browser using DataLab