Translate Mesh

translate_mesh(mesh, position = c(0, 0, 0))

Arguments

mesh

The mesh.

position

Default `c(0,0,0)`. The translation vector.

Value

Translated mesh

Examples

# \dontshow{
options("cores"=1)
# }
#Translate a mesh in the Cornell box
robj = obj_mesh(r_obj(), scale=80,angle=c(0,180,0))
# \donttest{
generate_cornell_mesh() %>% 
 add_shape(translate_mesh(robj,c(400,0,155))) %>% 
 add_shape(translate_mesh(robj,c(555/2,100,555/2))) %>% 
 add_shape(translate_mesh(robj,c(155,200,400))) %>% 
 rasterize_scene(light_info=directional_light(direction=c(0.1,0.6,-1)))
#> Setting default values for Cornell box: lookfrom `c(278,278,-800)` lookat `c(278,278,0)` fov `40` .
#> Error in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]): there is no package called ‘terra’
 # }