get intersections between mesh and a plane
get intersections between mesh and a plane
meshPlaneIntersect(mesh, v1, v2 = NULL, v3 = NULL, normal = NULL)
mesh |
triangular mesh of class "mesh3d" |
v1 |
numeric vector of length=3 specifying a point on the separating plane |
v2 |
numeric vector of length=3 specifying a point on the separating plane |
v3 |
numeric vector of length=3 specifying a point on the separating plane |
normal |
plane normal (overrides specification by v2 and v3) |
returns the intersections of edges and the plane
data(nose) v1 <- shortnose.lm[1,] v2 <- shortnose.lm[2,] v3 <- shortnose.lm[3,] intersect <- meshPlaneIntersect(shortnose.mesh,v1,v2,v3) ## Not run: require(rgl) wire3d(shortnose.mesh) spheres3d(shortnose.lm[1:3,],col=2)#the plane spheres3d(intersect,col=3,radius = 0.2)#intersections ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.