# Wolfram Mathematica

## Create Highly Styled Models

Show a cutaway model of the human head.

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