| centermesh3d | R Documentation | 
move the centroid of a mesh to a given coordinate
centermesh3d(x, center = NULL)
x | 
 triangular mesh of class 'mesh3d'  | 
center | 
 coordinate where to translate the mesh, if center=NULL the centroid will be moved to the origin  | 
returns the translated mesh
require(Rvcg)
data(humface)
## Not run: 
require(rgl)
wire3d(humface, col=3)
## End(Not run)
humcenter <- centermesh3d(humface)
#view translated mesh
## Not run: 
require(rgl)
wire3d(humcenter, col=2)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.