MathGroup Archive 2005

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

Search the Archive

Re: Point color

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56000] Re: Point color
  • From: Peter Pein <petsie at arcor.de>
  • Date: Wed, 13 Apr 2005 01:10:34 -0400 (EDT)
  • References: <d3g8rh$ssn$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

fartous at mail15.com wrote:
> this will show 5 dots , one point (.5,.5) colored with Red
> d = Graphics[{Point[{0, 0}], Point[{1, 0}], Point[{1, 1}], Point[{0, 1}],
>       {Red, PointSize[0.03], Point[{.5, .5}]}}]
> 
> Show[d];
> 
> but in other form:
> d = Graphics[Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {.5, .5}}]
> Show[d]
> 
> where should i insert Red to color one point (.5,.5) in Red, and its size to .03
> 
> regards
> 

d[[1, -1]] = {Red, PointSize[3/100], d[[1, -1]]};
Show[d];

or if {.5,.5} is at an unknown position in the list:

Show[d /. p : Point[{.5, .5}] -> {Red, PointSize[.03], p}]

-- 
Peter Pein
Berlin


  • Prev by Date: Output format
  • Next by Date: Re: Problem with evaluation of Besel Functions
  • Previous by thread: Point color
  • Next by thread: Re: Point color