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.