Re: How to create an animation of a rotating rectangle?
- To: mathgroup at smc.vnet.net
- Subject: [mg82509] Re: How to create an animation of a rotating rectangle?
- From: Yaroslav Bulatov <yaroslavvb at gmail.com>
- Date: Tue, 23 Oct 2007 05:27:22 -0400 (EDT)
- References: <ffhr6a$4r9$1@smc.vnet.net>
You could try
Cuboid[{-1, -2, -.01}, {1, 2, .01}] //
Rotate[#, d Degree, {-1, 2, 0}] & //
Graphics3D[#, ViewPoint -> {0, -10, 10}, ViewAngle -> Pi/30,
Boxed -> False, PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}}] & //
Animate[#, {d, 0, 360, 1}] &
On Oct 22, 2:40 am, sergi... at mail.com wrote:
> Hello,
>
> Using Mathematica, I would appreciate your help on creating the
> animation of a rectangle rotating about any one of its diagonal,
> either counterclockwise or clockwise. I would appreciate links to
> further reading on this topic.
>
> Thanks in advance,
>
> Sergio