Toothnroll (version 1.11)

ToothVolumes: 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
)

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

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

Author

Antonio Profico; Mathilde Augoyard

Examples

# \donttest{
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])
# }