Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Synchronous zooming of 3D graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95937] Synchronous zooming of 3D graphics
  • From: Fred <fred.heberle at gmail.com>
  • Date: Fri, 30 Jan 2009 05:44:22 -0500 (EST)

Hi,

I'm trying to link the real-time actions of two 3D graphics objects in
a graphics row (a stereo pair).  After a web search, I found a nice
way to link the rotation of the two 3D objects, but nothing about how
to link zoom (or translation for that matter).  I'm not even sure
which Graphics3D options are changing when a 3D object is zoomed in or
out.  While I can dynamically display the values of ViewPoint and
ViewVertical, I can't do the same for any of the other relevant
options (ViewMatrix, ViewCenter, ViewVector) that I suspect might be
changing during a zoom (AbsoluteOptions just shows "Automatic" for
these options, so I think there's a bug).

Here is the code I found for linking rotation (courtesy of
http://web.ift.uib.no/~szhorvat/mmatricks.php):

gr = Graphics3D[Cuboid[], SphericalRegion -> True, Boxed -> False]

(* Initialize vp and vv with the default values: *)

vp = ViewPoint /. Options[Graphics3D]
vv = ViewVertical /. Options[Graphics3D]

Row[
 {Show[gr, ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv]],
  Show[gr, ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv]]}
]

Does anyone know of some similar trick for linking zoom?  Thanks.


  • Prev by Date: Re: ListCurvePathPlot
  • Next by Date: Re: Frame does not show up?
  • Previous by thread: BarChart3D with Ticks-option in Mathematica 7
  • Next by thread: Re: Synchronous zooming of 3D graphics