Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

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: [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.


  • Prev by Date: Re: Simple integral wrong
  • Next by Date: Re: Need Help With Simple Animation
  • Previous by thread: Re: Need Help With Simple Animation
  • Next by thread: Re: Need Help With Simple Animation