
Last chance! 50% off unlimited learning
Sale ends in
Load an `mesh3d` (or `shapelist3d`) object, as specified in the `rgl` package.
mesh3d_model(
mesh,
x = 0,
y = 0,
z = 0,
swap_yz = FALSE,
reverse = FALSE,
scale_mesh = 1,
verbose = FALSE,
override_material = FALSE,
material = diffuse(),
angle = c(0, 0, 0),
order_rotation = c(1, 2, 3),
flipped = FALSE,
scale = c(1, 1, 1)
)
Single row of a tibble describing the mesh3d model in the scene.
A `mesh3d` or `shapelist3d` object. Pulls the vertex, index, texture coordinates, normals, and material information. If the material references an image texture, the `mesh$material$texture` argument should be set to the image filename. The `mesh3d` format only supports one image texture per mesh. All quads will be triangulated.
Default `0`. x-coordinate to offset the model.
Default `0`. y-coordinate to offset the model.
Default `0`. z-coordinate to offset the model.
Default `FALSE`. Swap the Y and Z coordinates.
Default `FALSE`. Reverse the orientation of the indices, flipping their normals.
Default `1`. Amount to scale the size of the mesh in all directions.
Default `FALSE`. If `TRUE`, prints information about the mesh to the console.
Default `FALSE`. If `TRUE`, overrides the material specified in the `mesh3d` object with the one specified in `material`.
Default diffuse
.The material, called from one of the material
functions diffuse
, metal
, or dielectric
.
Default `c(0, 0, 0)`. Angle of rotation around the x, y, and z axes, applied in the order specified in `order_rotation`.
Default `c(1, 2, 3)`. The order to apply the rotations, referring to "x", "y", and "z".
Default `FALSE`. Whether to flip the normals.
Default `c(1, 1, 1)`. Scale transformation in the x, y, and z directions. If this is a single value, number, the object will be scaled uniformly. Note: emissive objects may not currently function correctly when scaled.
#Load a mesh3d object (from the Rvcg) and render it:
if(length(find.package("Rcvg", quiet=TRUE)) > 0) {
library(Rvcg)
data(humface)
generate_studio() %>%
add_object(mesh3d_model(humface,y=-0.3,x=0,z=0,
material=glossy(color="dodgerblue4"), scale_mesh = 1/70)) %>%
add_object(sphere(y=5,x=5,z=5,material=light(intensity=50))) %>%
render_scene(samples=128,width=800,height=800,
lookat = c(0,0.5,1), aperture=0.0)
}
Run the code above in your browser using DataLab