MathGroup Archive 2000

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

Search the Archive

Re: Need Help With Simple Animation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg25122] Re: [mg25091] Need Help With Simple Animation
  • From: Matt.Johnson at autolivasp.com
  • Date: Sun, 10 Sep 2000 03:14:43 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Steve-

Mathematica is defining slightly different plot ranges in each of your
graphics.  Explicitely add a PlotRange -> {{xmin, xmax}, {ymin, ymax},
{zmin, zmax}} option to each of your graphics that specifies exactly the
same plot range for each graphic.

-matt






com3 at ix.netcom*NOSPAM*.com on 09/08/2000 01:00:39 AM

cc:

Subject: [mg25122]  [mg25091] Need Help With Simple Animation


I'm in need of some help with a simple animation in ver. 3.

When I double click on the first image below the ShowAnimation
command, the frames are animated but there is a slight "jiggle" in the
coordinate axes I have placed on the image. The only moving element
should be the red line. In my real application I have many more frames
and the "jiggle" becomes much more pronounced. Is there anyway to lock
down all elements except the ones that I want to move ? My code is
below. Any help is greatly appreciated.

Thanks,

Steve

f1={33.81,12.18,37.00};
f2={35.52,12.38,35.28};
f10={49.87,12.19,4.93};

frame1=Show[Graphics3D[{
{RGBColor[0,0,1],Line[{{0,0,0},{0,0,52}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{52,0,0}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{0,52,0}}]},
{AbsolutePointSize[5],RGBColor[0,0,0], Point[{0,0,0}]},
{AbsolutePointSize[5],RGBColor[1,0,0],Point[{6.042,.941,24.5595}]},
{AbsolutePointSize[5],RGBColor[0,0,1],Point[{33.813,12.19,37.0}]},
{AbsolutePointSize[5],RGBColor[0,1,0],Point[{49.8863,12.19,4.871}]},
{Text["X",{52,0,0},TextStyle->"Bold"]},
{Text["Y",{0,52,0},TextStyle->"Bold"]},
{Text["Z",{0,0,52},TextStyle->"Bold"]},
{RGBColor[1,0,0],Line[{{6.042,.941,24.5595},f1}]}
}],SphericalRegion -> True]

frame2=Show[Graphics3D[{
{RGBColor[0,0,1],Line[{{0,0,0},{0,0,52}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{52,0,0}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{0,52,0}}]},
{AbsolutePointSize[5],RGBColor[0,0,0], Point[{0,0,0}]},
{AbsolutePointSize[5],RGBColor[1,0,0],Point[{6.042,.941,24.5595}]},
{AbsolutePointSize[5],RGBColor[0,0,1],Point[{33.813,12.19,37.0}]},
{AbsolutePointSize[5],RGBColor[0,1,0],Point[{49.8863,12.19,4.871}]},
{Text["X",{52,0,0},TextStyle->"Bold"]},
{Text["Y",{0,52,0},TextStyle->"Bold"]},
{Text["Z",{0,0,52},TextStyle->"Bold"]},
{RGBColor[1,0,0],Line[{{6.042,.941,24.5595},f2}]}
}],SphericalRegion -> True]

frame10=Show[Graphics3D[{
{RGBColor[0,0,1],Line[{{0,0,0},{0,0,52}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{52,0,0}}]},
{RGBColor[0,0,1],Line[{{0,0,0},{0,52,0}}]},
{AbsolutePointSize[5],RGBColor[0,0,0], Point[{0,0,0}]},
{AbsolutePointSize[5],RGBColor[1,0,0],Point[{6.042,.941,24.5595}]},
{AbsolutePointSize[5],RGBColor[0,0,1],Point[{33.813,12.19,37.0}]},
{AbsolutePointSize[5],RGBColor[0,1,0],Point[{49.8863,12.19,4.871}]},
{Text["X",{52,0,0},TextStyle->"Bold"]},
{Text["Y",{0,52,0},TextStyle->"Bold"]},
{Text["Z",{0,0,52},TextStyle->"Bold"]},
{RGBColor[1,0,0],Line[{{6.042,.941,24.5595},f10}]}
}],SphericalRegion -> True]

ShowAnimation[{frame1,frame2,frame10,frame1},SphericalRegion -> True,
  ViewPoint->{1.3,-2.4,2}]
For any e-mail responses, please remove *NOSPAM* from my address.







  • Prev by Date: RE: Need Help With Simple Animation
  • Next by Date: Re: Square Roots mod n (n composite)
  • Previous by thread: RE: Need Help With Simple Animation
  • Next by thread: 1.11.5 Exporting Formulas from Notebooks