RRmorph (version 0.0.1)

col2mesh: Color a mesh according to provided values

Description

The function colors a mesh according to a vector of continuous values related to individual vertices.

Usage

col2mesh(mesh,values,pal,from=NULL,to=NULL,NAcol="gray90")

Value

A mesh3d object colored according to values.

Arguments

mesh

a mesh3d object.

values

a vector of continuous values associated to individual vertices of the mesh.

pal

a vector of colors to be passed to colorRampPalette.

from, to

lower and upper values to be associated to the ends of pal.

NAcol

the color associated to NA values.

Author

Marina Melchionna, Silvia Castiglione

Examples

  # \donttest{
  da<-"https://github.com/pasraia/RRmorph_example_data/raw/refs/heads/main/RRmorphdata.rda"
  download.file(url=da,destfile = paste0(tempdir(),"/RRmorphdata.rda"))
  load(paste0(tempdir(),"/RRmorphdata.rda"))

  require(rgl)
  require(Morpho)
  require(Rvcg)

  pca<-procSym(endo.set)
  ldm<-endo.set[,,"Homo_sapiens"]
  sur<-endo.sur[["Homo_sapiens"]]

  rec<- vcgBallPivoting(pca$mshape, radius = 0)
  rec$vb[1:3,]<-t(ldm)
  val<-rnorm(ncol(rec$vb))

  interp<-interpolMesh(sur = rec,refsur = sur,refmat = ldm,
                       values = val,element ="vertices",k = 4)

  colmesh<-col2mesh(mesh = sur,values = interp,pal = heat.colors(5))
  plotLegend(mesh = colmesh,values = interp, main = "Pan troglodytes")
  open3d()
  shade3d(colmesh,specular="black")
  # }