       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.

```

• Prev by Date: Re: Vector file out of Mathematica?
• Next by Date: Re: Re: Summation question
• Previous by thread: Re: Sterographic display
• Next by thread: importing data from Excel to Mathematica