Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: graphics3d listanimate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg111469] Re: graphics3d listanimate
  • From: Peter Pein <petsie at dordos.net>
  • Date: Mon, 2 Aug 2010 07:06:27 -0400 (EDT)
  • References: <i33cq7$82e$1@smc.vnet.net>

Am Sun, 1 Aug 2010 08:55:35 +0000 (UTC)
schrieb michuco <ibmichuco at hotmail.com>:

> Hi,
> 
> Can one use ListAnimate with Graphics3D primitives?
> 
> I have two lines created by
> 
> a = Graphics3D[Line[{{0, 0, 0}, {0, 1, 0}}]];
> b = Graphics3D[Line[{{1, 0, 0}, {1, 1, 0}}]];
> 
> and the following
> 
> ListAnimate[{a,b}]
> 
> doesn't show an animated sequence of two line alternating.
> 
> Any suggestion is appreciated,
> 
> Michuco
> 

Hi,

since both lines are centered, the change between a and b is invisible.

Try:

a=Graphics3D[Line[{{0,0,0},{0,1,0}}],PlotRange->{{-.1,1.1},{-.1,1.1},{-.1,1.1}}];
b=Graphics3D[Line[{{1,0,0},{1,1,0}}],PlotRange->{{-.1,1.1},{-.1,1.1},{-.1,1.1}}];
ListAnimate[{a,b},DisplayAllSteps->True,AnimationRate->1]

hth,
Peter


  • Prev by Date: Re: Disable save in player pro
  • Next by Date: Re: AxesLabel parallel to 3D axes?
  • Previous by thread: Re: graphics3d listanimate
  • Next by thread: Re: graphics3d listanimate