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