Graphics3D question
- To: mathgroup at smc.vnet.net
- Subject: [mg110084] Graphics3D question
- From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
- Date: Tue, 1 Jun 2010 04:23:53 -0400 (EDT)
- Reply-to: stevebg at ROADRUNNER.COM
I have some spheres in a 3D display. Each sphere has a number.
Graphics3D[{{RGBColor[0.4, 1.0, 0.9, .2],
EdgeForm[Gray],
Table[Cylinder[{circls[[dx, 1]],
circls[[dx, 1]] + .01*circls[[dx, 3]]}, circls[[dx, 2]]],
{dx, 1, Length[circls]}]},
PointSize[0.015], Red, Point[taba1],
PointSize[0.015], Blue, Point[taba2],
Thickness[.003], White, Line[lines],
LightBlue, Sphere[coords, .6],
Yellow,
Table[Style[Text[xr, coords[[xr]]], FontSize -> imsize/30,
FontFamily -> "Arial Bold"],
{xr, 1, numbr}]},
Boxed -> False, ImageSize -> 800]
I notice two things that could be better:
1. The numbers do not get smaller on the more distant spheres. It would
be better if they had perspective like the spheres themselves do.
2. When one sphere is occluded by another, its number is not occluded
but appears in front of the front sphere along with the front number.
Is there a way to make the numbers behave like other image elements do?
Steve Gray