quadmesh
quadmesh copied to clipboard
hmm prospects
Download and build hmm: https://github.com/fogleman/hmm
Create a heightmap:
png::writePNG(volcano, "a.png")
Convert to STL:
bin/release/hmm a.png output.stl
Read in R and plot
d <- rgl::readSTL("output.stl", plot = FALSE)
rgl::triangles3d(d, col = colourvalues::colour_values(d[,3]))
## rglwidget()
Densify the coordinates, build mesh3d etc. ...
library(dplyr)
as_tibble(d) %>% distinct() ## 516 rows (not 3000)
https://github.com/hypertidy/hmmr