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