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 > >