ToothVolumes {Toothnroll}

ToothVolumes

Description

Extract volumes from the object ToothShape

Usage

ToothVolumes(
  ShapeExt,
  ShapeInn,
  col1 = "gray",
  col2 = "red",
  col3 = "green",
  alpha1 = 1,
  alpha2 = 1,
  alpha3 = 1,
  plot = FALSE
)

Arguments

ShapeExt

3D mesh: external mesh

ShapeInn

3D mesh: internal mesh

col1

color of the ShapeExt

col2

color of the ShapeInn

col3

color of the boolean operation between ShapeExt and ShapeInn

alpha1

value to set trasparancy of col1

alpha2

value to set trasparancy of col1

alpha3

value to set trasparancy of col1

plot

logical: if TRUE the volumes are shown

Value

meshOut: external selected mesh

meshInnT: internal selected mesh

meshDiff: differences between selected meshes

volumeT: volume of the external mesh

volInn:volume of the internal mesh

volDiff: difference between volumeT and volInn

Author(s)

Antonio Profico; Mathilde Augoyard

Examples

data("URI1_tooth")
require(morphomap)
Enamel<-URI1_tooth$mesh1
Dentin<-URI1_tooth$mesh2
Pulp<-URI1_tooth$mesh3
outline<-URI1_tooth$outline
set<-URI1_tooth$set

#Unrolling the crown
AlignMeshes<-ToothAlignment(mesh1=Enamel,mesh2=Dentin,mesh3=Pulp,set,outline,analyse = "c")
#Virtual sectioning dentine-pulp
External<-AlignMeshes$almesh1$mesh
Internal<-AlignMeshes$almesh2$mesh
#Define 16 cross-sections from the 30% to the 90% along the crown
Core<-ToothCore(External,Internal,num.points = 1000,num.sect =16,
                bio.len = AlignMeshes$length,start=0.3,end=0.9)
Shape<-ToothShape(Core,num.land = 100,sects_vector = NULL,direction = "a")
volumes<-ToothVolumes(Shape$"out3D",Shape$"inn3D",plot=TRUE)
unlist(volumes[4:6])