R/sph2image.R

In eggs: Distances and areas on the surface of an egg

sph2image = function(egg, sph) {
  n = nrow(sph)
  image = matrix(0, nrow=n, ncol=2)
  colnames(image) = c("x", "z")
  for(i in 1:n) {
    cart = sph2cart(sph[i,])
    x = cart[1] + egg$mid.point[1]
    z = cart[3] + egg$mid.point[2]
    image[i,] = c(x, z)
  }
  return (image)
}