Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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


  • Prev by Date: Re: loop for with plot
  • Next by Date: Re: Expanding Integrals with constants and 'unknown'
  • Previous by thread: Re: loop for with plot
  • Next by thread: Re: Graphics3D question