inst/localtests/rglscene.R

library(rgl)
library(rgl2gltf)

g <- readGLB(system.file("localtests/2CylinderEngine.glb", package = "rgl2gltf"))
s <- as.rglscene(g)
plot3d(s)

open3d()
m <- as.mesh3d(g)
shade3d(m)
dmurdoch/rgl2gltf documentation built on Nov. 19, 2024, 9:41 p.m.