MathGroup Archive 1999

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

Search the Archive

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



  • Prev by Date: Re: help
  • Next by Date: Re: Re: StartingParameters
  • Previous by thread: Re: Integration using "shortcut keys"
  • Next by thread: need a hand ordering functions