Re: Areas via Rotation
- To: mathgroup at smc.vnet.net
- Subject: [mg17096] Re: Areas via Rotation
- From: "P.J. Hinton" <paulh>
- Date: Fri, 23 Apr 1999 02:32:24 -0400
- Organization: "Wolfram Research, Inc."
- Sender: owner-wri-mathgroup at wolfram.com
On Thu, 15 Apr 1999, Robert Hoopes wrote:
> >On what part are you stuck? Creating the images that make up frames of
> >the animation, displaying the animation in the front end, or converting
> >the frames into a standalone movie format?
>
> I am confused on how to make the frames, and how to convert it to a movie.
Here is a walk-through for a paraboloid.
(* This loads a standard package that allows you to generate cylindrical
plots *)
Needs["Graphics`ParametricPlot3D`"]
(* We Table[] to generate several snapshots of the paraboloid at
incremental angles of Pi/4 radians. *)
Table[CylindricalPlot3D[r^2, {r, 0, 1},
{\[Theta], 0, \[Theta]max},
ViewPoint -> {1.3, -2.4, 2.},
PlotRange -> {{-1, 1}, {-1, 1}, {0, 1}}],
{\[Theta]max, Pi/4, 2*Pi, Pi/4}]
We can then select the cell bracket that groups the output graphics
together and then click on the front end menu command sequence Cell ->
Animate Selected Graphics.
This will flip the graphics in an animation. Some VCR-like controls
should appear at the foot of the notebook window that allows you to
control the speed of the animation. Click within the notebook to halt the
animation.
If you are using the Macintosh front end, you can also select the group of
cells and then use the front end menu command sequence
Edit -> Save Selection As -> QuickTime
to create a QuickTime movie of the animation.
For more information, paste the following expressions in separate notebook
cells and evaluate them.
FrontEndExecute[FrontEnd`HelpBrowserLookup["RefGuide", "Table"]]
FrontEndExecute[FrontEnd`HelpBrowserLookup["AddOns",
{"Graphics`ParametricPlot3D`", "1.7"}]]
FrontEndExecute[FrontEnd`HelpBrowserLookup["AddOns",
{"Graphics`SurfaceOfRevolution`", "1.7"}]]
FrontEndExecute[FrontEnd`HelpBrowserLookup["OtherInformation",
"Save Selection As"]]
FrontEndExecute[FrontEnd`HelpBrowserLookup["OtherInformation",
"Animate Selected Graphics"]]
--
P.J. Hinton
Mathematica Programming Group paulh at wolfram.com
Wolfram Research, Inc. http://www.wolfram.com/~paulh/
Disclaimer: Opinions expressed herein are those of the author alone.