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