Re: Help! How can I control the size of individual point?
- To: mathgroup at smc.vnet.net
- Subject: [mg8734] Re: Help! How can I control the size of individual point?
- From: tburton at cts.com (Tom Burton)
- Date: Sat, 20 Sep 1997 22:28:02 -0400
- Organization: Brahea Consulting
- Sender: owner-wri-mathgroup at wolfram.com
On 19 Sep 1997 03:18:27 -0400, in comp.soft-sys.math.mathematica you
wrote:
>I have a data file that has coordinates of 3 dimensional spheres and their
>radii.
>
>x1 y1 z1 r1 r1 x1 y1 z1
>x2 y2 z2 r2 r2 x2 y2 z2
>x3 y3 z3 r3 or r3 and x3 y3 z3
>.. ... ...
>xi yi zi ri ri xi yi zi
>.. ... ...
>
>I tried,
>
>sphere = ReadList["filename", Point[Table[Number,{3}]
>Show[Graphics3D[{sphere}]]
>
This almost gets it right:
sphereAlmost=
ReadList["filename",
{Point[{Number,Number,Number}],PointSize[Number]}]
except that the pointsize should be set before the point is plotted, so
sphere=3DsphereAlmost/.{p_,r_}->{r,p}
Then
Show[Graphics3D[sphere]]
works fine. Hope this helps.
PS: I used to work in the area of Polymer Flow Simulation and was
briefly an employee of a corporate member of the industrial consortium
supporting your lab. Lot's of good stuff. What are you working on?
Tom Burton