Re: Point color
- To: mathgroup at smc.vnet.net
- Subject: [mg55978] Re: [mg55968] Point color
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 13 Apr 2005 01:10:02 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
d=Graphics[Point/@
{{0,0},{1,0},{1,1},{0,1},{.5,.5}}];
Show[d/.Point[{.5,.5}]:>
{Red,PointSize[.03],Point[{.5,.5}]}];
or
d=Graphics[If[#=={.5,.5},{Red,
PointSize[.03],Point[#]},Point[#]]&/@
{{0,0},{1,0},{1,1},{0,1},{.5,.5}}];
Show[d];
Bob Hanlon
>
> From: fartous at mail15.com
To: mathgroup at smc.vnet.net
> Date: 2005/04/12 Tue AM 05:26:26 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg55978] [mg55968] Point color
>
>
> 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
>
>