# NOT RUN {
dot3d(cad_tas)
dot3d(volcano, size = 10)
auto_3d()
rgl::open3d()
## from ?persp
y <- x <- seq(-10, 10, length= 80)
z <- outer(x, y,
function(x, y) {
r <- sqrt(x^2+y^2); 10 * sin(r)/r
})
dot3d(z)
dot3d(raster::raster(volcano), size = 10)
auto_3d()
# }
# NOT RUN {
dot3d(silicate::SC(cad_tas))
rgl::open3d()
dot3d(as.mesh3d(copy_down(DEL(cad_tas, max_area = 1e3), "CID")))
auto_3d()
# }
Run the code above in your browser using DataLab