MathGroup Archive 2008

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

Search the Archive

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