MathGroup Archive 2008

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

Search the Archive

Re: Sterographic display


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