oedist {doolkit}

Distance from outer enamel surface to enamel dentine junction

Description

Compute the distance from enamel vertices to dentine mesh.

Usage

oedist(oes, edj, ray = FALSE)

Arguments

oes

object of class mesh3d; should be the outer enamel surface

edj

object of class mesh3d; should be the enamel-dentine junction

ray

logical, if TRUE the search is along vertex normals (default is FALSE)

Value

A numeric vector of vertex-to-mesh distance values for all the polygons of the x mesh.

References

doi:10.1371/journal.pone.0066142Guy et al. (2013)

doi:10.1371/journal.pone.0138802Guy et al. (2015)

doi:10.3389/fphys.2017.00524Thiery et al. (2017)

doi:10.1098/rsbl.2019.0671Schwartz et al. (2020)

See Also

meshDist

Examples

edd <- oedist(dkmodel$cusp, dkmodel$flat)
summary(edd)
AETgeom <- mean(edd)
#Geometric relative enamel thickness, obtained by dividing AETgeom by the
#square root of EDJ area
#Note: it is different from classic RET which requires the volume of the
#dentine inside the enamel cap (see Thiery et al., 2017)
AETgeom/sqrt(Rvcg::vcgArea(dkmodel$flat))
#Absolute crown strength:
edj_radius <- max(dist(cbind(dkmodel$flat$vb[1,], dkmodel$flat$vb[2,])))/2
sqrt(mean(edd) * edj_radius)

#render on a map:
oedist <- doolkit::oedist(dkmodel$cusp, dkmodel$flat)
dkmap(dkmodel$cusp, oedist)
#distance map can also be rendered on EDJ surface:
eodist <- oedist(dkmodel$flat, dkmodel$cusp)
dkmap(dkmodel$flat, eodist)