R/conv2backf.r

In zarquon42b/Morpho: Calculations and Visualisations Related to Geometric Morphometrics

#' 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)
}