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.