Prev: Combinatorica, TransitiveClosure
Next: classroom combinatorics
From: michuco on 1 Aug 2010 04:55
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

From: David Park on 2 Aug 2010 07:01
Every animation, or dynamic presentation, needs a FIXED BACKGROUND. In this
case a fixed PlotRange. Also, ListAnimate appears to require more than two
items in the list.

a = Graphics3D[Line[{{0, 0, 0}, {0, 1, 0}}],
PlotRange -> {{0, 2}, {0, 2}, {0, 1}},
BoxRatios -> {1, 1, .25}];

b = Graphics3D[Line[{{1, 0, 0}, {1, 1, 0}}],
PlotRange -> {{0, 2}, {0, 2}, {0, 1}},
BoxRatios -> {1, 1, .25}];

ListAnimate[{a, b, a, b}, 2]


David Park
djmpark(a)comcast.net
http://home.comcast.net/~djmpark/


From: michuco [mailto:ibmichuco(a)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



From: Peter Pein on 2 Aug 2010 07:06
Am Sun, 1 Aug 2010 08:55:35 +0000 (UTC)
schrieb michuco <ibmichuco(a)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

From: Bob Hanlon on 3 Aug 2010 06:33
Use a fixed PlotRange

a = Graphics3D[{Red, Thick,
Line[{{0, 0, 0}, {0, 1, 0}}]},
PlotRange -> {{0, 1}, {0, 1}, {0, 1}}];

b = Graphics3D[{Red, Thick,
Line[{{1, 0, 0}, {1, 1, 0}}]},
PlotRange -> {{0, 1}, {0, 1}, {0, 1}}];

ListAnimate[{a, b}]


Bob Hanlon

---- michuco <ibmichuco(a)hotmail.com> wrote:

=============
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


 | 
Pages: 1
Prev: Combinatorica, TransitiveClosure
Next: classroom combinatorics