RE: Real-time rotations of 3-D plots
- To: mathgroup at smc.vnet.net
- Subject: [mg41429] RE: [mg41396] Real-time rotations of 3-D plots
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 19 May 2003 05:11:51 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Bill,
Use SpinShow from the Animation package, or if you have Windows use
RealTime3D. (I'm not certain if RealTime3D now works on other platforms or
not - I think it might.)
Here is an example...
Needs["Graphics`Animation`"]
surface[u_, v_] := {Cos[u](Cos[2u]^2 + 3Sin[2u]^2)Cos[v],
Sin[u](Cos[2u]^2 + 2Sin[2u]^2)Cos[v], Sin[v]}
plot1 =
ParametricPlot3D[
surface[u, v] // Evaluate, {v, -Pi/2, \[Pi]/6}, {u, 0, 2Pi},
Axes -> None,
Boxed -> False,
PlotPoints -> {15, 41},
ImageSize -> 450];
SpinShow[plot1]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.01];
FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
AnimationDirection -> Forward]}]
Using the up/down cursor keys is a nice way to examine animations at
leisure.
For the real time 3d use...
<< RealTime3D`
Show[plot1]
<< Default3D`
You can then use the mouse to rotate the image and if you hold down Ctrl you
can use the mouse to zoom in and out.
Jens-Peer Kuska also has a fairly fancy real time 3D package...
http://phong.informatik.uni-leipzig.de/~kuska/
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: William Doak, Jr [mailto:bill.doak at worldnet.att.net]
To: mathgroup at smc.vnet.net
How does a user do real-time rotations of 3-D plots in Mathematica?