Re: Animation of a rotating object. (Mathematica 6)
- To: mathgroup at smc.vnet.net
- Subject: [mg80760] Re: Animation of a rotating object. (Mathematica 6)
- From: "Wim W. Wilhelm" <wilhelm at euronet.nl>
- Date: Sat, 1 Sep 2007 00:23:01 -0400 (EDT)
- References: <fb83p8$849$1@smc.twtelecom.net>
In version 6. you might do the
following:
Manipulate[{Plot3D[Sin[x y], {x, -5, 5},
{y, -5, 5}, MaxRecursion -> 1,
PlotPoints -> 50, Mesh -> None, Boxed ->
False,
ViewPoint -> {x, y, 2}]}, {x, -2, 2},
{y, -2, 2}]
Regards.
Wim W. Wilhelm
"Nacho" <ncc1701zzz at gmail.com> wrote in
message
news:fb83p8$849$1 at smc.twtelecom.net...
> Hello.
>
> I'm trying to make an animation of a
> rotating 3D object and I'm having
> some problems.
>
> I want to make a list of images to
> export them to an AVI file.
>
> For example, the following object:
>
> a = Plot3D[Sin[x y], {x, -5, 5},
> {y, -5, 5}, MaxRecursion -> 1,
> PlotPoints -> 50, Mesh -> None];
>
> I want to rotate it around the z axis
> slowly. I've tried Rotate and
> changing ViewPoint, but neither work
> for me because Rotate distorted
> the scale of every image and changing
> ViewPoint only works if I want
> to rotate everything at the same time.
>
> I think that I should use Rotate, so I
> can Rotate several objects in
> different angles or speeds. But I
> would like to avoid the distortion
> in the size of the image:
>
> I've tried specifying PlotRange, and
> it looks promising, but I have
> two problems: calculating the best
> PlotRange paramters so everything
> is included, and maximizing the
> plotted area (so the white region
> around the objects is minimized).
>
> This is close, but a lot of white
> space is around the object, and I
> have to set the limits of PlotRange by
> try-and-see.
>
> b = Table[
> Graphics3D[Rotate[a[[1]], phi, {0, 0,
> 1}], Boxed -> False,
> PlotRange -> {{-7, 7}, {-7, 7}, {-1,
> 1}}], {phi, 0, 1/4 Pi,
> 1/4 Pi /5}]
>
>
> Any hint to do this?
>
> The object doesn't need to be this
> particular Plot3D. It could be a
> ParametricPlot3D, several Graphics3D
> primitives, etc.
>
> Thanks a lot.
>
> Best regards.
>
>