对象特定的剪切平面
为特定的单个对象设置剪切平面.
In[1]:=

Graphics3D[{Sphere[{0, 0, 0}],
Style[Sphere[{1, 0, 0}],
ClipPlanes -> InfinitePlane[{{0, 0, -1}, {0, 1, 0}, {1, 0, 0}}]]}]
Out[1]=

为对象列表设置剪切平面.
In[2]:=

spheres1 =
Table[Sphere[2 {Quotient[n, 3], Mod[n, 3], 0}], {n, 0, 9, 2}];
spheres2 =
Table[Sphere[2 {Quotient[n, 3], Mod[n, 3], 0}], {n, 1, 8, 2}];
In[3]:=

plane1 = InfinitePlane[{{0, 0, 0.4}, {1, 0, 0.4}, {0, 1, 0.4}}];
plane2 = InfinitePlane[{{0, 0, -0.4}, {0, 1, -0.4}, {1, 0, -0.4}}];
In[4]:=

Graphics3D[{Cyan, Style[spheres1, ClipPlanes -> plane1], Yellow,
Style[spheres2, ClipPlanes -> plane2]}]
Out[4]=

使用剪切平面可视化来清理噪声点云.
显示完整的 Wolfram 语言输入
In[6]:=

Manipulate[
Graphics3D[{Point[bunny],
Style[noise,
ClipPlanes ->
Dynamic[InfinitePlane[{{0, 0, z}, {1, 0, z}, {0, 1, z}}]]]},
PlotRange -> {{-.1, .1}, {-0.1, .1}, {0, 0.2}}], {z, 0, 0.2}]
