メッシュコンポーネントのスタイル付け 

メッシュのコンポーネントには描写のためにスタイルを付けることができる．

In[1]:=

X MeshRegion[{{0, 0}, {1, 0}, {0, 1}}, Polygon[{1, 2, 3}], MeshCellStyle -> {1 -> Red}]

Out[1]=

すでに作成されたメッシュにはHighlightMeshを使ってスタイルを付けることができる．

In[2]:=

X mesh2d = DelaunayMesh[RandomReal[1, {20, 2}]]; HighlightMesh[mesh2d, Style[{2, {1, 2, 3, 4, 5}}, Red]]

Out[2]=

3Dメッシュの面を透明にすると，内部構造が見えるようになる．

In[3]:=

X HighlightMesh[DelaunayMesh[RandomReal[1, {10, 3}]], Style[2, Opacity[0.3]]]

Out[3]=

多面体の面を，それぞれの面が持つ頂点の数に従って色付けする．

完全なWolfram言語入力を表示する入力を隠す

In[4]:=

X ColoredPolyhedron[name_String] := Module[{faces}, faces = GatherBy[PolyhedronData[name, "FaceIndices"], Length[#] &]; BoundaryMeshRegion[PolyhedronData[name, "VertexCoordinates"], Table[Style[Polygon[faces[[i]]], ColorData[100, i]], {i, Length[faces]}]] ]

In[5]:=

X Grid[Partition[ ColoredPolyhedron /@ Take[PolyhedronData["Archimedean"], 12], 4]]

Out[5]=