Prev: Mathematica Special Interest Group (Washington DC Area)
Next: Code highlighting
From: S. B. Gray on 22 Jul 2010 05:41
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}]}

 | 
Pages: 1
Prev: Mathematica Special Interest Group (Washington DC Area)
Next: Code highlighting