TRI model from silicate is extended by methods for QUAD.

# S3 method for QUAD
TRI(x, ...)

Arguments

x

QUAD

...

reserved

Value

a TRI model, as per silicate package

Examples

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)
#> [1] 77
sc <- silicate::SC(x) #mesh <- DEL(sc, max_area = .2) #mesh <- copy_down(mesh, r) #nrow(mesh$vertex)