MathGroup Archive 2010

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

Search the Archive

Graphics3D stereo

  • To: mathgroup at smc.vnet.net
  • Subject: [mg111150] Graphics3D stereo
  • From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
  • Date: Thu, 22 Jul 2010 05:41:23 -0400 (EDT)
  • Reply-to: stevebg at ROADRUNNER.COM

I have this code and data and to visualize the 3D graph effectively, I 
want to view it in side-by-side stereo. The two calls to Graphics3D 
work, but I can't seem to find two viewpoints that give a vivid stereo 
effect. (I have successfully viewed many stereo pics in the past in 
print media.)

Does anyone have experience with stereo pairs? One more question: what's 
a good and easy way to chop off N low-order digits, not just for display 
but in numeric value? I truncated these values by hand. Also I found 
that I had to create a color table manually to give the best color 
contrasts. The color table wraps around in case there are more lines 
than colors.
Thanks for any tips.

Steve Gray

pts3D = {{1.32, -0.168, -1.984}, {-0.346, -2.518,
     4.583}, {-3.64, -2.190, 1.889}, {3.136, 1.520,
     4.606}, {4.218, -3.389, -2.437}};

lins = {{{1.3215, -0.168, -1.984}, {-0.346, -2.518,
      4.583}}, {{1.321, -0.168, -1.984}, {-3.641, -2.190,
      1.889}}, {{1.321, -0.168, -1.984}, {3.136, 1.520,
      4.606}}, {{1.321, -0.168, -1.984}, {4.218, -3.389, -2.437}},
{{-0.346, -2.518, 4.583}, {-3.641, -2.190, 1.889}}, {{-0.346, -2.518,
      4.583}, {3.136, 1.520, 4.606}}, {{-0.346, -2.518,
      4.583}, {4.218, -3.389, -2.437}}, {{-3.641, -2.190,
      1.889}, {3.136, 1.520, 4.606}}, {{-3.641, -2.190,
      1.889}, {4.218, -3.389, -2.437}}, {{3.136, 1.520,
      4.606}, {4.218, -3.389, -2.437}}};

colors = {Red, Green, Blue, Black, Darker[Gray], Magenta, Yellow,
    Darker[Green],LightBrown, RGBColor[.7,0,.5], Orange, Pink,
    Purple, LightRed, LightGreen,RGBColor[.7,0,0],
    RGBColor[0,.7,.6], LightPurple,LightPink, LightOrange,LightGray,
    Brown, LightBlue, LightOrange, RGBColor[.7,0,.9], White};

colorL=Length[colors];


{Graphics3D[{Thickness[.005], Opacity[1.0],
    Table[{colors[[Mod[i, colorL]]], Line[lins[[i]]]}, {i,
      sub2L}],
    Opacity[.9], Yellow, Table[Sphere[pts3D[[i]], .5], {i, numbr}],
    Black,
    Table[Style[Text[xr, pts3D[[xr]]], FontSize -> 21, Bold,
      FontFamily -> "Arial"], {xr, numbr}],
    PointSize[Large], Point[{0, 0, 0}]},
     ImageSize -> 220, Background -> Gray, Boxed -> False,
   ViewPoint -> {1.5, -5, 20}],
  Graphics3D[{Thickness[.005], Opacity[1.0],
    Table[{colors[[Mod[i, colorL]]], Line[lins[[i]]]}, {i,
      sub2L}],
    Opacity[.9], Yellow, Table[Sphere[pts3D[[i]], .5], {i, numbr}],
    Black,
    Table[Style[Text[xr, pts3D[[xr]]], FontSize -> 21, Bold,
      FontFamily -> "Arial"], {xr, numbr}],
    PointSize[Large], Point[{0, 0, 0}]},
     ImageSize -> 220, Background -> Gray, Boxed -> False,
   ViewPoint -> {1.0, -5, 20}]}


  • Prev by Date: Mathematica Special Interest Group (Washington DC Area)
  • Next by Date: Re: Show left hand side
  • Previous by thread: Mathematica Special Interest Group (Washington DC Area)
  • Next by thread: problem with sovlign aquation with argument x/w