Lakes in progress

u <- "https://gist.githubusercontent.com/paleolimbot/bf63bb53e3ef5849677e40f352136ec2/raw/aaff721edc519577391e10f4dd7f1ca83594131b/alta_lake_whistler.csv"

alta_lake_whistler <- readr::read_csv(u)

xyz <-
  dplyr::transmute(alta_lake_whistler, lon, lat, -dbt_m)
tri_lake <- guerrilla::mesh_raster(dplyr::sample_n(xyz, 1e4), n = 256)
anglr::plot3d(tri_lake)
rgl::points3d(xyz); rgl::aspect3d(1, 1, .1)

Lake Superior

https://twitter.com/mdsumner/status/1252961074464256007/photo/1

u <- "ftp://ftp.gisdata.mn.gov/pub/gdrs/data/pub/us_mn_state_dnr/water_lake_superior_basin/gpkg_water_lake_superior_basin.zip"
#curl::curl_download(u, basename(u))

xyz <- vroom::vroom("superior_lld.xyz", col_names = c("x", "y", "z"))
xyz <- dplyr::sample_n(xyz, 2e5)
tri_lake <- guerrilla::mesh_raster(xyz, n = 1024)
anglr::plot3d(tri_lake)
rgl::points3d(xyz, size = 0.05); rgl::aspect3d(1, 1, .1)