       Re: Point color

• To: mathgroup at smc.vnet.net
• Subject: [mg56013] Re: [mg55968] Point color
• From: "David Park" <djmp at earthlink.net>
• Date: Wed, 13 Apr 2005 01:11:00 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

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

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