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