RE: Need Help With Simple Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg25117] RE: [mg25091] Need Help With Simple Animation
- From: PNichols at cornell-iowa.edu
- Date: Sun, 10 Sep 2000 03:14:38 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In ShowAnimation, try giving the PlotRange option an explicit setting (i.e.
PlotRange->{{xmin,xmax},{ymin,ymax},{zmin,zmax}}, not PlotRange->Automatic).
Preston Nichols
Mathematics Department
Cornell College
-----Original Message-----
From: com3 at ix.netcom*NOSPAM*.com [mailto:com3 at ix.netcom*NOSPAM*.com]
To: mathgroup at smc.vnet.net
Subject: [mg25117] [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.