Hochstilisierte Modelle erstellen: Neu in Wolfram Language 11

Hochstilisierte Modelle erstellen

Visualisieren Sie ein Schnittmodell des menschlichen Kopfes.

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