Re: Re: Stopping Automatic Animation in v6
- To: mathgroup at smc.vnet.net
- Subject: [mg76809] Re: [mg76765] Re: Stopping Automatic Animation in v6
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 28 May 2007 00:49:43 -0400 (EDT)
- Reply-to: hanlonr at cox.net
I do not experience an animation problem. However, I offer some more compact ways of specifying the graphics.
p = {{0, 0, 3 Sqrt[6]}, {-2 Sqrt[3], -6, -Sqrt[6]}, {-2 Sqrt[3],
6, -Sqrt[6]}, {4 Sqrt[3], 0, -Sqrt[6]}};
Original:
Graphics3D[{Line[{p[[1]], p[[2]]}], Line[{p[[1]], p[[3]]}],
Line[{p[[1]], p[[4]]}], Line[{p[[2]], p[[3]]}], Line[{p[[2]], p[[4]]}],
Line[{p[[3]], p[[4]]}]}]
Alternatives:
Graphics3D[{Line[p[[{1, 2}]]], Line[p[[{1, 3}]]], Line[p[[{1, 4}]]],
Line[p[[{2, 3}]]], Line[p[[{2, 4}]]], Line[p[[{3, 4}]]]}]
Graphics3D[Line[(p[[#]] & ) /@ Subsets[Range[4], {2}]]]
Graphics3D[Line[p[[Flatten[Subsets[Range[4], {2}]]]]]]
Bob Hanlon
---- Brian Gladman <brg at nowhere.org> wrote:
> "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com> wrote in message
> news:f38s5g$icv$1 at smc.vnet.net...
> > Brian Gladman wrote:
> >> I am trying to visualise the exact relationship between some 3D objects
> >> by
> >> using Graphics3D to display them. But as soon as I evaluate the
> >> expression,
> >> Mathematica 6 goes into some automated animation mode which destroys the
> >> relationship I am trying to set up since I need fixed objects viewed from
> >> a
> >> specified and fixed viewpoint.
> >>
> >> But I cannot find any option in Graphics3D to turn off this automatic
> >> animation. How do I force Graphics=C3=82=C2=A3D to display only what is asked for
> >> and
> >> not
> >> an animation of it?
> >>
> >> Any help with this would be much appreciated as its proving to be a real
> >> pain.
> >>
> >> Brian Gladman
> >
> > Brian,
> >
> > Could you, please, provide an example of an expression that behaves in
> > the incriminated way? By default, graphics (2D or 3D) are drawn static.
> > For example, evaluating
> >
> > Graphics3D[{Blue, Cylinder[], Red, Sphere[{0, 0, 2}], Black, Thick,
> > Dashed, Line[{{-2, 0, 2}, {2, 0, 2}, {0, 0, 4}, {-2, 0, 2}}],
> > Yellow, Polygon[{{-3, -3, -2}, {-3, 3, -2}, {3,
> > 3, -2}, {3, -3, -2}}], Green, Opacity[.3],
> > Cuboid[{-2, -2, -2}, {2, 2, -1}]}]
> >
> > draws several 3D objects without any animation.
>
> Hi Jean-Marc
>
> Here is an example that shows the issue.
>
> p = {{0, 0, 3 Sqrt[6]}, {-2 Sqrt[3], -6, -Sqrt[6]}, {-2 Sqrt[3],
> 6, -Sqrt[6]}, {4 Sqrt[3], 0, -Sqrt[6]}}
> Graphics3D[{{Line[{p[[1]], p[[2]]}], Line[{p[[1]], p[[3]]}],
> Line[{p[[1]], p[[4]]}], Line[{p[[2]], p[[3]]}],
> Line[{p[[2]], p[[4]]}], Line[{p[[3]], p[[4]]}]}}]
>
> The very first time this is evaluated after starting up Mathematica, it is
> static but all subsequent evaluations, for example, with a change of one of
> the lines, are then immediately dynamic. That is, animation starts as soon
> as the expression is re-evaluated. Moreover if I make a change in the
> expression and re-evaluate it, the graphic animation continues from the last
> position it reached and not from the initial position set by the expression
> re-evaluation.
>
> What I am looking for is a switch to simply say that for this particular
> object animation should not be undertaken.
>
> > Or are you talking about the new real-time feature that allows the user
> > to rotate or expand or shrink 3D graphics with the mouse?
>
> I think it is related to this in some way. These are great new capabilities
> but it is not obvious to me how I can switch them on and off.
>
> Thanks for taking an interest in the issue.
>
> best regards,
>
> Brian
>
>