RE: Re: Re: 3D graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg22816] RE: [mg22799] Re: [mg22720] Re: 3D graphics
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 31 Mar 2000 01:01:18 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
____________________________________________________________________________
Comparison of the following postings for time and picture quality suggests
that there is some interesting work to be done on this kind of problem.
____________________________________________________________________________
It is not quite certain what the original poster was after. But I usually
find ContourPlot3D so agonizingly slow and crude that I far prefer to use
ParametricPlot3D if I can generate the parametrization. But for a quick and
dirty filling in of the volume, what about this:
Needs["Graphics`Colors`"]
Show[Graphics3D[
{AbsolutePointSize[5], Blue,
Table[If[x^2 + y^2 + z^2 <= 1, Point[{x, y, z}], {}], {x, -2, 2,
0.2}, {y, -2, 2, 0.2}, {z, -2, 2, 0.2}]}]] // Timing
{0.33 Second, - Graphics3D -]
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/