MathGroup Archive 2005

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

Search the Archive

Re: Point color


If you want different directives for different points you are going to have
to separate them. I would tend to write everything in the Show statement as
follows...

Show[Graphics[
      {Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}},
        Red, PointSize[0.03], Point at {0.5, 0.5}}]];

If you wanted to generate the graphics outside the Show statement and wanted
different directives for different points you could use the MapThread
statement. (In this particular case this is not the easiest construction,
but it might be the easiest if you were actually going to have different
directives for each point.)

d = Graphics@
      MapThread[{#1, #2, Point[#3]} &,
       {{Black, Black, Black, Black, Red},
        {PointSize[0.01], PointSize[0.01], PointSize[0.01],
            PointSize[0.01], PointSize[0.03]},
        {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0.5, 0.5}}}];
Show[d];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: fartous at mail15.com [mailto:fartous at mail15.com]
To: mathgroup at smc.vnet.net


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: Numerical Optimization involving equation solving
  • Next by Date: FW: precisions
  • Previous by thread: Re: Point color
  • Next by thread: Problem with evaluation of Besel Functions