View source: R/transform_mesh_functions.R
scale_unit_mesh | R Documentation |
Scale Mesh to Unit Bounding Box
scale_unit_mesh(mesh, center_mesh = FALSE)
mesh |
The mesh. |
center_mesh |
Default 'FALSE'. Whether to center the mesh at the origin after scaling. |
Scaled mesh
if(rayvertex:::run_documentation()) {
#Scale a mesh in the Cornell box
robj = obj_mesh(r_obj(), scale=80,angle=c(0,180,0))
generate_cornell_mesh() |>
add_shape(scale_mesh(translate_mesh(robj,c(400,0,155)),0.5, center=c(400,0,155))) |>
add_shape(scale_mesh(translate_mesh(robj,c(555/2,100,555/2)),1.5, center=c(555/2,100,555/2))) |>
add_shape(scale_mesh(translate_mesh(robj,c(155,200,400)),c(0.5,2,0.5), center=c(155,200,400))) |>
scale_unit_mesh(center_mesh = TRUE) |>
rasterize_scene(light_info=directional_light(direction=c(0.1,0.6,-1)),
lookfrom = c(0,0,-2), lookat=c(0,0,0))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.