Build endocast from a skull 3D mesh
endomaker(
mesh = NULL,
path_in = NULL,
param1_endo = 1,
npovs = 50,
volume = TRUE,
alpha_vol = 100,
nVoxels = 1e+05,
decmesh = 20000,
alpha_ext = 30,
ncells = 50000,
npovs_calse = 50,
param1_calse = 2,
param1_ast = 1.3,
decendo = 20000,
scalendo = 0.5,
alpha_end = 100,
mpovdist = 10,
plot = FALSE,
colmesh = "orange",
save = FALSE,
outpath = tempdir(),
num.cores = NULL
)
endocast mesh3d: mesh of the endocast
volume numeric: volume of the endocast expressed in cc
mesh3d: 3D model of the skull
character: path of the skull where is stored
numeric: parameter for spherical flipping
numeric: number of Points of View used in the endocast construction
logical: if TRUE the calculation of the volume (expressed in cc) through concave is returned
numeric: alpha shape for volume calculation
numeric: number of voxels for estimation endocranial volume
numeric: decmesh
numeric: alpha shape for construction external cranial mesh
numeric: approximative number of cell for 3D grid construction
numeric: number of Points of View for construction of skull shell
numeric: parameter for calse (construction shell)
numeric: parameter for ast3d (construction row endocast)
numeric: desired number of triangles (row endocast)
numeric: scale factor row endocast (for definition of POVs)
numeric: alpha shape value for concave hull (row endocast)
numeric: mean value between POVs and mesh
logical: if TRUE the endocast is plotted
character: color of the mesh to be plotted
logical: if TRUE the mesh of the endocast is saved
character: path where save the endocast
numeric: numbers of cores to be used in parallel elaboration
Antonio Profico, Costantino Buzi, Marina Melchionna, Paolo Piras, Pasquale Raia, Alessio Veneziano
Profico, A., Buzi, C., Melchionna, M., Veneziano, A., & Raia, P. (2020). Endomaker, a new algorithm for fully automatic extraction of cranial endocasts and the calculation of their volumes. American Journal of Physical Anthropology.
if (FALSE) {
library(rgl)
data(human_skull)
sapendo<-endomaker(human_skull,param1_endo = 1.0,decmesh = 20000, num.cores=NULL)
open3d()
wire3d(sapendo$endocast,col="violet")
ecv<-sapendo$volume
}
Run the code above in your browser using DataLab