R/sphere.tri.R

In antiphon/sphere: Some functions for handling 3D point cloud data and ellipsoids.

#' Triangulation of a sphere
#'
#' For now, retriangulate icoshedron3d() from rgl.
#'  
#' @import rgl
#' @export

sphere.tri <- function(N=2) {
  g <- icosahedron3d()
  for(i in 1:N) g <- subdivision3d(g)
  g
}