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
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

> 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
> ----------------------------------------------------------------

```

• Prev by Date: Re: FW: Symbolic Fourier Transform
• Next by Date: Re: Automatic Numbering
• Previous by thread: Re: Combining 3D Graphics
• Next by thread: Re: Combining 3D Graphics