getOuterViewpoints {Morpho}

Get viewpoints on a sphere around a 3D mesh

Description

Get viewpoints on a sphere around a 3D mesh to be used with virtualMeshScan

Usage

getOuterViewpoints(
  x,
  n,
  inflate = 1.5,
  radius = NULL,
  subdivision = 3,
  PCA = FALSE
)

Arguments

x

triangular mesh of class 'mesh3d'

n

number of viewpoint to generate

inflate

factor for the size of the sphere: inflate=1 means that the sphere around the object just touches the point farthest away from the mesh's centroid.

radius

defines a fix radius for the sphere (overrides arg inflate).

subdivision

parameter passed to vcgSphere

PCA

logical: if TRUE, the sphere will be deformed to match the principle axes of the mesh. NOTE: this may result in the sphere not necessarily completely enclosing the mesh.

Value

a list containing

viewpoints

n x 3 matrix containing viewpoints.

sphere

sphere from which the points are sampled

radius

radius of the sphere

Examples

## Not run: 
data(boneData)
vp <- getOuterViewpoints(skull_0144_ch_fe.mesh,n=100)

require(rgl)
shade3d(skull_0144_ch_fe.mesh,col="white")
spheres3d(vp$viewpoints)
wire3d(vp$sphere)

### Fit to principal axes
vppca <- getOuterViewpoints(skull_0144_ch_fe.mesh,n=100,PCA=TRUE,inflate=1.5)

require(rgl)
shade3d(skull_0144_ch_fe.mesh,col="white")
spheres3d(vppca$viewpoints)
wire3d(vppca$sphere)

## End(Not run)