View source: R/as.mesh3d.default.R
| as.mesh3d.rglId | R Documentation |
This method attempts to read the attributes of objects in the rgl display and construct a mesh3d object to approximate them.
## S3 method for class 'rglId'
as.mesh3d(x, type = NA, subscene = NA, ...)
x |
A vector of RGL identifiers of objects in the specified subscene. |
type |
A vector of names of types of shapes to convert. Other shapes will be ignored. |
subscene |
Which subscene to look in; the default |
... |
Ignored. |
This function attempts to construct a triangle mesh to approximate
one or more objects from the current display. It can handle objects of types from c("points", "lines", "linestrip", "triangles", "quads", "planes", "surface").
Since this method only produces meshes containing points, segments and triangles, they won't necessarily be an exact match to the original object.
If the generic as.mesh3d is called with no x
argument, this method will be called with x set to the
ids in the current scene.
A mesh object.
Duncan Murdoch
as.triangles3d.rglId for extracting the triangles,
clipMesh3d to apply complex clipping to a mesh object.
# volcano example taken from "persp"
#
data(volcano)
z <- 2 * volcano # Exaggerate the relief
x <- 10 * (1:nrow(z)) # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z)) # 10 meter spacing (E to W)
zlim <- range(y)
zlen <- zlim[2] - zlim[1] + 1
colorlut <- terrain.colors(zlen) # height color lookup table
col <- colorlut[ z - zlim[1] + 1 ] # assign colors to heights for each point
open3d(useNULL = TRUE)
surface3d(x, y, z, color = col)
m <- as.mesh3d()
close3d()
open3d()
shade3d(m)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.