Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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 smc.vnet.net
  • Subject: [mg26516] Re: [mg26512] Combining 3D Graphics
  • From: Jean-Marie THOMAS <jmt at agat.net>
  • Date: Mon, 1 Jan 2001 02:32:48 -0500 (EST)
  • References: <200012310313.WAA08166@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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

Needs["Graphics`Shapes`"]
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[#]} & /@ 
          pts}]];


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:

Show[Graphics3D[{PointSize[0.03],Map[Point,pts]}]];

where pts is a list read in from a file.

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


Show[Graphics3D[{Sphere[],{PointSize[0.03],Map[Point,pts]}}]];

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 neosoft.com
----------------------------------------------------------------


  • 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