# NOT RUN {
a <- DEL0(cad_tas)
plot(a)
## ---- intepolate via triangulation, sample points from volcano
rgl::clear3d()
n <- 150
max_area <- .005 ## we working in x 0,1 y 0,1
library(anglr)
library(dplyr)
d <-
data.frame(x = runif(n), y = runif(n), multipoint_id = 1) %>%
dplyr::mutate(
z = raster::extract(raster::raster(volcano), cbind(x, y)),
multipoint_id = 1
)
# }
# NOT RUN {
mesh <- DEL0(
sfheaders::sf_multipoint(d, x = "x", y = "y", z = "z",
multipoint_id = "multipoint_id"), max_area = max_area)
plot3d(mesh , color = "darkgrey", specular = "darkgrey") #sample(grey.colors(5)))
# }
Run the code above in your browser using DataLab