open3d()
# Notice that the alpha setting for the cube is dropped, because
# the other shapes don't specify alpha.
shade3d(merge(cube3d(col="red", alpha = 0.5),
translate3d(tetrahedron3d(col="green"), 2, 0, 0),
translate3d(octahedron3d(col="blue"), 4, 0, 0)))
Run the code above in your browser using DataLab