三角形分割

球面三角形メッシュ

曲面変形を基本形の球から、とすると、いろんな細かさの球面メッシュがほしい。自作する。 my.sphere.tri.mesh <- function(n.psi=30){ thetas <- list() psis <- seq(from=-pi/2,to=pi/2,length=n.psi) d.psis <- psis[2]-psis[1] hs <- sin(psis) rs <- sq…