as.mesh3d.rglId: Convert object in plot to mesh3d object.

Description

This method attempts to read the attributes of objects in the rgl display and construct a mesh3d object to approximate them.

Usage

# S3 method for rglId
as.mesh3d(x, type = NA, subscene = NA, ...)

Arguments

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 NA specifies the current subscene.

…

Ignored.

Value

A triangular mesh object.

Details

This function attempts to construct a triangle mesh to approximate one or more objects from the current display. It can only handle objects of types from c("triangles", "quads", "planes", "surface").

Since this method only produces triangular meshes, 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.

Examples

Run this code

# NOT RUN {
# 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()
rgl.close()

open3d()
shade3d(m)
# }