Вот пример использования плоскости отсечения, чтобы обойти левую сторону объекта me sh:
library(rgl)
open3d()
root <- currentSubscene3d()
newSubscene3d("inherit", "inherit", "inherit", parent = root) # Clipping limited to this subscene
shade3d(addNormals(subdivision3d(icosahedron3d(), 2)), col = "pink")
clipplanes3d(a = 1, b = 0, c = 0, d = 0)
useSubscene3d(root)
decorate3d()
Переплет с подценами ограничивает отсечение только заштрихованной сферой, а не всем еще на картинке.
Это приводит к выводу:
Если там больше ничего нет, проще:
library(rgl)
open3d()
shade3d(addNormals(subdivision3d(icosahedron3d(), 2)), col = "pink")
clipplanes3d(a = 1, b = 0, c = 0, d = 0)
который производит