Mesh3d 3D Model

mesh3d_mesh(
  mesh,
  center = FALSE,
  position = c(0, 0, 0),
  scale = c(1, 1, 1),
  angle = c(0, 0, 0),
  pivot_point = c(0, 0, 0),
  order_rotation = c(1, 2, 3),
  materialspath = NULL,
  material = material_list()
)

Arguments

mesh

Mesh3d object.

center

Default `FALSE`. Whether to center the mesh.

position

Default `c(0,0,0)`. Position of the mesh.

scale

Default `c(1,1,1)`. Scale of the mesh. Can also be a single numeric value scaling all axes uniformly.

angle

Default `c(0,0,0)`. Angle to rotate the mesh.

pivot_point

Default `c(0,0,0)`. Point around which to rotate the mesh.

order_rotation

Default `c(1,2,3)`. Order to rotate the axes.

materialspath

Default `NULL`. Path to the MTL file, if different from the OBJ file.

material

Default `NULL`, read from the MTL file. If not `NULL`, this accepts the output from the `material_list()` function to specify the material.

Value

List describing the mesh.

Examples

# \dontshow{
options("cores"=1)
# }
#Read in a mesh3d object and rasterize it
# \donttest{
if(length(find.package("Rvcg", quiet=TRUE)) > 0) {
  library(Rvcg)
  data(humface)
  
  mesh3d_mesh(humface,position = c(0,-0.3,0),scale = 1/70,
              material=material_list(diffuse="dodgerblue4", type="phong", shininess=20,
              ambient = "dodgerblue4", ambient_intensity=0.3)) %>%
    rasterize_scene(lookat = c(0,0.5,1), light_info = directional_light(c(1,0.5,1)))
}
#> Error in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]): there is no package called ‘terra’
# }