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
> radii.
>
....
> 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
Please don't send any junk mail or advertisements. For personal mail please send to: Christian.Jost at epc.u-psud.fr