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

Re: Combining 3D Graphics

• To: mathgroup at smc.vnet.net
• Subject: [mg26666] Re: Combining 3D Graphics
• From: "Paul Lutus" <nospam at nosite.com>
• Date: Wed, 17 Jan 2001 00:47:20 -0500 (EST)
• References: <92m8ae$7vm@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

"Robert B. Love " <rlove at antispam.neosoft.com> wrote in message
news:92m8ae$7vm 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.

<<Graphics`Shapes`

pts=Table[Point[Table[(Random[]*4)-2,{3}]],{60}];

Show[Graphics3D[{Sphere[],{PointSize[0.02],pts}}]]

--
Paul Lutus
www.arachnoid.com