# NOT RUN {
data(humface)
borders <- vcgBorder(humface)
## view border vertices
# }
# NOT RUN {
require(rgl)
points3d(t(humface$vb[1:3,])[which(borders$bordervb == 1),],col=2)
wire3d(humface)
require(rgl)
# }
Run the code above in your browser using DataLab