Re: Graphics3D question
- To: mathgroup at smc.vnet.net
- Subject: [mg110107] Re: Graphics3D question
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Wed, 2 Jun 2010 02:04:48 -0400 (EDT)
Your code won't evaluate, as a number of symbols used in it have no
values specified: circls, dx, taba1, taba2, coords, imsize, xr, numbr.
If you don't want to show the full example at issue, at least give us a
simplified where everything is defined.
On 6/1/2010 4:23 AM, S. B. Gray wrote:
> 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
>
--
Murray Eisenberg murrayeisenberg at gmail.com
80 Fearing Street phone 413 549-1020 (H)
Amherst, MA 01002-1912