powered by
vcgBorder(mesh)
vcgPlyRead
data(humface) borders <- vcgBorder(humface) ## view border vertices 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