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.