Nothing
#' invert faces' orientation of triangular mesh
#'
#' inverts faces' orientation of triangular mesh and recomputes vertex normals
#'
#'
#' @param mesh triangular mesh of class \code{mesh3d}
#' @return returns resulting mesh
#' @author Stefan Schlager
#' @seealso \code{\link{updateNormals}}
#'
#' @examples
#'
#'
#' data(nose)
#' \dontrun{
#' rgl::shade3d(shortnose.mesh,col=3)
#' }
#' noseinvert <- invertFaces(shortnose.mesh)
#' ## show normals
#' \dontrun{
#' plotNormals(noseinvert,long=0.01)
#' }
#' @export
invertFaces <- function(mesh)
{
mesh$it <- mesh$it[c(3,2,1),,drop=F]
mesh <- vcgUpdateNormals(mesh)
return(mesh)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.