Re: Sterographic display

*To*: mathgroup at smc.vnet.net*Subject*: [mg85753] Re: Sterographic display*From*: Szabolcs Horvát <szhorvat at gmail.com>*Date*: Thu, 21 Feb 2008 17:56:49 -0500 (EST)*Organization*: University of Bergen*References*: <fpdvnd$s1r$1@smc.vnet.net> <fphc12$87i$1@smc.vnet.net>

Pianiel wrote: > Hi, > > Yes the two viewpoints can be adjusted together. > > Here is a code which can do the job in Mathematica 6.0: > > Manipulate[ > With[{v = RotationTransform[Angle, {0, 0, 1}][{3, 0, 3}], > w = RotationTransform[Angle + 0.1, {0, 0, 1}][{3, 0, 3}]}, Row[{ > Graphics3D[{Sphere[], Cuboid[]}, ViewPoint -> v, SphericalRegion -> > True, > ImageSize -> 200], > Graphics3D[{Sphere[], Cuboid[]}, ViewPoint -> w, SphericalRegion -> > True, > ImageSize -> 200]}]], {Angle, 0, 2 Pi}] > Here's another way to rotate two objects together (just start dragging one of them): Row[ {Graphics3D[Cuboid[], ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv], SphericalRegion -> True], Graphics3D[Cuboid[], ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv], SphericalRegion -> True]} ] This example just illustrates the concept, of course it needs a lot more work to build something useful and usable.