# NOT RUN {
library(anglr)
library(raster)
v <- volcano[1:10, 1:6]
r <- setExtent(raster(v), extent(0, nrow(v), 0, ncol(v)))
a <- QUAD(r)
x <- copy_down(TRI(a), r)
nrow(x$vertex)
sc <- silicate::SC(x)
#mesh <- DEL(sc, max_area = .2)
#mesh <- copy_down(mesh, r)
#nrow(mesh$vertex)
# }
Run the code above in your browser using DataLab