객체 특유 클리핑 평면: Wolfram Language 11의 신기능

객체 특유 클리핑 평면

단일 객체에 특유의 클리핑 평면을 설정합니다.

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[5]:=

bunny = RandomChoice[
   ExampleData[{"Geometry3D", "StanfordBunny"}, "VertexData"], 2000];
noise = Point[RandomReal[{-.1, .2}, {10000, 3}]];

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}]

동영상 작동

동영상 정지

Wolfram 언어™

객체 특유 클리핑 평면

관련 예제