# NOT RUN {
data(humface)
##reduce faces to 50%
decimface <- vcgQEdecim(humface, percent=0.5)
## view
# }
# NOT RUN {
require(rgl)
shade3d(decimface, col=3)
## some light smoothing
decimface <- vcgSmooth(decimface,iteration = 1)
# }
Run the code above in your browser using DataLab