out.inn.mesh | R Documentation |
This function separates a 3D mesh subjected to the ext.int.mesh into two 3D models: the visible mesh and the not visible one
out.inn.mesh(scans, mesh, plot = TRUE)
scans |
an ext.int.mesh |
mesh |
matrix mesh vertex (the same of the ext.int.mesh object) |
plot |
logical: if TRUE the wireframe of the mesh with the visible vertices is plotted |
Antonio Profico, Costantino Buzi, Marina Melchionna, Paolo Piras, Pasquale Raia, Alessio Veneziano
## Not run: #CA-LSE tool on Neanderthal tooth #load a mesh data(krd1_tooth) library(rgl) library(Rvcg) library(compositions) ca_lse_krd1<-ext.int.mesh(mesh= krd1_tooth, views=50, param1=3, default=TRUE, import_pov = NULL,expand=1, scale.factor=1,num.cores = NULL) vis_inv_krd1<-out.inn.mesh(ca_lse_krd1, krd1_tooth, plot=TRUE) inv_mesh<-vcgIsolated(vis_inv_krd1$invisible) open3d() shade3d(inv_mesh,col=2) open3d() shade3d(vis_inv_krd1$visible, col=3) #CA-LSE tool on human malleus #load a mesh data(malleus_bone) ca_lse_malleus<-ext.int.mesh(mesh= malleus_bone, views=50, param1=3, default=TRUE, import_pov = NULL, expand=1, scale.factor=1) vis_inv_malleus<-out.inn.mesh(ca_lse_malleus, malleus_bone, plot=TRUE) inv_mesh<- vis_inv_malleus$invisible inv_mesh<-ca_lse_malleus$invisible #AST-3D tool #load a mesh data(human_skull) data(endo_set) ast3d_endocast<-ext.int.mesh(mesh=human_skull, views=50, param1=0.6, default=FALSE, import_pov = TRUE,expand=1, matrix_pov =endo_set, scale.factor=1,num.cores = NULL) vis_inv_endo<-out.inn.mesh(ast3d_endocast,human_skull,plot=TRUE) vis_mesh<-vcgIsolated(vis_inv_endo$visible) open3d() shade3d(vis_mesh,col=3) open3d() shade3d(vis_inv_endo$invisible, col=2) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.