Set material properties for geometry appearance.
rgl.material(
color = c("white"),
alpha = c(1.0),
lit = TRUE,
ambient = "black",
specular = "white",
emission = "black",
shininess = 50.0,
smooth = TRUE,
texture = NULL,
textype = "rgb",
texmipmap = FALSE,
texminfilter = "linear",
texmagfilter = "linear",
texenvmap = FALSE,
front = "fill",
back = "fill",
size = 3.0,
lwd = 1.0,
fog = TRUE,
point_antialias = FALSE,
line_antialias = FALSE,
depth_mask = TRUE,
depth_test = "less",
...
)
material3d(...)
vector of R color characters. Represents the diffuse component in case of lighting calculation (lit = TRUE), otherwise it describes the solid color characteristics.
logical, specifying if lighting calculation should take place on geometry
properties for lighting calculation. ambient, specular, emission are R color character string values; shininess represents a numerical.
vector of alpha values between 0.0 (fully transparent) .. 1.0 (opaque).
logical, specifying whether Gouraud shading (smooth) or flat shading should be used.
path to a texture image file. Supported formats: png.
specifies what is defined with the pixmap
alpha values
luminance
luminance and alpha
color
color and alpha texture
Logical, specifies if the texture should be mipmapped.
specifies the magnification filtering type (sorted by ascending quality):
texel nearest to the center of the pixel
weighted linear average of a 2x2 array of texels
specifies the minification filtering type (sorted by ascending quality):
texel nearest to the center of the pixel
weighted linear average of a 2x2 array of texels
low quality mipmapping
medium quality mipmapping
medium quality mipmapping
high quality mipmapping
logical, specifies if auto-generated texture coordinates for environment-mapping should be performed on geometry.
Determines the polygon mode for the specified side:
filled polygon
wireframed polygon
point polygon
culled (hidden) polygon
numeric, specifying the size of points in pixels
numeric, specifying the line width in pixels
logical, specifying if fog effect should be applied on the corresponding shape
logical, specifying if points and lines should be antialiased
logical, specifying whether the object's depth should be stored.
Determines which depth test is used to see if this
object is visible, depending on its apparent depth in the scene
compared to the stored depth. Possible values are "never"
,
"less"
(the default), "equal"
, "lequal"
(less than or equal), "greater"
, "notequal"
,
"gequal"
(greater than or equal), "always"
.
Any of the arguments above can
be passed to material3d
; see Details below. rgl.material
will ignore others.
rgl.material()
is called for the side effect of setting the material properties.
It returns a value invisibly which is not intended for use by the user.
Users should use material3d()
to query material properties. It returns values similarly
to par3d
as follows:
When setting properties, it returns the previous values in a named list. A named list is also
returned when more than one value is queried. When a single value is queried it is returned
directly.
Values can be queried by specifying their names
in a character vector, e.g. material3d("color")
.
There is one read-only property that can be queried
but not set:
Is the current colour transparent?
Only one side at a time can be culled.
material3d
is an alternate interface to the material properties, modelled after
par3d
: rather than setting defaults for parameters that are not specified,
they will be left unchanged. material3d
may also be used to query the material
properties; see the examples below.
The current implementation does not return parameters for textures.
If point_antialias
is TRUE
, points will be drawn as circles; otherwise, they
will be drawn as squares. Lines tend to appear heavier with line_antialias == TRUE
.
The material
member of the r3dDefaults
list may be used to
set default values for material properties.
The ...
parameter to rgl.material
is ignored.
# NOT RUN {
save <- material3d("color")
material3d(color = "red")
material3d("color")
material3d(color = save)
# this illustrates the effect of depth_test
x <- c(1:3); xmid <- mean(x)
y <- c(2, 1, 3); ymid <- mean(y)
z <- 1
open3d()
tests <- c("never", "less", "equal", "lequal", "greater",
"notequal", "gequal", "always")
for (i in 1:8) {
triangles3d(x, y, z + i, col = heat.colors(8)[i])
texts3d(xmid, ymid, z + i, paste(i, tests[i], sep = ". "), depth_test = tests[i])
}
highlevel() # To trigger display
# }
Run the code above in your browser using DataLab