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

MathGroup Archive 2007

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

Search the Archive

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



  • Prev by Date: Re: Re: Re: What to do in v. 6 in place of Miscellaneous`RealOnly
  • Next by Date: Re: Re: Re: What to do in v. 6 in place of Miscellaneous`RealOnly
  • Previous by thread: Re: Re: Stopping Automatic Animation in v6
  • Next by thread: Re: Stopping Automatic Animation in v6