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

RE: Viewing animations also on RealTime3D

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

Lakshmi, 
Try my TaggedCells package available at
http://web.telia.com/~u31815170/Mathematica/! 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
animations.)
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 hotmail.com] 
To: mathgroup at smc.vnet.net
> 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
> 
>