vcgNonBorderEdge | R Documentation |
Get all non-border edges and both faces adjacent to them.
vcgNonBorderEdge(mesh, silent = FALSE)
mesh |
triangular mesh of class 'mesh3d |
silent |
logical: suppress output of information about number of border edges |
returns a dataframe containing:
vert1 |
integer indicating the position of the first vertex belonging to this edge |
vert2 |
integer indicating the position of the second vertex belonging to this edge |
border |
integer indicating if the edge is at the border of the mesh. 0 = no border, 1 = border |
face1 |
integer pointing to the first face adjacent to the edge |
face2 |
integer pointing to the first face adjacent to the edge |
vcgGetEdge
data(humface)
edges <-vcgNonBorderEdge(humface)
## show first edge (not at the border)
## Not run:
require(Morpho)
require(rgl)
lines3d(t(humface$vb[1:3,])[c(edges$vert1[1],edges$vert2[2]),],col=2,lwd=3)
## plot barycenters of adjacent faces
bary <- barycenter(humface)
points3d(bary[c(edges$face1[1],edges$face2[1]),])
shade3d(humface, col=3)
## now find the edge - hint: it is at the neck.
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.