View source: R/virtualMeshScan.r

getOuterViewpoints | R Documentation |

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

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

`x` |
triangular mesh of class 'mesh3d' |

`n` |
number of viewpoint to generate |

`inflate` |
factor for the size of the sphere: |

`radius` |
defines a fix radius for the sphere (overrides arg |

`subdivision` |
parameter passed to |

`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. |

a list containing

`viewpoints` |
n x 3 matrix containing viewpoints. |

`sphere` |
sphere from which the points are sampled |

`radius` |
radius of the sphere |

data(boneData) vp <- getOuterViewpoints(skull_0144_ch_fe.mesh,n=100) ## Not run: require(rgl) shade3d(skull_0144_ch_fe.mesh,col="white") spheres3d(vp$viewpoints) wire3d(vp$sphere) ## End(Not run) ### Fit to principal axes vppca <- getOuterViewpoints(skull_0144_ch_fe.mesh,n=100,PCA=TRUE,inflate=1.5) ## Not run: require(rgl) shade3d(skull_0144_ch_fe.mesh,col="white") spheres3d(vppca$viewpoints) wire3d(vppca$sphere) ## End(Not run)

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.