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?