viewpoint scale factor
- To: mathgroup at smc.vnet.net
- Subject: [mg16600] viewpoint scale factor
- From: "Naum Phleger" <naum at condor.physics.ucsb.edu>
- Date: Wed, 17 Mar 1999 23:55:06 -0500
- Organization: UCSB
- Sender: owner-wri-mathgroup at wolfram.com
I am trying to make multiple images of a 3-D graphic each from a
different view point, rotating around the object. I am trying to change
ViewPoint but the scaled coordinate system is giving me trouble. Can anyone
tell me an algorithm so that this doesn't happen. Here is sort of what my
code looks like now.
cart[{fi_,theta_}] = { Cos[fi]*Sin[theta] , Sin[fi]*Sin[theta] , Cos[theta]}
rotglobe = Table[ Show[ globe,
Viewpoint->cart[{ 2*pi*(fi-9)/16,pi/2}]
,{fi,16}]
This is supposed to generate 16 images each 1/16th of a rotation from the
last. It all works fine except globe's size keeps changing. I need this
for animation, so I need them all the same. I think it can be fixed by
putting a scaling factor in front of the cart, but I can't figure out what
this factor should be. Thank you for any help.
Naum Phleger
Gwinn Group: Naum's House:
University of California 6735 Trigo Rd. Apt. A
Santa Barbara, CA 93106 Isla Vista, CA 93117
Phone: (805) 893-8656 Phone: (805) 961-8282
naum at condor.physics.ucsb.edu