Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Combining 3D Graphics

  • To: mathgroup at
  • Subject: [mg26516] Re: [mg26512] Combining 3D Graphics
  • From: Jean-Marie THOMAS <jmt at>
  • Date: Mon, 1 Jan 2001 02:32:48 -0500 (EST)
  • References: <>
  • Sender: owner-wri-mathgroup at

The following code performs what (I think) you expect :

pts = Table[Random[Real, {-1, 1}], {10}, {3}];
s = Sphere[1/2, 16, 16];
Show[Graphics3D[{s, {PointSize[0.03], RGBColor[1, 0, 0], Point[#]} & /@ 

On Sunday 31 December 2000 04:13, Robert B. Love wrote:
I'm trying to show a cluster of points outside a sphere in 3D.  When
I plot just the points it works fine.  I use:


where pts is a list read in from a file.

When I try to add the sphere at the center by using:


then all I see is the sphere.  If I change Sphere[] to Sphere[0.4]
then I see the points only, not the sphere.

What is going on here?  Any suggestions on how to combine the 3D
images so that both are visible would be appreciated.

 Bob Love
 rlove at

  • Prev by Date: Re: Transparent Layering w/ Solids
  • Next by Date: Automatic Numbering
  • Previous by thread: Re: Transparent Layering w/ Solids
  • Next by thread: Re: Combining 3D Graphics