Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Re: Colors in ScatterPlot3D?
  • Next by Date: Re: unevaluated, hold, holdform
  • Previous by thread: Re: Colors in ScatterPlot3D?
  • Next by thread: Re: Colors in ScatterPlot3D?