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.