library(quadmesh)
library(raster)
## Loading required package: sp
g <- raster::raster(system.file("extdata/gebco1.tif", package = "anglr"))
qm <- quadmesh(g)
qm <- quadmesh(aggregate(g/100, fact = 10))
library(rgl)
## Warning in rgl.init(initValue, onlyNULL): RGL: unable to open X11 display
## Warning: 'rgl_init' failed, running with rgl.useNULL = TRUE
rgl.clear()
shade3d(qm)
rglwidget()
tm <- qm
tm$primitivetype <- "triangle"
tm$it <- triangulate_quads(qm$ib)
tm$ib <- NULL
rgl.clear()
shade3d(tm)
rglwidget()