MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?




  • Prev by Date: Re: Multiple surface plots
  • Next by Date: Re: Multiple surface plots
  • Previous by thread: RE: Real-time rotations of 3-D plots
  • Next by thread: Re: Real-time rotations of 3-D plots