Re: Help! How can I control the size of individual point?

• To: mathgroup at smc.vnet.net
• Subject: [mg8748] Re: Help! How can I control the size of individual point?
• From: jost at no-junk-mail.fr (Christian Jost)
• Date: Sat, 20 Sep 1997 22:28:13 -0400
• Organization: Universite Paris-Sud XI
• Sender: owner-wri-mathgroup at wolfram.com

```In article <5vt903\$gjp at smc.vnet.net>, Sanghoon Lee
<hoon at kira.cc.uakron.edu> wrote:

> I have a data file that has coordinates of 3 dimensional spheres and their
>
....
> Can anyone teach me how to draw these spheres in the 3 dimensional space?
> I tried,
>

Your need graphics primitives, then you can define each individual point
size. Here is an example:

In[12]:=
data={{1,1,1,0.3},{1.1,1,1.5,0.1},{0.9,1.5,0.5,0.6}};

In[13]:=
pointList=({PointSize[#[[4]]],Point[{#[[1]],#[[2]],#[[3]]}]}& /@ data)

Out[13]=
{{PointSize[0.3],Point[{1,1,1}]},{PointSize[0.1],Point[{1.1,1,1.5}]},{
PointSize[0.6],Point[{0.9,1.5,0.5}]}}

In[14]:=
Show[Graphics3D[pointList]];

Hope that helps, Christian.

*********************************************************************
Christian Jost, Université Paris-Sud XI, Orsay, France