Re: Colors in ScatterPlot3D?
- To: mathgroup at smc.vnet.net
- Subject: [mg51004] Re: Colors in ScatterPlot3D?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 1 Oct 2004 04:48:39 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <cjgih6$q5a$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
Show[Graphics3D[{AbsolutePointSize[4],
Transpose[{Hue[ #] & /@ colortable,
Point /@ atable}]}
]
]
??
Regards
Jens
Klaus G wrote:
>
> To give colors to each point individually the following has been
> proposed recently:
>
> << Graphics`Graphics3D`
>
> atable = Table[Random[Integer, {1, 10}], {50}, {3}];
> colortable = Table[Random[Real, {0, 1}], {50}]
> ScatterPlot3D[atable, PlotStyle -> RGBColor[#, 0, 0]&/@ colortable]
>
> But all colors are the same. It looks like only the first color value
> in colortable is used.
>
> Thanks.
>
> Klaus G.