rgl conversion

[mdsumner]

first stab at mesh3d:

library(rgl)

x <- tetrahedron3d()
class(x)
str(x)
library(tibble)
fun <- function(x) {
  v <- setNames(as_tibble(t(x$vb[1:3, ])), c("x_", "y_", "z_"))
  v$vertex_ <- spbabel:::id_n(nrow(v))
  tXv <- tibble(vertex_ = v$vertex_[x$it], 
                triangle_ = spbabel:::id_n(ncol(x$it))[rep(seq(ncol(x$it)), each = 3)])
  tt <- tibble(triangle_ = tXv$triangle_[seq(ncol(x$it))], object_ = "1")
  o <- tibble(object_ = "1")
  structure(list(o = o, t = tt, tXv = tXv, v = v), class = "trimesh")
}

(Doesn't work)

[mdsumner]

rgl triangles now working