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