Description Usage Arguments Examples
These function returns surface trinangles of 3D object
1 | my.peri.tri(v, h = max(v), smooth = 0)
|
v |
is a 3d-array.. |
h |
is a real value to draw contour line. |
1 2 3 4 5 6 7 8 9 10 | library(misc3d)
k <- 4
out <- my.3d.obj(3,k)
obj <- out$xyz[which(out$xyz.val==1),]
library(rgl)
plot3d(obj)
xyz.arr <- array(out$xyz.val,c(2^k,2^k,2^k))
tris <- my.peri.tri(xyz.arr)
drawScene.rgl(tris)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.