       Re: Combining 3D Graphics

• To: mathgroup at smc.vnet.net
• Subject: [mg26518] Re: [mg26512] Combining 3D Graphics
• From: BobHanlon at aol.com
• Date: Mon, 1 Jan 2001 02:32:50 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Works fine on my system (Mac v4.1). Recommend that you turn on the Axes and
manually set the PlotRange to make sure that you know exactly what is being
displayed.

Needs["Graphics`Shapes`"];

pts = Partition[Table[2Random[]-1, {30}], 3];

Show[Graphics3D[{PointSize[0.03],Map[Point,pts]}], Axes -> True,
PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];

Show[Graphics3D[{Sphere[],{PointSize[0.03],Map[Point,pts]}}], Axes -> True,
PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];

Show[Graphics3D[{Sphere[0.4],{PointSize[0.03],Map[Point,pts]}}],
Axes -> True, PlotRange -> {{-1,1},{-1,1},{-1,1}}];

Bob Hanlon

In a message dated 12/30/00 10:32:40 PM, rlove at antispam.neosoft.com writes:

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

```

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