View source: R/csg_construct.R
csg_group | R Documentation |
CSG Group
csg_group(object_list)
object_list |
List of objects created with the csg_* functions. This will make all further operations be applied to this object as a group. |
List describing the group in the scene.
if(run_documentation()) {
#Group four spheres together and merge them with a box:
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_combine(
csg_group(list(csg_sphere(x=1,z=1, radius=0.5),csg_sphere(x=-1,z=1, radius=0.5),
csg_sphere(x=1,z=-1, radius=0.5),csg_sphere(x=-1,z=-1, radius=0.5))),
csg_box(y=0.5, width=c(2,0.2,2)), operation="blend"), material=glossy(color="red"))) %>%
add_object(sphere(y=10,x=-5,radius=3,material=light(intensity=10))) %>%
render_scene(clamp_value=10, samples=16,lookfrom=c(5,5,10))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.