diff --git a/R/vcgRaySearch.r b/R/vcgRaySearch.r index 44088035..3d00c678 100644 --- a/R/vcgRaySearch.r +++ b/R/vcgRaySearch.r @@ -109,12 +109,13 @@ setRays <- function(coords, dirs) { # offset landmarks along their normals for a negative amount of -5mm #' x$vb[1:3,] <- x$vb[1:3,]+x$normals[1:3,]*-5 #' -#' myintersects <- raysearchMulti(x,mesh) +#' myint <- raysearchMulti(x,mesh) #' wire3d(mesh,col="white") #' spheres3d(vert2points(x),radius=0.5,col=3) #' plotNormals(x,length=55,lwd=2) #' for (i in 1:length(myintersects$intersects)) -#' spheres3d(vert2points(myintersects$intersects[[i]])[which(as.logical(myintersects$intersects[[i]]$quality)),],col=i) +#' spheres3d(vert2points(myint$intersects[[i]])[which(as.logical(myint$intersects[[i]]$quality)),] +#' ,col=i) #' } #' @seealso \code{\link{vcgRaySearch}} #' @export diff --git a/man/raysearchMulti.Rd b/man/raysearchMulti.Rd index 6208f475..01d637c3 100644 --- a/man/raysearchMulti.Rd +++ b/man/raysearchMulti.Rd @@ -37,12 +37,13 @@ mesh <- mergeMeshes(humface,humface1) #get normals of landmarks x <- vcgClost(humface.lm, humface) x$vb[1:3,] <- x$vb[1:3,]+x$normals[1:3,]*-5 -myintersects <- raysearchMulti(x,mesh) +myint <- raysearchMulti(x,mesh) wire3d(mesh,col="white") spheres3d(vert2points(x),radius=0.5,col=3) plotNormals(x,length=55,lwd=2) for (i in 1:length(myintersects$intersects)) - spheres3d(vert2points(myintersects$intersects[[i]])[which(as.logical(myintersects$intersects[[i]]$quality)),],col=i) + spheres3d(vert2points(myint$intersects[[i]])[which(as.logical(myint$intersects[[i]]$quality)),] + ,col=i) } } \seealso{