RE: Combining 3D Graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg26517] RE: [mg26512] Combining 3D Graphics*From*: "David Park" <djmp at earthlink.net>*Date*: Mon, 1 Jan 2001 02:32:49 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Robert, The following works all right for me. Needs["Graphics`Shapes`"] pts = Table[ With[ {t = Random[Real, {0, Pi}], p = Random[Real, {0, 2 Pi}], r = Random[Real, {1.1, 1.5}]}, r{Cos[p]Sin[t], Sin[p]Sin[t], Cos[t]}], {20}]; Show[Graphics3D[{Sphere[], {PointSize[0.03], Point /@ pts}}]]; This shows the points and the sphere. But then I don't know how your points are located. You might try adjusting your PlotRange. The default PlotRange -> Automatic sometimes does strange things. Are all of your points actually far outside the sphere? If I make the radial distance of the points between 400 and 500 and use Sphere[0.2] for your last case I get what you get. Use PlotRange and Axes -> True to make certain you are getting the same scale on each of the plots. Also check what the actual radii of your points are. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Robert B. Love [mailto:rlove at antispam.neosoft.com] To: mathgroup at smc.vnet.net > > 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 > ----------------------------------------------------------------