MathGroup Archive 2006

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

Search the Archive

RE: Viewing animations also on RealTime3D

  • To: mathgroup at
  • Subject: [mg67527] RE: [mg67477] Viewing animations also on RealTime3D
  • From: "Ingolf Dahl" <ingolf.dahl at>
  • Date: Thu, 29 Jun 2006 00:10:19 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

Try my TaggedCells package available at! With this you can change the
ViewPoint during the display of a RealTime3D animation. (The animations are
dynamically Kernel-controlled, not FrontEnd controlled as normal
But please note that this is a BETA version, still with some bugs.
The RemoveDoublets filter used for RealTime3D is superfluous for Mathematica
5.1 and 5.2 (thanks Yuri!), but it does not hurt. 
I will correct some errors in the commands EvaluateWithTaggedCellButton,
InterruptButton and InterruptWithTaggedCellButton in the next version,
coming soon.
I am grateful for any test pilot (on your own risk!) checking and commenting
the package, and will make a new announcement to MathGroup when a more final
package is available.

Best regards

Ingolf Dahl

> -----Original Message-----
> From: Narasimham [mailto:mathma18 at] 
To: mathgroup at
> Subject: [mg67527] [mg67477] Viewing animations also on RealTime3D
> Is it possible to get combined viewing of Display of motion 
> AND Change of ViewPoint e.g.,
> A line rotating in a vertical plane with uniform speed or a 
> pendulum oscillating  in a vertical plane  or great circle 
> dynamic orbits on a sphere
> with ...
> 1)ViewPoint varied around its plane of rotation  for lateral 
> view in RealTime3D using a mouse and
> 2) When several time separated frames are already made by animation?
> i.e., without resorting to a direct SpinShow?
> I wish to be able to see a point moving on a great circle of 
> a sphere from all sides. Motion on the invisible side could 
> be made visible by motion of the gripped mouse. The SpinShow 
> can be controlled. That would be useful and quite a fun too.
> Thanks in advance.
> The following as it is does not work.
> << Graphics`Animation`; << RealTime3D` ;
>  ShowAnimation[
>         Table[Graphics[Line[{{0,0},{Cos[t],Sin[t]}}],
>             PlotRange\[Rule]{{-1,1},{-1,1}},
>             AspectRatio->Automatic ],{t,0,2Pi,Pi/12}]];
>     <<Default3D`
>   Lakshmi Narasimham

  • Prev by Date: Re: Pattern Matching for Exponentials
  • Next by Date: Re: Limit of an expression?
  • Previous by thread: Viewing animations also on RealTime3D
  • Next by thread: RE:creating packages of my own.