Group Abstract Group Abstract

Message Boards Message Boards

AnimationVideo fails with same arguments as working Animate

James Bowery
Posted 3 years ago

What must I change in the Animate arguments to get AnimationVideo to work?
POSTED BY: James Bowery
7 Replies
Sort By:

This seems to work:

AnimationVideo[
 Graphics3D[
  MeshPrimitives[
   DiscretizeRegion@
    RegionIntersection[Sphere[{0, 0, 0}, 2], 
     InfinitePlane[{0, 0, z}, {{1, 0, 0}, {0, 1, 0}}]], 1], 
  ViewPoint -> {2, 2, 2}, 
  PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}], {z, -1.95, 1.95, .5}]

I really I knew an easier way to turn a Region into Graphics3D.
POSTED BY: Gianluca Gorni
James Bowery
James Bowery
Posted 3 years ago
POSTED BY: James Bowery

If you really want to be lazy, Rasterize can convert any expression in the forntend to an Image So AnimationVideo[Rasterize[whaterver]] will always work.

AnimationVideo[
 Rasterize@
  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}]
POSTED BY: Martijn Froeling
POSTED BY: Martijn Froeling

I meant, instead of Region.
POSTED BY: Gianluca Gorni
James Bowery
James Bowery
Posted 3 years ago

Doing that substitution at least produces a video but it consists only of a bounding cube. It doesn't contain the animated circle when played.
POSTED BY: James Bowery

Try RegionPlot3D
POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard