Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

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
> 
> 


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