細かくスタイルの付いたモデルを生成する
ヒトの頭部の断面模型を表示する.
In[1]:=
AnatomyPlot3D[{{ClipPlanes -> {InfinitePlane[{{-50, -146,
1500}, {-20, -146 - 20, 1550}, {-50, -146 - 20, 1500}}]},
Entity["AnatomicalStructure", "Skull"]},
Entity["AnatomicalStructure", "Eye"],
Entity["AnatomicalStructure", "RightCerebralHemisphere"],
Directive[Specularity[White, 50], Hue[.58, 0, 1, .1],
Lighting ->
Join[{{"Ambient", Black}},
Table[{"Directional", Hue[.58, .5, 1],
ImageScaled[{Sin[x], Cos[x], -.5}]}, {x, 0,
2 \[Pi] - \[Pi]/4, \[Pi]/4}]]],
Entity["AnatomicalStructure", "Nose"],
Entity["AnatomicalStructure", "Neck"],
Entity["AnatomicalStructure", "SkinOfHead"],
Entity["AnatomicalStructure", "SkinOfNeck"],
Entity["AnatomicalStructure", "Lip"],
Entity["AnatomicalStructure", "Ear"]},
PlotRange -> Entity["AnatomicalStructure", "Head"],
PlotRangePadding -> 10, Background -> Hue[.58, 1, .3],
SphericalRegion -> True, ViewPoint -> {-1.18, -1.49, -0.07},
ViewVertical -> {0.015, -0.044, 1.0}, ViewAngle -> \[Pi]/5,
ImageSize -> {400, 400}]
Out[1]=