Using ClipPlanes with AnatomyData

Question

Suppose I render a simple eyeball:

AnatomyPlot3D[Entity["AnatomicalStructure", "RightEyeball"]]

but want to cut it in half using ClipPlanes, for instance to eliminate the left half of the eyeball.

By what principled method do I know how to specify the plane? I tried the obvious

ClipPlanes -> {1,0,0,0}

and

{{0,0,0},{0,1,0},{0,0,1}}

without success.

score 4 · Accepted Answer · answered Mar 23 '19 at 07:06

4

Of course ClipPlanes works here. The problem is that you had mistakenly assumed the PlotRange:

eyeball = AnatomyPlot3D[Entity["AnatomicalStructure", "RightEyeball"]];

pr = PlotRange[eyeball]
   {{-43.6181, -17.298}, {-166.051, -138.829}, {1504.96, 1531.19}}

Thus,

Show[eyeball, 
     ClipPlanes -> InfinitePlane[Mean[Transpose[pr]], {1, -1} IdentityMatrix[3][[{2, 3}]]]]

eyeball cross-section

answered Mar 23 '19 at 07:06

J. M.'s missing motivation

124,525
11
401
574

I didn't know how to get the PlotRange of the object. Simple! Thanks so much. (Accept) – David G. Stork Mar 23 '19 at 07:32
Another way of finding the center of the eyeball is with EntityValue[eyeball, "EnclosingSphere"][[1]]. – Roman Mar 23 '19 at 12:55
@J.M. Do you know of a place where this functionality of PlotRange is documented? – Lukas Lang Mar 23 '19 at 13:04
@Lukas, I do not believe it is documented, but it's been around for a long while. – J. M.'s missing motivation Mar 23 '19 at 13:07

Using ClipPlanes with AnatomyData

1 Answers1