In[]:=
Animate[Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}],{z,-1.95,1.95}]
Out[]=
z
In[]:=
AnimationVideo[Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}],{z,-1.95,1.95}]
AnimationVideo
:Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}] does not yield valid frames.
AnimationVideo
:Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}] does not yield valid frames.
AnimationVideo
:Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}] does not yield valid frames.
General
:Further output of AnimationVideo::badvfunc will be suppressed during this calculation.
AnimationVideo
:Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}] does not yield valid frames.
AnimationVideo
:Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}] does not yield valid frames.
Out[]=
AnimationVideo[Region[RegionIntersection[Sphere[{0,0,0},2],InfinitePlane[{0,0,z},{{1,0,0},{0,1,0}}]],ViewPoint{2,2,2},PlotRange{{-2,2},{-2,2},{-2,2}}],{z,-1.95,1.95}]
​
​